I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions?

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro inserts date in cell to the right of the activecell upon value entry
ActiveCell.Select
If Not Selection Is Nothing Then
Application.Selection.Offset(0, 1).Value = Date
End If
End Sub


Vaya con Dios,
Chuck, CABGx3




"ek10101" wrote:

I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions?

ek10101 wrote:
I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions
hi

try this, a1 being the text cell
=IF(A1="","",TODAY()

regards

--
bnt

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200604/1

Thanks for the quick reply. It's close, except that I want the date to
update the day I enter the info, and then stay that date until the next time
that information is updated. With the "today" command, the date changes
every day.

"brian thompson3001 via OfficeKB.com" wrote:

ek10101 wrote:
I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions
hi

try this, a1 being the text cell
=IF(A1="","",TODAY()

regards

--
bnt

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200604/1

I don't understand this post. Could you rephrase please? Thanks for your
help.

"CLR" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro inserts date in cell to the right of the activecell upon value entry
ActiveCell.Select
If Not Selection Is Nothing Then
Application.Selection.Offset(0, 1).Value = Date
End If
End Sub


Vaya con Dios,
Chuck, CABGx3




"ek10101" wrote:

I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions?

I am currently using a spreadsheet that I have decided to use the above
formula "=IF(A1="","",TODAY()" to decrease the time of entering my
data.

Thanks

Tony

Simple, yet effective!


--
tonystowe
------------------------------------------------------------------------
tonystowe's Profile: http://www.excelforum.com/member.php...o&userid=33162
View this thread: http://www.excelforum.com/showthread...hreadid=529296

My previous response is a macro, actually called a ChangeEvent macro.....it
goes in the Worksheet module of whatever sheet you wish the feature applied
to........if you're new to macros, you might want to take a look at David
McRitchie's site....

http://www.mvps.org/dmcritchie/excel/excel.htm

hth
Vaya con Dios,
Chuck, CABGx3


"ek10101" wrote in message
...
I don't understand this post. Could you rephrase please? Thanks for your
help.

"CLR" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
'Macro inserts date in cell to the right of the activecell upon value
entry
ActiveCell.Select
If Not Selection Is Nothing Then
Application.Selection.Offset(0, 1).Value = Date
End If
End Sub


Vaya con Dios,
Chuck, CABGx3




"ek10101" wrote:

I would like to set up my spreadsheet so that when I enter text in a
certain
cell the date is automatically posted in the next cell over. Any
suggestions?

Chuck,

This macro is what I am looking for! Thanks!

How do I change it so that it only adds the date when any cell in column B
is updated instead of any cell in the spreadsheet.



Private Sub Worksheet_Change(ByVal Target As Range)
'Macro inserts date in cell to the right of the activecell upon value entry
ActiveCell.Select
If Not Selection Is Nothing Then
Application.Selection.Offset(0, 1).Value = Date
End If
End Sub


Vaya con Dios,
Chuck, CABGx3




"ek10101" wrote:

I would like to set up my spreadsheet so that when I enter text in a certain
cell the date is automatically posted in the next cell over. Any suggestions?