How to automatically insert date when text entered in neighboring

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

[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




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

[brian thompson3001 via OfficeKB.com]

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

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

"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
>

[ek10101]

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?

[tonystowe]

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!

[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" <[email protected]> wrote in message
news:[email protected]...
> 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?

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



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