Set date and time in cells

[PaulS]

The function of a macro is:
Enter the current date in cell Ax (any cell on row x may be selected),
and enter the current time in cell Bx.
I have the following lines in the macro for filling the time:
Dim c As Range
' cell selected as variable
Set c = Selection
c = Hour(Now()) & ":" & Minute(Now())
' copy value of c also into cell H3
H3 = c
End Sub
My knowledge of macros is very limited; can you advise a good book?
Thanks
Paul

 

[Mike Blackman]

Hi,

You could just use;

Range("A1") = Date
Range("B1") = Time

 

[PaulS]

Thanks, this is very easy, but not enough.
I tried the following, but this will give errors. What is wrong?

Dim c As Range

' cell selected as variable
Set c = Selection
Range(Cells("A", c.Row)) = Today()
Range(Cells("B", c.Row)) = Hour(Now()) & ":" & Minute(Now())

' copy value of c also into cell H2 and H3 = header
Range(Cells("H2")) = Range(Cells("A", c.Row))
Range(Cells("H3")) = Range(Cells("B", c.Row))

End Sub

Thanks,
Paul

 

[Mike Blackman]

Hi,

How about;

' cell selected as variable
Set c = Selection
Range("A" & c.Row) = Date
Range("B" & c.Row) = Format(Time, "hh:mm")

' copy value of c also into cell H2 and H3 = header
Range("H2") = Range("A" & c.Row)
Range("H3") = Range("B" & c.Row)

 

[PaulS]

It works!
Thanks,
Paul