non riesco ad aggiornare tabella tramite userform

ho preparato una userform molto semplice per inserire dati in una tabella ed eventualmente modificarli, l'inserimento funziona bene, per la modifica ho inserito una listbox che mi consente di selezionare la riga da modificare, la seleziono, le textbox mostrano i dati, li modifico tutti, clicco sul pulsante aggiorna e soltanto la modifica della prima textbox viene recepita.
Probabilmente l'errore è banale, ma non riesco a trovarlo.
Allego il codice

Public riga, modifica

Private Sub CommandButton1_Click()

Sheets("Registro").Visible = True
Sheets("Registro").Activate
Dim iRow As Integer
iRow = 5
While Cells(iRow, 1).Value <> ""
iRow = iRow + 1
Wend
Cells(iRow, 1) = iRow - 4
Cells(iRow, 2) = TextBox1
Cells(iRow, 3) = TextBox2
Unload Me

TextBox1 = ""
TextBox2 = ""
End Sub

Private Sub CommandButton2_Click()
Sheets("Registro").Visible = True
Sheets("Registro").Activate
Dim iRow As Integer
iRow = 5 + riga
'MsgBox (TextBox1 & TextBox2)
Cells(iRow, 2) = TextBox1
'MsgBox (TextBox1 & TextBox2)
Cells(iRow, 3) = TextBox2
'MsgBox (TextBox1 & TextBox2)
Unload Me
End Sub

Private Sub ListBox1_Click()
riga = ListBox1.ListIndex
'MsgBox ("riga = " & riga)
Sheets("Registro").Activate
Dim iRow As Integer
iRow = riga + 5
TextBox1 = Cells(iRow, 2)
TextBox2 = Cells(iRow, 3)
End Sub

potete scaricare il file da http://wikisend.com/download/997440/Userform.zip

 

Informazioni domanda


Ultimo aggiornamento febbraio 21, 2018 Visualizzazioni 992 Si applica a:
Risposta

ho preparato una userform molto semplice per inserire dati in una tabella ed eventualmente modificarli, l'inserimento funziona bene, per la modifica ho inserito una listbox che mi consente di selezionare la riga da modificare, la seleziono, le textbox mostrano i dati, li modifico tutti, clicco sul pulsante aggiorna e soltanto la modifica della prima textbox viene recepita.
Probabilmente l'errore è banale, ma non riesco a trovarlo.
Allego il codice


<cut>






Qui trovi un semplice esempio per gestire un foglio(non importa sia quello attivo) da una UserForm:

http://www.maurogsc.eu/esempiforum12/gestionefogliodauserform.zip

Premi CTRL+a per visualizzare la UserForm.

Semplice da adattare, altrimenti siamo (quasi) sempre qui.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.