Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
emptyrow = WorksheetFunction.CountA(Range("C:C")) + 1
Cells(emptyrow, 3).Value = ComboBox1.Value
Cells(emptyrow, 4).Value = TextBox1.Value
Cells(emptyrow, 6).Value = TextBox2.Value
Cells(emptyrow, 7).Value = Format(Date, "d mmmm yyyy")
Cells(emptyrow, 8).Value = Format(Time, "hh:mm:ss")

Unload Me

End Sub

Private Sub CommandButton2_Click()
Unload Me

End Sub

Code: Select all

With Sheets("Data")
    emptyrow = .Range("C" & .Rows.Count).End(xlUp).Offset(1, 0).Row
    .Cells(emptyrow, 3).Value = ComboBox1.Value
    .Cells(emptyrow, 4).Value = TextBox1.Value
    .Cells(emptyrow, 6).Value = TextBox2.Value
    .Cells(emptyrow, 7).Value = Format(Date, "d mmmm yyyy")
    .Cells(emptyrow, 8).Value = Format(Time, "hh:mm:ss")
End With