Help with code

[Janeyo]

Hi, I need help with some code to copy a current time stamp which is a showing as an =NOW() in a static cell and paste it as a value into the next empty cell in a column on the press of a button. Can somebody help me please

 

[My Aswer Is This]

What is the static cell:
you said:
"in a static cell"

 

[Janeyo]

What is the static cell:
you said:
"in a static cell"

The static cell is "$B$2"

 

[AliGW]

You could apply this macro I just recorded to your button:

Sub Copy_Datestamp()
'
' Copy_Datestamp Macro
'

'
    Range("B2").Select
    Selection.Copy
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[My Aswer Is This]

ADVERTISEMENT

Try this:

Sub Test()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(Lastrow, "B").Value = Cells(2, "B").Value
End Sub

 

[Janeyo]

Try this:

Sub Test()
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(Lastrow, "B").Value = Cells(2, "B").Value
End Sub

Thank you. this works perfectly

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Thank you. this works perfectly