Is it possible to have static timestamp each time you run macro a new one is added to the row?

[rebeila]

I already have a code that enters data every time in a next row.
Now I would like to do the same with time but that it does not change at all. Basically I need a keyboard shortcut: ctrl+shift+:

Sub cardpackinsp()

Dim ws As Worksheet
Dim nextRow As Long

Set ws = Sheets("Data3")

nextRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row + 1


Range("'Data1'!$B6") = "=TODAY()"



ans = msgbox("Corrcet?", vbQuestion + vbYesNoCancel)

Select Case ans
Case vbYes
ws.Cells(nextRow, "C").Value = "Pass"
Case vbNo
ws.Cells(nextRow, "C").Value = "Fail"
End Select

ans = msgbox("Correct QTY?", vbQuestion + vbYesNoCancel)

Select Case ans
Case vbYes
ws.Cells(nextRow, "D").Value = "Pass"
Case vbNo
ws.Cells(nextRow, "D").Value = "Fail"
End Select

ans = msgbox("Position OK?", vbQuestion + vbYesNoCancel)
Select Case ans
Case vbYes
ws.Cells(nextRow, "E").Value = "Pass"
Case vbNo
ws.Cells(nextRow, "E").Value = "Fail"
End Select

 

[Joe4]

In VBA, if you use:

Range(...) = Date

it will hard-code the current date in that cell.

If you use:

Range(...) = Now()

it will hard-code the current date & time in that cell.

By the way, this is NOT a valid range reference:

Range("'Data1'!$B6")

It should be:

Sheets("Data1").Range("B6")

 

[rebeila]

In VBA, if you use:

Range(...) = Date

it will hard-code the current date in that cell.

If you use:

Range(...) = Now()

it will hard-code the current date & time in that cell.

By the way, this is NOT a valid range reference:

Range("'Data1'!$B6")

It should be:

Sheets("Data1").Range("B6")

Thank it almost works perfectly, but now I would like to make it go one row done each time i run macro, it works for everything else but not the time.

 

[Joe4]

Thank it almost works perfectly, but now I would like to make it go one row done each time i run macro, it works for everything else but not the time.

That was not part of your original question here, but didn't we already address about how to move down one row in your other thread I helped you with last week?
You should be able to apply the same logic. I showed you how to find the last row with data, and then just add one to that row number.

Actually, you already have a "nextRow" calculation in your code, so you would just have to follow the same logic and do the same thing for the other sheet.

 

[rebeila]

That was not part of your original question here, but didn't we already address about how to move down one row in your other thread I helped you with last week?
You should be able to apply the same logic. I showed you how to find the last row with data, and then just add one to that row number.

I will figure it out, but I just thought I that the existing code would work:

Dim ws As Worksheet
Dim nextRow As Long

Set ws = Sheets("Data3")

nextRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row + 1

Changing C to B bc of time

 

[Joe4]

If you want to find the last row with data in column B of your "Data3" sheet, you need to update the column reference to reflect that, i.e.

nextRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row + 1

Is that the problem you are having?

If not, I am afraid I do not understand what you are asking.

 

[rebeila]

In VBA, if you use:

Range(...) = Date

it will hard-code the current date in that cell.

If you use:

Range(...) = Now()

it will hard-code the current date & time in that cell.

By the way, this is NOT a valid range reference:

Range("'Data1'!$B6")

It should be:

Sheets("Data1").Range("B6")

This worked:
ws.Cells(nextRow, “b”).Value = now()

Thanks for help