VBA code to put a timestamp in another sheet

[Verelst_Jan]

Hello,

I like to create a vba code that will fill in the date and time when you press it into another sheet. I wanne create one dashboard with buttons that will fill in the date in different sheets.
This i what i already found but this will fill it in the same sheet and cannot find how to change it. These is my first time with VBA


Private Sub Airlock_1()

Sheet1.Range("A9").Select
ActiveCell.EntireRow.Insert shift:=xlDown

Sheet1.Range("A10").Select
ActiveCell.Formula = Date

Sheet1.Range("B10").Select
ActiveCell.Formula = Time

End Sub

Regards,
Jan

 

[Alex Blakenburg]

Assuming you want to do the same as in your example being the latest date in Row 2 then see if this works for you:

Private Sub Airlock_1()

    Dim rngAirlock As Range
    Set rngAirlock = Sheets("Airlocks").Range("A2") ' Change the column for each Airlock
    
    rngAirlock.Insert CopyOrigin:=xlFormatFromRightOrBelow
    rngAirlock.Offset(-1).Value2 = Now

End Sub

 

[Verelst_Jan]

Hello thx already, where do i have to put this code ?

Regards,
Jan

 

[Verelst_Jan]

Hello thx already, where do i have to put this code ?

Regards,
Jan

Never mind, found it. You have been a great help, thx.

 

[Alex Blakenburg]

You're welcome.