Text in cell

[That's Confidential]

Me once again!

In cell A1, I have a drop down list with the options "Disposed" and
"Returned." Now, when either of these values are selected, in B1, I would
like today's date (the day's when the spreadsheet is being used date) to
appear.

Thanks once again people! You are all stars!

 

[Frank Kabel]

Hi
this could only be done with VBA 8using an event macro).
Put the following code in your worksheet module (note:
This won't work with Excel 97 as the worksheet_change
event is not triggered by a change of the drop-down
listbox. If you use Excel 97 you have to use a helper cell
referencing the drop down cell and use the
worksheet_calculate event):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
With Target
If .Value <> "" Then
Application.EnableEvents = False
.Offset(0, 1).NumberFormat = "MM-DD-YYYY"
.Offset(0, 1).Value = Now
Else
.Offset(0, 1).ClearContents
End If
End With

errhandler:
Application.EnableEvents = True
End Sub

 

[That's Confidential]

How do I enter this code into my worksheet module? I'm not so good with
using VBAs

Thanks

PS: I have Excel 2000

 

[JE McGimpsey]

Check out David McRitchie's "Getting Started with Macros"

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