Hi all
I have a excel 2003 worksheet project I have put this into
vb 2008
can someone help me with the code for this I have 4 macros I need to run for the first one I have copy the code from excel into a new buttoncommand in
vb.
But there are a lot of problems I no this is a big ask and this my first time useing
vb
sample
Code:
Private Sub CommandButton1_Click()
Dim Count As Long
Count = 1
For i = 2 To 65536
If Cells(i, 1) <> "" Then
Count = Count + 1
End If
Next i
Dim date_row As Date
date_row = Cells(Count, 1).Value
date_row = date_row + 1
Sheets("Sheet1").Cells(1, 1)(Rows.Count, "A").End(xlUp).Offset(1).Value = date_row