software

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 SubVaya con Dios,
Chuck, CABGx3

quot;ek10101quot; wrote:

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

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

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

regards

--
bnt

Message posted via OfficeKB.com
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 quot;todayquot; command, the date changes
every day.

quot;brian thompson3001 via OfficeKB.comquot; wrote:

gt; ek10101 wrote:
gt; gt;I would like to set up my spreadsheet so that when I enter text in a certain
gt; gt;cell the date is automatically posted in the next cell over. Any suggestions
gt; hi
gt;
gt; try this, a1 being the text cell
gt; =IF(A1=quot;quot;,quot;quot;,TODAY()
gt;
gt; regards
gt;
gt; --
gt; bnt
gt;
gt; Message posted via OfficeKB.com
gt; www.officekb.com/Uwe/Forums.a...excel/200604/1
gt;

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

quot;CLRquot; wrote:

gt; Private Sub Worksheet_Change(ByVal Target As Range)
gt; 'Macro inserts date in cell to the right of the activecell upon value entry
gt; ActiveCell.Select
gt; If Not Selection Is Nothing Then
gt; Application.Selection.Offset(0, 1).Value = Date
gt; End If
gt; End Sub
gt;
gt;
gt; Vaya con Dios,
gt; Chuck, CABGx3
gt;
gt;
gt;
gt;
gt; quot;ek10101quot; wrote:
gt;
gt; gt; I would like to set up my spreadsheet so that when I enter text in a certain
gt; gt; 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 quot;=IF(A1=quot;quot;,quot;quot;,TODAY()quot; to decrease the time of entering my
data.

Thanks

Tony

Simple, yet effective!--
tonystowe
------------------------------------------------------------------------
tonystowe's Profile: www.excelforum.com/member.php...oamp;userid=33162
View this thread: www.excelforum.com/showthread...hreadid=529296My 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....

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

hth
Vaya con Dios,
Chuck, CABGx3quot;ek10101quot; gt; wrote in message
...
gt; I don't understand this post. Could you rephrase please? Thanks for your
gt; help.
gt;
gt; quot;CLRquot; wrote:
gt;
gt; gt; Private Sub Worksheet_Change(ByVal Target As Range)
gt; gt; 'Macro inserts date in cell to the right of the activecell upon value
entry
gt; gt; ActiveCell.Select
gt; gt; If Not Selection Is Nothing Then
gt; gt; Application.Selection.Offset(0, 1).Value = Date
gt; gt; End If
gt; gt; End Sub
gt; gt;
gt; gt;
gt; gt; Vaya con Dios,
gt; gt; Chuck, CABGx3
gt; gt;
gt; gt;
gt; gt;
gt; gt;
gt; gt; quot;ek10101quot; wrote:
gt; gt;
gt; gt; gt; I would like to set up my spreadsheet so that when I enter text in a
certain
gt; gt; gt; 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.
gt; Private Sub Worksheet_Change(ByVal Target As Range)
gt; 'Macro inserts date in cell to the right of the activecell upon value entry
gt; ActiveCell.Select
gt; If Not Selection Is Nothing Then
gt; Application.Selection.Offset(0, 1).Value = Date
gt; End If
gt; End Sub
gt;
gt;
gt; Vaya con Dios,
gt; Chuck, CABGx3
gt;
gt;
gt;
gt;
gt; quot;ek10101quot; wrote:
gt;
gt; gt; I would like to set up my spreadsheet so that when I enter text in a certain
gt; gt; cell the date is automatically posted in the next cell over. Any suggestions?