Ciao Anto, anch'io ho lo stesso problema di Aniello Giordano e cioè cercando di ricercare nella combo box FILTRO, non compare nulla. Ho provato a copiare il codice che avevi inserito sotto (rispondendo a Giordano) ma non succede nulla. Poi hai suggerito di scaricare il file dal tuo sito, cosa che ho fatto, ma anche qui un problema il file si scarica non in excel ma in google sheets e del "FormInserimento" neanche una traccia. Help me. Tutto il resto funziona perfettamente.
Grazie per il messaggio. Scarica il file e salva in excel. Apri il file in excel e da lì potrai vedere il codice e quindi verificare che tutto funzioni 👍. Fammi sapere. Ciao
@@AntoNardo79 Ho scaricato il file in excel e confrontato il codice con il tuo trovato sul file e sono identici quindi corretti ma cmq non funziona ancora.
Ciao Osvaldo. Ho controllato il file e funziona regolarmente. Registra i dati e l'immagine (URL) correttamente. Solo una pecca (da controllare con la versione 2021 di excel) il carinamente dell'immagine quando clicco sul filtro. Tutti i dati vengono riportati in modo corretto. Spero di aver risposto. Se non riesci a risolvere scrivimi. Vedrò di capire il problema. Ciao Osvaldo
Ciao buonasera e scusa il disturbo vorrei portare due domande: 1) Finito tutto quando vado a fare salva, ciò che ho scritto nel form viene si copiato nella worksheet corretta ma sulla riga sbagliata o meglio, come hai fatto vedere ho creato un foglio di lavoro in cui ho creato un elenco per un menù a tendina (questo menù finisce a riga 7) e quando il salva copia i dati del form non me li copia nella prima riga utile del worksheet 1 ma dalla riga 8 nonostante quelle prima siano vuote, come posso risolvere? 2) Invece per quanto riguarda il tasto delete è possibile inserire un determinato range di caselle che deve cancellare da una riga quando la si seleziona con la barra di ricerca? Grazie anticipatamente.
Ciao Daniele, grazie per il messaggio... per il punto 1. Dovresti provare a vedere il codice che hai scritto... Probabilmente hai inserito inizio riga 7. Fai questa prova: compila fino alla riga 10 inserendo i dati senza la maschera... direttamente attraverso le celle del foglio di lavoro. Dopo aver fatto questo, inseriscie un dato con la maschera di inserimento. Se copia i file nella riga 11 allora hai inserito come inizio riga appunto la 7.... Per il punto 2. La risposta è si. Devi inserire il codice delete sull'evvento attivo. Mi spiego: Quando posizione il cursore del mouse nella casella di ricerca, si deve attivare il codice scritto per il pulsante Delete (con le sole caselle di cui si vuole cancellare il contenuto.)
Ciao, una guida a dir poco ottima e spiegata molto bene. Una cosa però non ho capito, o forse mi perso un passaggio, il bottone FILTRA. Non hai messo nessun codice a questo bottone o sbaglio? A cosa serve? scusa l'ignoranza ma sono da poco entrato in questo mondo :) grazie
Ciao Marco e grazie per il messaggio. In realtà il codice è presente anche sulla casella Filtra. Ti lascio il codice che trovi nella spiegazione del Video. trovi questo se clicchi Due Volte sulla Casella Filtra: Private Sub cboFiltraRecord_Change() Bene devi cambiare "Change" con "Click" come riportato sotto. Private Sub cboFiltraRecord_Click() Foglio1.Range("A4").Select Do Until ActiveCell = "" If Me.cboFiltraRecord.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value Then Me.txtNome = ActiveCell.Value Me.txtCognome = ActiveCell.Offset(0, 1).Value If ActiveCell.Offset(0, 2).Value = "M" Then Me.optMaschio = True Else Me.optFemmina = True End If Me.cboGiorno = Left(ActiveCell.Offset(0, 3).Value, 2) Me.cboMese = Mid(ActiveCell.Offset(0, 3).Value, 4, 3) Me.cboAnno = Right(ActiveCell.Offset(0, 3).Value, 4) Me.txtIndirizzo = ActiveCell.Offset(0, 4) Me.txtCitta = ActiveCell.Offset(0, 5) Me.txtProvincia = ActiveCell.Offset(0, 6) Me.txtCap = ActiveCell.Offset(0, 7) Me.txtNumeroCell = ActiveCell.Offset(0, 8) Me.txtEmail = ActiveCell.Offset(0, 9) Me.txtURL = ActiveCell.Offset(0, 10) Exit Do End If ActiveCell.Offset(1, 0).Select Loop End Sub Spero di esserti stato d'aiuto.
Ottimo video esplicativo. Una curiosità: nella mia Userform ho una Textbox "Note" che mi serve appunto per inserire note varie sul dipendente, con MaxLenght=100. Ovviamente nella Form la Textbox è alta 3 linee e scrivo tutto in minuscolo. Vorrei che dopo ogni punto (e solo dopo quello) il 1° carattere si trasformasse in Maiuscolo (come è giusto che sia). Come posso fare a scriverlo nel codice?
Ciao Nick, Scusami se ti rispondo solo adesso. Mi dispiace non poterti aiutare per questo specifico problema. Ho sempre scritto con le maiuscole dopo il punto. Se mi sfugge una o più maiuscola queste si possono evidenziare (colorando le celle) dopo l'inserimento attraveso la userform con il seguente codice: --- For Each cl In ActiveSheet.UsedRange If Not Application.CheckSpelling(Word:=cl.Text) Then _ cl.Interior.ColorIndex = 20 Next cl --- (Quindi con la correzione automantica di excel si possono correggere eventuali errori di inserimeto). --- Questo codice devi inserirlo alla fine del tasto SALVA. Una volta cliccato ed inserito i dati nelle celle, queste si colorano di azzurro (codice: 20) per evidenziare l'errore. Spero possa essere una soluzione alla tua domanda.
Ciao Osvaldo... Non arrenderti. Anche a me capita di programmare e non riuscire a fare quello che vogliono. Risolvo trovando un'alternativa oppure rileggo più volte il codice. E qualche volta il codice non era scritto bene oppure faceva riferimento a qualcos'altro. Dai Osvaldo. Pensa a una soluzione alternativa. Oppure pensa a creare un filtro alternativo.
Buongiorno Anto79, i tuoi video sono interessanti, però se ti può interessare ho fatto una piccola modifica nell'inserimento - If Me.txtNome = " " Then Me.txtNome.BackColor = vbRed MsgBox "Inserisci il nome", vbInformation, "INFO"
Me.txtNome.SetFocus If Me.txtNome.BackColor = vbRed Then Me.txtNome.BackColor = vbWhite End If cioè quando è nullo è rosso nel momento si posiziona in txtNome con setfocus diventa bianco. Non so se mi sono spiegato bene. Con l'occasione le auguro Buon Anno.
Ciao, e grazie per il messaggio. Esatto, sono solo tre Video per la maschera inserimento Excel. Puoi scaricarte il file direttamente dal mio sito per poterlo confrontare con il tuo progetto. Grazie. Se hai altre domande, scrivimi nei commenti.
@@AntoNardo79 Ciao Grazie per avermi risposto si una domada ma adesso che ho creato tutto come faccio a salvare il tutto per poterlo usare? intendo rendere utilizzabili i vari pulsanti
Ciao e grazie per il commento. Ti rispondo adesso perchè sono stato molto impegnato. Ho Fatto tutti i passaggi e funziona bene. Non mi da errore. Verifica il Codice👍
Per la data di nascita invece è tutto OK
Ciao Anto, anch'io ho lo stesso problema di Aniello Giordano e cioè cercando di ricercare nella combo box FILTRO, non compare nulla. Ho provato a copiare il codice che avevi inserito sotto (rispondendo a Giordano) ma non succede nulla. Poi hai suggerito di scaricare il file dal tuo sito, cosa che ho fatto, ma anche qui un problema il file si scarica non in excel ma in google sheets e del "FormInserimento" neanche una traccia. Help me. Tutto il resto funziona perfettamente.
Grazie per il messaggio. Scarica il file e salva in excel. Apri il file in excel e da lì potrai vedere il codice e quindi verificare che tutto funzioni 👍. Fammi sapere. Ciao
Se non dovessi riuscire a scaricare il file il excel, scrivimi pure la tua mail, così ti invio il file come allegato. Ciao
@@AntoNardo79 Ho scaricato il file in excel e confrontato il codice con il tuo trovato sul file e sono identici quindi corretti ma cmq non funziona ancora.
Ciao. Ok appena posso vedo il file. Ciao 👍
Ciao Osvaldo. Ho controllato il file e funziona regolarmente. Registra i dati e l'immagine (URL) correttamente. Solo una pecca (da controllare con la versione 2021 di excel) il carinamente dell'immagine quando clicco sul filtro. Tutti i dati vengono riportati in modo corretto. Spero di aver risposto. Se non riesci a risolvere scrivimi. Vedrò di capire il problema. Ciao Osvaldo
Ciao buonasera e scusa il disturbo vorrei portare due domande:
1) Finito tutto quando vado a fare salva, ciò che ho scritto nel form viene si copiato nella worksheet corretta ma sulla riga sbagliata o meglio, come hai fatto vedere ho creato un foglio di lavoro in cui ho creato un elenco per un menù a tendina (questo menù finisce a riga 7) e quando il salva copia i dati del form non me li copia nella prima riga utile del worksheet 1 ma dalla riga 8 nonostante quelle prima siano vuote, come posso risolvere?
2) Invece per quanto riguarda il tasto delete è possibile inserire un determinato range di caselle che deve cancellare da una riga quando la si seleziona con la barra di ricerca?
Grazie anticipatamente.
Potresti aiutarmi per favore?
Ciao Daniele, grazie per il messaggio... per il punto 1. Dovresti provare a vedere il codice che hai scritto... Probabilmente hai inserito inizio riga 7. Fai questa prova: compila fino alla riga 10 inserendo i dati senza la maschera... direttamente attraverso le celle del foglio di lavoro. Dopo aver fatto questo, inseriscie un dato con la maschera di inserimento. Se copia i file nella riga 11 allora hai inserito come inizio riga appunto la 7....
Per il punto 2. La risposta è si. Devi inserire il codice delete sull'evvento attivo. Mi spiego:
Quando posizione il cursore del mouse nella casella di ricerca, si deve attivare il codice scritto per il pulsante Delete (con le sole caselle di cui si vuole cancellare il contenuto.)
Ciao, una guida a dir poco ottima e spiegata molto bene. Una cosa però non ho capito, o forse mi perso un passaggio, il bottone FILTRA. Non hai messo nessun codice a questo bottone o sbaglio? A cosa serve? scusa l'ignoranza ma sono da poco entrato in questo mondo :) grazie
Ciao Marco e grazie per il messaggio. In realtà il codice è presente anche sulla casella Filtra.
Ti lascio il codice che trovi nella spiegazione del Video.
trovi questo se clicchi Due Volte sulla Casella Filtra:
Private Sub cboFiltraRecord_Change()
Bene devi cambiare "Change" con "Click" come riportato sotto.
Private Sub cboFiltraRecord_Click()
Foglio1.Range("A4").Select
Do Until ActiveCell = ""
If Me.cboFiltraRecord.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value Then
Me.txtNome = ActiveCell.Value
Me.txtCognome = ActiveCell.Offset(0, 1).Value
If ActiveCell.Offset(0, 2).Value = "M" Then
Me.optMaschio = True
Else
Me.optFemmina = True
End If
Me.cboGiorno = Left(ActiveCell.Offset(0, 3).Value, 2)
Me.cboMese = Mid(ActiveCell.Offset(0, 3).Value, 4, 3)
Me.cboAnno = Right(ActiveCell.Offset(0, 3).Value, 4)
Me.txtIndirizzo = ActiveCell.Offset(0, 4)
Me.txtCitta = ActiveCell.Offset(0, 5)
Me.txtProvincia = ActiveCell.Offset(0, 6)
Me.txtCap = ActiveCell.Offset(0, 7)
Me.txtNumeroCell = ActiveCell.Offset(0, 8)
Me.txtEmail = ActiveCell.Offset(0, 9)
Me.txtURL = ActiveCell.Offset(0, 10)
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Spero di esserti stato d'aiuto.
Ottimo video esplicativo.
Una curiosità: nella mia Userform ho una Textbox "Note" che mi serve appunto per inserire note varie sul dipendente, con MaxLenght=100.
Ovviamente nella Form la Textbox è alta 3 linee e scrivo tutto in minuscolo. Vorrei che dopo ogni punto (e solo dopo quello) il 1° carattere si trasformasse in Maiuscolo (come è giusto che sia).
Come posso fare a scriverlo nel codice?
Ciao Nick, Scusami se ti rispondo solo adesso. Mi dispiace non poterti aiutare per questo specifico problema. Ho sempre scritto con le maiuscole dopo il punto.
Se mi sfugge una o più maiuscola queste si possono evidenziare (colorando le celle) dopo l'inserimento attraveso la userform con il seguente codice:
---
For Each cl In ActiveSheet.UsedRange
If Not Application.CheckSpelling(Word:=cl.Text) Then _
cl.Interior.ColorIndex = 20
Next cl
---
(Quindi con la correzione automantica di excel si possono correggere eventuali errori di inserimeto).
---
Questo codice devi inserirlo alla fine del tasto SALVA.
Una volta cliccato ed inserito i dati nelle celle, queste si colorano di azzurro (codice: 20) per evidenziare l'errore.
Spero possa essere una soluzione alla tua domanda.
@@AntoNardo79 Si certo che lo è. Grazie mille.
Purtroppo non riesco a trovare l'elenco che dovrebbe popolare la casella combinata ->FILTRA......sono un duro.
Ciao, prova a scaricare il file dal mio sito. Li potrai vedere il codice VBA. Magari metti a confronto i codici. Fammi sapere 👍
Ciao, dimenticavo nel codice del filtro ho cambiato nella prima riga FOGLIO1 con il nome che io ho deciso di dare al mio foglio.
Prova a lasciare figlio1
@@AntoNardo79 Niente non funziona....peccato.
Ciao Osvaldo... Non arrenderti. Anche a me capita di programmare e non riuscire a fare quello che vogliono. Risolvo trovando un'alternativa oppure rileggo più volte il codice. E qualche volta il codice non era scritto bene oppure faceva riferimento a qualcos'altro. Dai Osvaldo. Pensa a una soluzione alternativa. Oppure pensa a creare un filtro alternativo.
Hai controllato se il codice è sull'evento click? Probabilmente è su change... Controlla
Private sub cmbFiltraRecord_Click
... codice...
End Sub
@@AntoNardo79 Ciao, si si l'evento è click
Buongiorno Anto79, i tuoi video sono interessanti, però se ti può interessare ho fatto una piccola modifica nell'inserimento - If Me.txtNome = " " Then
Me.txtNome.BackColor = vbRed
MsgBox "Inserisci il nome", vbInformation, "INFO"
Me.txtNome.SetFocus
If Me.txtNome.BackColor = vbRed Then
Me.txtNome.BackColor = vbWhite
End If
cioè quando è nullo è rosso nel momento si posiziona in txtNome con setfocus diventa bianco. Non so se mi sono spiegato bene. Con l'occasione le auguro Buon Anno.
Ciao Alberto. Grazie per il commento e grazie per il suggerimento. Si credo anche io sia interessante. Inserirò il codice 👍
Salve sarebbe possibile avere una copia del file di esempio per visionarlo e studiarlo
Certamente... Inserisco il file nel mio sito: www.laforzainformatica.com/
Menu Excel.
Ciao Scusa ma si ferma tutto alla terza parte? non c'è anche una quarta parte?
Ciao, e grazie per il messaggio. Esatto, sono solo tre Video per la maschera inserimento Excel. Puoi scaricarte il file direttamente dal mio sito per poterlo confrontare con il tuo progetto. Grazie. Se hai altre domande, scrivimi nei commenti.
@@AntoNardo79 Ciao Grazie per avermi risposto si una domada ma adesso che ho creato tutto come faccio a salvare il tutto per poterlo usare? intendo rendere utilizzabili i vari pulsanti
Ciaoooo Daniele, devi fare: salva come "Carrella di lavoro con attenzione macro di Excel"
@@AntoNardo79 Grazie mille fatto ora però mi da errore bug nel comando Whrksheets(1).Range("999999").End(x1Up.Offset(1).Select e non capisco perchè
Worksheet ... Probabilmente è sbagliato
Quando clicco salva mi spunta "Errore di compilazione:
Blocco if senza End if
Ciao e grazie per il commento. Ti rispondo adesso perchè sono stato molto impegnato. Ho Fatto tutti i passaggi e funziona bene. Non mi da errore. Verifica il Codice👍