Ciao, ho provato a mettere il blocco controllo If txtArticolo.text ="" ecc.. in una sub nel Modulo1 (chiamata alla pressione del Botton Carica) con altri tre campi simili, ma il SetFocus non mi riposiziona il cursore nel campo Articolo. Perchè
Grazie Leopoldo per questi utilissimi tutorial , volevo chiederti e possibile creare sulla userform un comando per richiamare i dati inseriti nelle caselle userforn senza visualizzare il foglio excel spero di essermi spiegato bene sono agli inizi e la cosa mi piace molto vorrei poter approfondire
Ciao Leopoldo, ho riscontrato che sulla programmazione delle combobox activeX c’è molto poco sul web (almeno in lingua italiana), nonostante sia un comando che probabilmente è stato pensato per svariate funzioni. Secondo un mio modesto parere, dei tutorial approfonditi e dedicati susciterebbero molti interessi da parte di visitatori che ti seguono come me. Il problema in cui mi sono imbattuto con la combobox è stato quello di creare dei sottomenu che negli elenchi a discesa (con convalida dati) vengono gestiti con la funzione “indiretto”. Ringraziandoti anticipatamente per la tua gentile disponibilità ti saluto. Ciro
Ciao Leopoldo non so se mi puoi aiutare. Volevo sapere se era possibile richiamare un dato inserito nel foglio excel sulla userfom correggerlo e reinserirlo allo stesso punto. Cioè fare una correzzione
Scusa una domanda ...ma ti risponde? io ho la stessa patata bollente da risolvere ,chi mi ha preceduto ha salvato i dati sul serve in formato text ora mi chiedono di prendere questi dati e importarli su fogli excel insomma tutti facendo lo scrolling, sinceramente con vb6 non so neppure se si puo' fare sono giorni che sbatto la testa per un consiglio ma non ne ottengo. se ho ben capito a te serve fare la stessa cosa ..magari se puoi mi tieni informato? grazie Francesco P.S. io sono di Napoli ..tu?
Salve. innanzitutto complimenti per il video. Utilissimo. Volevo solo chiedere se era possibile creare una macro che faccia partire l'userformer cioè senza aprire il VBA con Alt+F11 e lanciarlo con il pulsante esegui.
Si è semplicissimo, premi Alt+F11, in modalità codice, nella parte sinistra sotto Foglio1, Foglio2 e Foglio3 fai doppio click su ThisWorkbook, inserisci il seguente codice: Private Sub Workbook_Open() UserForm1.Show End Sub infine salva , chiudi e riapri il file e vedi che parte la UserForm1.
Leopoldo Della Corte buongiorno, eseguo tutti i procedimenti, va tutto ok. Provo poi ad inserire il codice per l’apertura automatica della Userform, salvo e mi dice che è impossibile salvare in cartelle di lavoro senza macro. Continuo cliccando su si e mi cancella tutto il lavoro fatto
Leopoldo Della Corte Grazie! Ho trovato i tuoi video molto ben fatti e ti ringrazio tantissimo perché hai reso il mio lavoro con Excel molto più professionale.
Grazie della lezione, una domanda perchè quando nella riga "numriga = Sheets("Foglio3").Range("A1").CurrentRegion.Rows.Count" anzichè scrivare Foglio1 scrivo Foglio3 (come nel mio caso) mi dà errore? ciao grazie
Ciao Io ho proseguito tutto la procedura di programmazione solo che quando verifico mi fa' vedere« errore d'esecuzione '9' » qual sarà il problema?????
Salve carissimi tutti grazie per avermi accettato , devo proprio fare una cosa del genere chi mi ha preceduto in azienda ha sviluppato un programma in vb6 dove i dati sono tutti memorizzati sul server in file text da 1 to..... a me e' stato richiesto di fare un programmino che prenda questi dati per esattezza 10 su ogni linea e lo importa su un foglio excel per poi essere richiamati per funzione linea per linea e visualizza la ricerca per clienti e per dato della linea . voglio dire che non ho mai fatto neppure io una cosa del genere ma qui se ne parla abbastanza , pero' come ogni cosa non e' facile capirla senza un buon tutor .vi ringrazio e spero di essere stato esaustivo nel esposizione del problema che ho. ..Francesco ps se qualcuno e' di Napoli ci si potrebbe incontrare ..PER UN CAFFE'
Ciao Leopoldo,mi da "errore di run time 9 indice non incluso nell'intervallo" , numriga = Sheets("Foglio1").Range("A1").CurrentRegion.Rows.Count ... eppure è scritto come lo hai scritto tu,potresti dirmi quale è il problema? grazie.
Salve , io vorrei cimentarmi in quanto sono subentrato a un collega che ha fatto un lavoro dati tutti salvati su file text ora mi chiedo di prendere questi dati e raffigurarli su dei fogli excel e una lista completa su un solo foglio ,ti dico sinceramente con vb6 non ho mai avuto questa necessita' .in questi giorni sto sbattendo la testa a destra e manca ma nessuna dritta per iniziare il progetto , dalle domande che fai riesco a interpretare che sei anni luce avanti a me ,,, potresti darmi una mano? a sistemare i dati nelle caselle excel? io ho installato office 2013 do conseguenza excel 2013 ti ringrazio anticipatamente la mia email e': posterminale1@libero.it Francesco p.s. io sono di Napoli ...tu?
Ciao Leopoldo, volevo chiederti ,la userform ha l'icona con la X per chiuderla, ma se io volessi mettere un icona riduci userform affianco alla X, da toglierla e rifarla apparire sai come si fa? Grazie ..... Giuseppe
Ciao molto interessante. Cercavo proprio una cosa del genere. Solamente che per quanto mi sia sforzato, non sono riuscito a risolvere un problema. Il mio elenco, per ragioni di formattazione, non inizia nella cella A2, ma inizia nella cella F22. Non riesco ad adattare il tuo lavoro alle mie esigenze, poichè anche cambiando i riferimenti, nella migliore delle ipotesi mi sovrascrive i nuovi dati sempre nelle stesse celle, senza passare alle celle vuote immediatamente disponibili. Dove sbaglio??? Potresti aiutarmi??? Grazie anticipatamente
ciao volevo sapere se mi puoi aiutare sto cercando di fare un programma vba ,come eliminare l'errore quando la cella della textbox è vuota quando clicco il tasto inserisci errore run time 13 grazie.... ciao
Ho seguito con attenzione questo video. Temo comunque che è incompleto perchè non spiega la sua creazione. COMUNQUE QUESTO ASPETTO L'HO CAPITO. Purtroppo non viene presentato in questo video il sistema di salvataggio di tutto il lavoro e come si richiama in modo semplice. Inoltre ho bisogno di capire quale formule devo comporre per un pulsante richiama articolo, il pulsante modifica e il pulsante cancella. E' possibile poter creare un video più dettagliato in merito? Grazie per la sua comprensione e disponibilità.
Ciao, non conosco VBA e sto inizaindo a capirci qlc grazie al tuo video.... ho provato a fare un codice come il tuo ma mi viene "errore run-time 9 Indice non incluso nell'intervallo" porca pupazza qui il codice: Private Sub ok_Click() Dim numriga As Long If ComboBoxDipendente = "" Then MsgBox ("Selezionare Dipendente!") ComboBoxDipendente.SetFocus Exit Sub End If numriga = Sheets("Foglio5").Range("B8").CurrentRegion.Rows.Count numriga = numriga + 1 Foglio5.Cells(numriga, 2) = ComboBoxDipendente Foglio5.Cells(numriga, 3) = ComboBoxAssenza Foglio5.Cells(numriga, 4) = TextBoxDal.Text Foglio5.Cells(numriga, 5) = TextBoxAl.Text Foglio5.Cells(numriga, 6) = TextBoxDtRicez Foglio5.Cells(numriga, 7) = ComboBoxResp Foglio5.Cells(numriga, 8) = TextBoxInvioIl ComboBoxDipendente = "" ComboBoxAssenza = "" TextBoxDal.Text = "" TextBoxAl.Text = "" TextBoxDtRicez = "" ComboBoxResp = "" TextBoxInvioIl = "" ComboBoxDipendente.SetFocus End Sub Garzie mille
@@eduCoding4.0 ho risolto modificando un pò il codice graziead un mio amico, ascolta in due textbox dovrei inseire date, come sì può fare? ho cercato in internet ma nn ho trovato molto.....grz mille
If IsDate(TextBox1.Text) Then TextBox1.Text = Format(TextBox1.Value, "dd/mm/yyyy") Else If TextBox1 "" Then MsgBox ("La data inserita non è valida!") TextBox1.Text = "" Cancel = True End If End If
Complimenti, sei l'unico fin ora che spiega in modo chiarissimo.
Grazie 1000
Buongiorno... sei bravissimo.... hai una comunicazione straordinaria
Grazie per l'apprezzamento Pietro☺
Complimenti Leopoldo. Semplice ma molto efficace.
Bravo Leopoldo spiegazione semplice e coincisa
Grande Leopoldo...✌️
Grazie! Chiarissimo nelle spiegazioni! molto utile come video!
Eliza Timcu grazie a te.
Sei un grande! Grazie!!!
Mi chiedo come si possa mettere pollice verso. Molto chiaro. complimenti
Ottimo tutorial grazie
Grazie a te
Ciao, complimenti per il canale, ti volevo chiede é possibile fare il programma senza che si apre il foglio di lavoro excel ? Grazie
Molto utile, grazie. C'è la possibilità di inserire un tasto stampa per stampare un etichetta per ogni record inserito?
Ciao, ho provato a mettere il blocco controllo If txtArticolo.text ="" ecc.. in una sub nel Modulo1 (chiamata alla pressione del Botton Carica) con altri tre campi simili, ma il SetFocus non mi riposiziona il cursore nel campo Articolo. Perchè
Ciao per caso sai dirmi dove trovare risorse per imparare il vba di word?
Grazie Leopoldo per questi utilissimi tutorial , volevo chiederti e possibile creare sulla userform un comando per richiamare i dati inseriti nelle caselle userforn senza visualizzare il foglio excel spero di essermi spiegato bene sono agli inizi e la cosa mi piace molto vorrei poter approfondire
Ciao Leopoldo, ho riscontrato che sulla programmazione delle combobox activeX c’è molto poco sul web (almeno in lingua italiana), nonostante sia un comando che probabilmente è stato pensato per svariate funzioni. Secondo un mio modesto parere, dei tutorial approfonditi e dedicati susciterebbero molti interessi da parte di visitatori che ti seguono come me. Il problema in cui mi sono imbattuto con la combobox è stato quello di creare dei sottomenu che negli elenchi a discesa (con convalida dati) vengono gestiti con la funzione “indiretto”.
Ringraziandoti anticipatamente per la tua gentile disponibilità ti saluto.
Ciro
Ciao Leopoldo non so se mi puoi aiutare.
Volevo sapere se era possibile richiamare un dato inserito nel foglio excel sulla userfom correggerlo e reinserirlo allo stesso punto. Cioè fare una correzzione
Scusa una domanda ...ma ti risponde? io ho la stessa patata bollente da risolvere ,chi mi ha preceduto ha salvato i dati sul serve in formato text ora mi chiedono di prendere questi dati e importarli su fogli excel insomma tutti facendo lo scrolling, sinceramente con vb6 non so neppure se si puo' fare sono giorni che sbatto la testa per un consiglio ma non ne ottengo. se ho ben capito a te serve fare la stessa cosa ..magari se puoi mi tieni informato? grazie
Francesco
P.S.
io sono di Napoli ..tu?
Salve. innanzitutto complimenti per il video. Utilissimo. Volevo solo chiedere se era possibile creare una macro che faccia partire l'userformer cioè senza aprire il VBA con Alt+F11 e lanciarlo con il pulsante esegui.
Si è semplicissimo, premi Alt+F11, in modalità codice, nella parte sinistra sotto Foglio1, Foglio2 e Foglio3 fai doppio click su ThisWorkbook, inserisci il seguente codice:
Private Sub Workbook_Open()
UserForm1.Show
End Sub
infine salva , chiudi e riapri il file e vedi che parte la UserForm1.
Grazie. Tutto ok!!!
Leopoldo Della Corte buongiorno, eseguo tutti i procedimenti, va tutto ok. Provo poi ad inserire il codice per l’apertura automatica della Userform, salvo e mi dice che è impossibile salvare in cartelle di lavoro senza macro. Continuo cliccando su si e mi cancella tutto il lavoro fatto
Buongiorno Leopoldo volevo chiederti se hai già realizzato un video che spieghi come modificare i dati su un data base excel già esistente. Grazie!
Claudio Domenico Di Marco grazie per il suggerimento, lo faccio a breve☺
Leopoldo Della Corte Grazie! Ho trovato i tuoi video molto ben fatti e ti ringrazio tantissimo perché hai reso il mio lavoro con Excel molto più professionale.
Guarda il tutorial al seguente link: th-cam.com/video/D6K778I-bLI/w-d-xo.html
Grazie della lezione, una domanda perchè quando nella riga "numriga = Sheets("Foglio3").Range("A1").CurrentRegion.Rows.Count" anzichè scrivare Foglio1 scrivo Foglio3 (come nel mio caso) mi dà errore? ciao grazie
Ciao
Io ho proseguito tutto la procedura di programmazione solo che quando verifico mi fa' vedere« errore d'esecuzione '9' » qual sarà il problema?????
Salve carissimi tutti grazie per avermi accettato , devo proprio fare una cosa del genere chi mi ha preceduto in azienda ha sviluppato un programma in vb6 dove i dati sono tutti memorizzati sul server in file text da 1 to..... a me e' stato richiesto di fare un programmino che prenda questi dati per esattezza 10 su ogni linea e lo importa su un foglio excel per poi essere richiamati per funzione linea per linea e visualizza la ricerca per clienti e per dato della linea . voglio dire che non ho mai fatto neppure io una cosa del genere ma qui se ne parla abbastanza , pero' come ogni cosa non e' facile capirla senza un buon tutor .vi ringrazio e spero di essere stato esaustivo nel esposizione del problema che ho. ..Francesco
ps
se qualcuno e' di Napoli ci si potrebbe incontrare ..PER UN CAFFE'
Ciao Leopoldo,mi da "errore di run time 9 indice non incluso nell'intervallo" , numriga = Sheets("Foglio1").Range("A1").CurrentRegion.Rows.Count ... eppure è scritto come lo hai scritto tu,potresti dirmi quale è il problema? grazie.
Salve , io vorrei cimentarmi in quanto sono subentrato a un collega che ha fatto un lavoro dati tutti salvati su file text ora mi chiedo di prendere questi dati e raffigurarli su dei fogli excel e una lista completa su un solo foglio ,ti dico sinceramente con vb6 non ho mai avuto questa necessita' .in questi giorni sto sbattendo la testa a destra e manca ma nessuna dritta per iniziare il progetto , dalle domande che fai riesco a interpretare che sei anni luce avanti a me ,,, potresti darmi una mano? a sistemare i dati nelle caselle excel? io ho installato office 2013 do conseguenza excel 2013 ti ringrazio anticipatamente la mia email e': posterminale1@libero.it
Francesco
p.s.
io sono di Napoli ...tu?
Ciao Leopoldo, volevo chiederti ,la userform ha l'icona con la X per chiuderla, ma se io volessi mettere un icona riduci userform affianco alla X, da toglierla e rifarla apparire sai come si fa?
Grazie ..... Giuseppe
Faccio un video appena mi è possibile, grazie.
ok grazie
Ciao molto interessante. Cercavo proprio una cosa del genere. Solamente che per quanto mi sia sforzato, non sono riuscito a risolvere un problema. Il mio elenco, per ragioni di formattazione, non inizia nella cella A2, ma inizia nella cella F22. Non riesco ad adattare il tuo lavoro alle mie esigenze, poichè anche cambiando i riferimenti, nella migliore delle ipotesi mi sovrascrive i nuovi dati sempre nelle stesse celle, senza passare alle celle vuote immediatamente disponibili. Dove sbaglio??? Potresti aiutarmi??? Grazie anticipatamente
Dovresti guardare con attenzione il codice, prova a verificare gli indici di riga e di colonna
ciao volevo sapere se mi puoi aiutare sto cercando di fare un programma vba ,come eliminare l'errore quando la cella della textbox è vuota quando clicco il tasto inserisci errore run time 13 grazie.... ciao
Nel codice, come prima riga della sub inserisci il codice:
On Error Resume Next
@@eduCoding4.0 grandissimo grazie funziona grazie grazie grazie
Ho seguito con attenzione questo video. Temo comunque che è incompleto perchè non spiega la sua creazione. COMUNQUE QUESTO ASPETTO L'HO CAPITO. Purtroppo non viene presentato in questo video il sistema di salvataggio di tutto il lavoro e come si richiama in modo semplice. Inoltre ho bisogno di capire quale formule devo comporre per un pulsante richiama articolo, il pulsante modifica e il pulsante cancella. E' possibile poter creare un video più dettagliato in merito? Grazie per la sua comprensione e disponibilità.
E' possibile aggiornare il link dal quale scaricare l'esempio?
Grazie Giuseppe, a breve pubblicherò il nuovo link.
Ciao, non conosco VBA e sto inizaindo a capirci qlc grazie al tuo video....
ho provato a fare un codice come il tuo ma mi viene "errore run-time 9 Indice non incluso nell'intervallo" porca pupazza
qui il codice:
Private Sub ok_Click()
Dim numriga As Long
If ComboBoxDipendente = "" Then
MsgBox ("Selezionare Dipendente!")
ComboBoxDipendente.SetFocus
Exit Sub
End If
numriga = Sheets("Foglio5").Range("B8").CurrentRegion.Rows.Count
numriga = numriga + 1
Foglio5.Cells(numriga, 2) = ComboBoxDipendente
Foglio5.Cells(numriga, 3) = ComboBoxAssenza
Foglio5.Cells(numriga, 4) = TextBoxDal.Text
Foglio5.Cells(numriga, 5) = TextBoxAl.Text
Foglio5.Cells(numriga, 6) = TextBoxDtRicez
Foglio5.Cells(numriga, 7) = ComboBoxResp
Foglio5.Cells(numriga, 8) = TextBoxInvioIl
ComboBoxDipendente = ""
ComboBoxAssenza = ""
TextBoxDal.Text = ""
TextBoxAl.Text = ""
TextBoxDtRicez = ""
ComboBoxResp = ""
TextBoxInvioIl = ""
ComboBoxDipendente.SetFocus
End Sub
Garzie mille
Non vedo alcuni .text, bisognerebbe vedere tutto il file, riprova facendo attenzione a tutti i dettagli nel codice
@@eduCoding4.0 grazie intanto del riscontro.... No, pensavo che essendo una Combobox nn servisse il .text
@@eduCoding4.0 ho risolto modificando un pò il codice graziead un mio amico, ascolta in due textbox dovrei inseire date, come sì può fare? ho cercato in internet ma nn ho trovato molto.....grz mille
If IsDate(TextBox1.Text) Then
TextBox1.Text = Format(TextBox1.Value, "dd/mm/yyyy")
Else
If TextBox1 "" Then
MsgBox ("La data inserita non è valida!")
TextBox1.Text = ""
Cancel = True
End If
End If