Ciao, avrei l'esigenza di aggiornare con Userform attiva, l'elenco dei dati visualizzati con la combobox in caso in cui inserisca un nuovo dato non in elenco
Al codice
If Not rng Is Nothing Then
'Application.Goto Rng, True
Else
risp = MsgBox("Voce non trovata" & Chr(10) & "Vuoi aggiungerla?", vbYesNo)
Select Case risp
Case vbYes
ur = Sheets("elenchi").Cells(Rows.Count, "b").End(xlUp).row
Sheets("elenchi").Cells(ur + 1, "b").Value = ComboBox1.Value (creato da un utente del Forum ), ho cercato di adattare un esempio trovato in una discussione del Forum
Dim Riga As Long (se ho capito bene, viene dichiarata una variabile Long perchè permette di inserire numeri contenuti in un intervallo troppo grande rispetto ad Integer.non capisco perchè usare Long se io devo inserire delle parole e non numeri)
Riga = ActiveCell.Row (viene individuata la riga selezionata)
ComboBox1.Value = "" (la cella a cui si riferisce la combobox è vuota)
Cells(Riga, 1) = TextBox1.Value (viene copiato il dato visualizzato nella TextBox nella riga selezionata)
Ho inserito nel codice delle spiegazioni tra () non con l'intenzione di "insegnare" a voi (figuriamoci se io posso spiegare a voi qualcosa di cui non so nulla) ma al contrario, per dimostrarvi che ho cercato di comprendere il significato del codice, anche se con scarsi risultati
![[SM=x423027]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0007.gif)