Enter Current Date in Cell Based on Value of another Cell

[bpolkusm]

Hi,

I have a sheet Named Master. in Column AC I have a drop down in Rows AC2-AC2195 with Values Yes and No. I am looking for away that when Yes or No is chosen in column AC2-AC2195 the current date is put in Column AD2-AD2195.

Example Cell AC2 has Value of Yes it the date of today 1.27.18 would populate in AD2. and this would work all the way down the columns. AC and AD

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window
This script applies to the entire column "AC"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 29 And Target.Value <> "" And Target.Value = "Yes" Or Target.Value = "No" Then
Target.Offset(0, 1).Value = Date
End If
End Sub

 

[bpolkusm]

Good Afternoon,

Thank you for the response the the code. The code only seems to be working on the No is selected and not the Yes.

Column AC AD
User Approval Date Approved
Yes
No 1/27/2018


Thanks again on the help with this.

 

[My Aswer Is This]

What does this mean?

User Approval Date Approved
Yes


You earlier said "Yes"

Are you now saying it will say:

"User Approval Date Approved Yes" ​

_{^{<strike>
</strike>}}​

 

[bpolkusm]

Hi,

When I choose Yes from the drop down in Column AC I would like the Date that Yes was chosen populated in AD.

Currently the Marco formula puts the date in if No is Chosen.

Thanks.

 

[My Aswer Is This]

The term "Yes" or "No" must be manually entered not entered as a result of a formula change.


I test all my scripts and have tested this several times.

If you enter "Yes" or "No" into column "AC" todays date will be entered into column "AD" same row.

Now you must enter "Yes" not "YES"

If this does not work for you then maybe you have other scripting in your sheet which conflicts with this script.

And you must enter only "Yes"

Not:

"Yes I want to go to the party"

 

[My Aswer Is This]

In your original post you never mentioned anything about a formula.

 

[bpolkusm]

Got it working. Thanks for all your efforts.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.
Would be curious what the problem was.

Got it working. Thanks for all your efforts.