button to add hits

[jammoca]

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 ?

 

[Peter_SSs]

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 ?

G'day Chris

I can't see anything inherently wrong with your code and it works for me. However, if you want an alternative suggestion ...

<font face=Courier New><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> First_Qtr_F_L_Click()<br>    Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = 1<br>End <SPAN style="color:#00007F">Sub</SPAN><br></FONT>