Run a macro in active cell only. Want to place current date/time.
 

Would like to make a Gate sign in sheet with a macro named ("GateIN") that
will return the current date/time in the active cell only. When the same
macro is run in an other cell I'd like the later current time to be entered
but leave the previous cell un-touched.

Run a macro in active cell only. Want to place current date/time.
 

time clock watcher,

PLEASE TEST THIS FIRST IN A COPY OF YOUR WORKBOOK (ALWAYS MAKE A BACKUP
COPY BEFORE TRYING NEW CODE, YOU NEVER KNOW WHAT YOU MIGHT LOSE).

Adding the Macro
1. Copy the below macro, by highlighting the macro code and pressing
the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
7. Press the keys ALT+Q to exit the Editor, and return to Excel.


Code:
--------------------


Sub GateIN()
With ActiveCell
.Value = Now
.NumberFormat = "mm/dd/yyyy hh:mm AM/PM"
End With
End Sub


--------------------



Then run the "GateIN" macro.


Have a great day,
Stan


--
stanleydgromjr
------------------------------------------------------------------------
stanleydgromjr's Profile: http://www.thecodecage.com/forumz/member.php?userid=503
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=117185

Run a macro in active cell only. Want to place current date/time.
 

Sub GateIN()
ActiveCell.value = Now
End sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"time clock watcher" wrote:

Would like to make a Gate sign in sheet with a macro named ("GateIN") that
will return the current date/time in the active cell only. When the same
macro is run in an other cell I'd like the later current time to be entered
but leave the previous cell un-touched.

Run a macro in active cell only. Want to place current date/time.
 

You probably want this

Code:
--------------------
Sub GateIN()
If ActiveCell = "" Then
ActiveCell.Value = Now
Else
ActiveCell.Offset(0, 1).Value = Now
End If
End Sub

--------------------
Luke M;421239 Wrote:
Sub GateIN()
ActiveCell.value = Now
End sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"time clock watcher" wrote:

Would like to make a Gate sign in sheet with a macro named ("GateIN")
that
will return the current date/time in the active cell only. When the
same
macro is run in an other cell I'd like the later current time to be
entered
but leave the previous cell un-touched.


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=117185