Time Stamp

[still learning]

Hi
I'm using the following code to put the time in a cell:

Sub time()
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=now()"
    Selection.NumberFormat = "h:mm AM/PM"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Even though I have the NumberFormat as "h:mm AM/PM" I still get the date and seconds in the cell as well.

How do I chage the code to only get the Hour and Minutes?

Thanks


Mike

 

[JoeMo]

Try:

sub Time()
ActiveCell.Value = Time
end sub

 

[still learning]

Hi JoeMo
I copied and pasted the code as is, but when I try to use it, I get a message box that says
"Compile Error"
"Expected Function or Variable"
Being that I'm still learning, did I miss something

Mike

 

[JoeMo]

Where did you paste it? Do you have a worksheet active with at least one cell selected when you run the code? There's no way I can see why this simple 3-line module would generate a compile error.

 

[Peter_SSs]

There's no way I can see why this simple 3-line module would generate a compile error.

The issue is that you used the vba keyword Time for the name of your sub as well as using it in your sub.

My suggestion is

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> Time_stamp()<br>    <SPAN style="color:#00007F">With</SPAN> ActiveCell<br>        .NumberFormat = "h:mm AM/PM"<br>        .Value = Time<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[still learning]

Hi, JoeMO, Pete
Well, I don't know what happined, but both seem to work fine. The code time() showes seconds also, which I can easily format out. The code Time_stamp() doesn't.

I figure since it's working, don't try and fix it

Thanks agian for your time

Mike

No, I havn't had any, YET

 

[Peter_SSs]

Glad you have got something working and that the 'Reply' problem you were having seems to be resolved.

If you haven't done so already, you really should rename your macro so that it is not using a keyword as its name - that is not a good idea.