|
Ciao a tutti i ragazzi e moderatori del forum.
Sto cercando di creare un Database con VBA trasferendo i dati da 5 textbox alle celle excel.
Ho inserito nella cella A1 il cognome; B1 il nome; C1 indirizzo; D1 città e in E1 il cellullare.
Grazie e un saluto a tutti.
Il codice che ho scritto è questo ma mi da errore 1004. Mi aiutate a capire perchè? Lo potete correggere.
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Attenzione!Devi inserire il cognome", vbInformation, "Excel e VBA"
TextBox1.SetFocus
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "Attenzione!Devi inserire il nome", vbInformation, "Excel e VBA"
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
MsgBox "Attenzione!Devi inserire l'indirizzo", vbInformation, "Excel e VBA"
TextBox3.SetFocus
Exit Sub
End If
If TextBox4 = "" Then
MsgBox "Attenzione!Devi inserire la città", vbInformation, "Excel e VBA"
TextBox4.SetFocus
Exit Sub
End If
If TextBox5 = "" Then
MsgBox "Attenzione!Devi inserire il numero di cellullare", vbInformation, "Excel e VBA"
TextBox5.SetFocus
Exit Sub
End If
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = TextBox1
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
MsgBox "I dati sono stati inseriti correttamente.", vbInformation, "Excel e VBA"
End Sub
| 
