Auto Date/Time when click on cell

M

MAGICofSeth

As per the instructions, I will get straight to the point.

I would like to have a column of cells from "A9" down to "A(infinity)
that when I click on a single cell in that column, the current date an
time are entered into that cell only. If I were to click on a differen
cell in that column, the current date and time would automatically b
placed into that's cell only. Therby, two different times at leas
would be displated in two different cells which were clicked onl
clicked on a few moments apart.

The date and time need to be unchanging after it is "clicked" in. (no
constantly updating with the current date and time) which is m
problem.

That is all. If people could please email answers or VBA code to me at
[email protected] I would really be grateful.

Thank You!
--Set
 
C

chris

This is not your personal service if you want it come and get it

Private Sub Worksheet_SelectionChange(ByVal Target As Range
Set isect = Intersect(Target, Range("A:A")
If Not isect Is Nothing Then Target.Value = Now(
End Su
----- MAGICofSeth > wrote: ----

As per the instructions, I will get straight to the point

I would like to have a column of cells from "A9" down to "A(infinity)
that when I click on a single cell in that column, the current date an
time are entered into that cell only. If I were to click on a differen
cell in that column, the current date and time would automatically b
placed into that's cell only. Therby, two different times at leas
would be displated in two different cells which were clicked onl
clicked on a few moments apart

The date and time need to be unchanging after it is "clicked" in. (no
constantly updating with the current date and time) which is m
problem

That is all. If people could please email answers or VBA code to me at
[email protected] I would really be grateful

Thank You
--Set
 
R

Ron Rosenfeld

As per the instructions, I will get straight to the point.

I would like to have a column of cells from "A9" down to "A(infinity)"
that when I click on a single cell in that column, the current date and
time are entered into that cell only. If I were to click on a different
cell in that column, the current date and time would automatically be
placed into that's cell only. Therby, two different times at least
would be displated in two different cells which were clicked only
clicked on a few moments apart.

The date and time need to be unchanging after it is "clicked" in. (not
constantly updating with the current date and time) which is my
problem.

That is all. If people could please email answers or VBA code to me at:
[email protected] I would really be grateful.

Thank You!
--Seth
Click to expand...

See answer in another excel newsgroup to which you posted this identical
message!

--ron
 
C

chris: A9 correction

Private Sub Worksheet_SelectionChange(ByVal Target As Range
If Target.Cells.Count > 1 Then Exit Su
If Target.Row <= 8 Then Exit Su
Set isect = Intersect(Target, Range("A:A")
If Not isect Is Nothing Then Target.Value = Now(
End Su


----- chris wrote: ----

This is not your personal service if you want it come and get it

Private Sub Worksheet_SelectionChange(ByVal Target As Range
Set isect = Intersect(Target, Range("A:A")
If Not isect Is Nothing Then Target.Value = Now(
End Su
----- MAGICofSeth > wrote: ----

As per the instructions, I will get straight to the point

I would like to have a column of cells from "A9" down to "A(infinity)
that when I click on a single cell in that column, the current date an
time are entered into that cell only. If I were to click on a differen
cell in that column, the current date and time would automatically b
placed into that's cell only. Therby, two different times at leas
would be displated in two different cells which were clicked onl
clicked on a few moments apart

The date and time need to be unchanging after it is "clicked" in. (no
constantly updating with the current date and time) which is m
problem

That is all. If people could please email answers or VBA code to me at
[email protected] I would really be grateful

Thank You
--Set
 
Top