Not sure if this will help but here a 2 different ways. Both will keep
date from changing the next day.
You can create a circular referance with this formula
=IF(B3="","",IF(C3="",NOW(),C3))
Or this will put the date in Column C using a macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Column >= 1 And Target.Column <= 2 Then
If Application.CountA(Cells(Target.Row, 1).Resize(, 2)) = 2 _
And IsEmpty(Cells(Target.Row, 3)) Then
Cells(Target.Row, 3).Value = Date
End If
End If
End Sub
On May 24, 11:09 am, "John A. Smith" <johnasmit...@gmail.com> wrote:
> Sub NOWENTRY()
> '
> Please help with my macro to enter current time and date into any cell I
> choose. It always goes back to the cell in the macro and I want it to work
> for the current cell the cursor is sitting on when I hit Ctrl+n.
>
> My Macro:
>
> ' NOWENTRY Macro
> ' Enters current time and date
> '
> ' Keyboard Shortcut: Ctrl+n
> '
> Range("B5029").Select
> ActiveCell.FormulaR1C1 = "=NOW()"
> Range("B5029").Select
> Selection.Copy
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> End Sub
> Thank you again for your help.
>
> John
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
