• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 96
  • Last Modified:

Seeking Automated or VBA procedure that automatically enters today's dates.....

Seeking A procedure that automatically enters today's date as the Actual Closeout Date when the related EPR value is changed to "Yes", or changes the Actual Closeout Date to "N/A" when the EPR closed value is "No" or "Blank".
1 Solution
Please upload a sample.
Glenn RayExcel VBA DeveloperCommented:
Yep, it would have been better to attach the latest version of the workbook.  But, here's the code that I think will work; it's inserted in the EPR sheet object in VBA:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 And Target.Row >= 3 And Target.Row <= 20 And Target.Rows.Count = 1 Then
        If Target.Value = "Yes" Then
            Target.Offset(0, 1).Value = Now()
            Target.Offset(0, 1).Value = "N/A"
        End If
    End If
End Sub

Open in new window

Modified workbook attached.

cfhasan1Author Commented:
Worked out great!

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now