This worked for me.
Private Sub CommandButton1_Click()
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lr, 1) = DateSerial(Year(TextBox1.Value), Month(TextBox1.Value), 1)
End Sub
This worked for me.
Private Sub CommandButton1_Click()
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lr, 1) = DateSerial(Year(TextBox1.Value), Month(TextBox1.Value), 1)
End Sub
Last edited by david000; 03-25-2014 at 05:04 PM. Reason: double checked
"To a man with a hammer everything looks like a nail." - Mark Twain
Posting Permissions
Reply With Quote