hi
add a commandbutton to yr UserForm and then add this piece of code. see if it helps you!
Private Sub CommandButton1_Click()
Application.ScreenUpdating = 0
'switch off screen updating to speed up code and prevent screen flickering
Dim rNextCl As Range
Dim NextRw As Long
With Sheet2 'find next empty row using Column A
NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(NextRw, 1).Value = Me.ComboBox1.Value
.Cells(NextRw, 2).Value = Me.TextBox1.Value
.Cells(NextRw, 2).NumberFormat = "dd\/mm\/yyyy"
.Cells(NextRw, 3).Value = Me.TextBox2.Value
.Cells(NextRw, 3).NumberFormat = "hh:mm"
.Cells(NextRw, 5).Value = Me.ComboBox2.Value
.Cells(NextRw, 6).Value = Me.ComboBox3.Value
.Cells(NextRw, 7).Value = Me.ComboBox4.Value
.Cells(NextRw, 8).Value = Me.ComboBox5.Value
.Cells(NextRw, 9).Value = Me.ComboBox6.Value
.Cells(NextRw, 10).Value = Me.ComboBox7.Value
.Cells(NextRw, 11).Value = Me.ComboBox8.Value
.Cells(NextRw, 12).Value = Me.ComboBox9.Value
End With
Application.ScreenUpdating = 1
Unload Me
UserForm1.Show
End Sub
Bookmarks