VBA - If selection from list is "Yes" then enter current date into other cell

[b105]

Scenario: I have multiple tables with different line items that need to be marked "Yes" for approved before they can be purchased - all tables have the same column layout and headings. I need the date of approval to show in corresponding row in another column and for that date to stay. So if the items is approved today and the file is opened tomorrow the date will not change to tomorrows date.

Specifics: I have an Approval Drop Down list with Yes/No/Pending options in Column G. Need for Column J corresponding row cell to update with current date once "Yes" is specifically selected from Column G, If not I want cells in column J cell to stay blank. Once that date is entered I want the date to not change so that once an item is approved you can look back to see what date it was approved on. I am looking for the specific VBA code that i can place into my worksheet(s).

[alansidman]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[b105]

Posting attachment

[alansidman]

Put this code in the Worksheet Change Event for the Worksheet you are posting to

Please Login or Register  to view this content.

[xladept]

Hi b,
Try this in your sheet module:

Please Login or Register  to view this content.

[b105]

Great it works, thank you both for two different options!

[xladept]

You're welcome and thanks for the rep!