vba

[maxmasher]

i have a column of cells g4 to g25 and a button for which i would like the button to time stamp the next empty cell in the column

cheers

 

[mumps]

Assuming that you always want to time stamp G26, you can assign this macro to the button:

Sub test()
    Range("G26") = Now()
End Sub

If the location of the last cell in column G will vary, then use:

Sub test()
    Dim bottomG As Integer
    bottomG = Range("G" & Rows.Count).End(xlUp).Row
    Range("G" & bottomG + 1) = Now()
End Sub

 

[maxmasher]

thank very much

 

[mumps]

My pleasure.

 

[maxmasher]

works good, i have another button using this code but i only want to start from e45
thanks



Private Sub CommandButton1_Click()
Range("e" & Rows.Count).End(xlUp).Offset(1).Value = Time
End Sub

 

[mumps]

Where in column E do you want the time stamp? Is it in a specific cell or at the bottom of column E?

 

[maxmasher]

cell e45 then on next click e46 next click e47 etc

 

[mumps]

Try:

Sub test()
    Dim bottomE As Integer
    bottomE = Range("E" & Rows.Count).End(xlUp).Row
    Range("E" & bottomE + 1) = Now()
End Sub

 

[maxmasher]

no good i dont need to go bottom thats the code you already gave me which is fine thanks but i need to start at cell e45 and then e46 etc

 

[maxmasher]

sorted thanks