Modifica inserimenti

Hai un problema con Excel?

Nuova discussione

Modifica inserimenti
di gargiu data: 11/12/2015 23:49:51
Ciao a tutti, ho il seguente problema, all'evento clic di una ListBox popolo su una form tutta una serie di textBox. Nella form ho inserito la Commandbutto5 a cui ho applicato le istruzioni che leggete sotto, quasta mi dovrebbe modificare le righe del foglio secondo le modifiche che applico sulle singole TextBox. Quado clicco sulla CommandButton5, vedo il foglio di lavoro sfarfallare, ma non mi applica nessuna modifica. Siete in grado di dirmi cosa c'è di sbagliato del codice?

Grazie a tutti.

Private Sub CommandButton5_Click()
ActiveSheet.Unprotect
ActiveCell = TextBox1.Text
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = TextBox4.Text
ActiveCell.Offset(0, 4) = TextBox5.Text
ActiveCell.Offset(0, 5) = TextBox6.Text
ActiveCell.Offset(0, 6) = TextBox7.Text
ActiveCell.Offset(0, 7) = TextBox8.Text
ActiveCell.Offset(0, 8) = ComboBox1.Text
If OptionButton1.Value = True Then
    ActiveCell.Offset(0, 9) = "Membro"
    Else
    ActiveCell.Offset(0, 9) = "Ospite"
End If
ActiveCell.Offset(0, 10) = TextBox9.Text
ActiveCell.Offset(0, 11) = ruolo.Text
ActiveCell.Offset(0, 12) = ruolo2.Text
ActiveCell.Offset(0, 13) = TextBox13.Text
ActiveCell.Offset(0, 14) = TextBox14.Text

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ThisWorkbook.Save
End Sub

di cromagno data: 12/12/2015 09:57:07
Ciao,
a vederlo cosi non saprei...
allega un file di esempio.
di gargiu data: 12/12/2015 11:39:17
Allegato il file d'esempio. Il problema é nel pulsante denominato Modifica Utente.

Grazie per l'interesse
di cromagno data: 12/12/2015 12:43:31
Ciao,
facendo un pò di prove ho notato che dopo il primo inserimento veniva richiamato l'evento "ListBox1_Click" che in pratica ricompilava le textbox con i dati vecchi.
Non sono ancora riuscito a capire il motivo di questo richiamo e anche con "EnableEvents = False" non ho risolto, ma nel frattempo potresti "arrangiarti" utilizzando l'evento "ListBox1_DblClick" al posto di "ListBox1_Click", quindi per modificare i dati di una persona dovrai cliccare 2 volte sul nome.

Ti riallego il file...
di gargiu data: 12/12/2015 16:53:26
Effettivamente modificandolo come evento ListBox1_DblClick, ora funziona egregiamente anche il pulsante Modifica Utente.
Strano... perché c'è interferenza con l'evento click della LiszBox1? E tu come hai fatto a capirlo?

Grazie per la dritta.
di cromagno data: 12/12/2015 16:59:52
Ciao,
nemmeno io capisco perchè venga richiamato l'evento click della listbox... si dovrebbe spulciare per bene.

L'ho capito mettendo un "punto di interruzione".
Usando il tasto "modica" ho visto che il valore in colonna A veniva cambiato ma glia altri no, quindi ho messo un punto di interruzione alla riga successiva e dopo facendo il debug riga per riga (tasto F8) ho visto dove andava a finire.....
di gargiu data: 12/12/2015 17:11:13
Avevo provato anch'io il debug con l'interruzione riga per riga, ma non c'ero arrivato a questa interferenza.

Ancora grazie, e.... se non dovessimo più risentirci, BUONE FESTE.
di cromagno data: 12/12/2015 17:14:13
Buone Feste anche a te

Vuoi Approfondire?