La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Ciao, ho un problema con un form che inserisce correttamente la prima riga di dati sul foglio giusto ma sembra non riuscire a passare alla riga successiva. Vi allego il file, in questo caso si tratta del form "ospiti" che deve andare a modificare il foglio 2 "anagrafica ospiti". Ho provato anche a inserire il riferimento al foglio dopo il comando else ma si blocca ugualmente. Grazie in anticipo per l'aiuto..forse sto tentando di creare qualcosa che va ben oltre le mie capacità.
ciao
prova
Private Sub CommandButton1_Click()
Dim UltimaRiga As Long
nriga = 2
While Sheets("Anagrafica ospiti").Cells(nriga, 1) <> ""
nriga = nriga + 1
Wend
Sheets("Anagrafica ospiti").Cells(nriga, 1).Value = TextBox1.Value
Sheets("Anagrafica ospiti").Cells(nriga, 2).Value = TextBox2.Value
Sheets("Anagrafica ospiti").Cells(nriga, 3).Value = TextBox3.Value
Sheets("Anagrafica ospiti").Cells(nriga, 4).Value = TextBox4.Value
Sheets("Anagrafica ospiti").Cells(nriga, 5).Value = TextBox5.Value
Sheets("Anagrafica ospiti").Cells(nriga, 6).Value = TextBox6.Value
Sheets("Anagrafica ospiti").Cells(nriga, 7).Value = TextBox7.Value
Sheets("Anagrafica ospiti").Cells(nriga, 8).Value = TextBox8.Value
Sheets("Anagrafica ospiti").Cells(nriga, 9).Value = TextBox9.Value
Sheets("Anagrafica ospiti").Cells(nriga, 10).Value = TextBox10.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
End Sub
@gianfranco55 grazie davvero, funziona perfettamente! semplice ed efficace.
