I have a basic spreadsheet in sheet 1 and have added a button called 'First_Qtr_F_L' that when pressed is to send a '1' into the first available cell in column A in sheet 2.
When the button is pressed again, it should send another '1' into the next available cell in column A in sheet 2
and so on and so on.
This is the code I am using, but I know I have not written it correctly ...
Private Sub First_Qtr_F_L_Click()
Dim LR As Long
With Sheets("Sheet2")
LR = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LR).Value = "1"
End With
End Sub
Can someone please amend it for me ?
When the button is pressed again, it should send another '1' into the next available cell in column A in sheet 2
and so on and so on.
This is the code I am using, but I know I have not written it correctly ...
Private Sub First_Qtr_F_L_Click()
Dim LR As Long
With Sheets("Sheet2")
LR = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & LR).Value = "1"
End With
End Sub
Can someone please amend it for me ?