Auto Date

  • Thread starter Thread starter RJ Swain
  • Start date Start date
R

RJ Swain

Hello,

I am working on a spreadsheet that in cells B3:B43 I have a list that the
user can select a planet from the list. When they select a planet I would
like the worksheet to auto fill in the current date in cell O3. And when
cells B3:B43 are blank cell O3 will be blank as well.
 
If the date is to be always in O3 try the below. or if it is in Col O then
change Range("O3") = to Range("O" & Target.Row)=

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B3:B43")) Is Nothing Then
If WorksheetFunction.Count(Range("B3:B43")) <> 0 Then
Range("O3") = Date
Else
Range("O3") = ""
End If
End If
Application.EnableEvents = True
End Sub

If this post helps click Yes
 
Now a little twist to this. How can I have it auto update the date when
someone opens the excel spreadsheet? Right now, it puts in the date when the
data is entered but is it possible to have it auto update the date when the
user opens it up the following day?
 
Hi,

If you have a look tomorrow you'll see the formula Eduardo gave you will
have updated to tomorrows date.

Mike
 
Back
Top