Ciao Loris
loris1998, 06/01/2017 12.24:
Ho notato che il campo Data è obbligatorio, nel senso che se non inserisco la data va tutto in errore. E' possibile eliminare questo obbligo e fare in modo di inserire gli altri dati senza la data?
Per far questo devi modificare la macro associata a pulsante "inserimento Dati" inserendo la riga che ti ho indicato (sei capace di farlo?)
vb
Private Sub CommandButton1_Click()
Dim i As Integer
Dim ur As Long
Dim sh As Worksheet
On Error Resume Next <======== Riga da aggiungere
Set sh = Worksheets("Gennaio 2017")
ur = sh.Cells(Rows.Count, 1).End(xlUp).Row
sh.Cells(ur + 1, 1).Value = CDate(Me.TextBox1.Value)
sh.Cells(ur + 1, 2).Value = Me.ComboBox1.Value
sh.Cells(ur + 1, 3).Value = Me.ComboBox2.Value
For i = 2 To 8
sh.Cells(ur + 1, i + 2).Value = Me.Controls("TextBox" & i).Value
Next i
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""
For i = 1 To 8
Me.Controls("TextBox" & i).Value = ""
Next i
End Sub
Alfredo