How to automatically insert date when text entered in neighboring

E

ek10101

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?
 
C

CLR

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
 
B

brian thompson3001 via OfficeKB.com

ek10101 said:
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
Click to expand...
hi

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

regards
 
E

ek10101

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.
 
T

tonystowe

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

Thanks

Tony

Simple, yet effective
 
C

CLR

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 said:
I don't understand this post. Could you rephrase please? Thanks for your
help.
Click to expand...
suggestions?
 
B

Ben Dummar

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.
 
Top