Excel pop-up when date is changed if value of another cell is YES

[AdrianWebb]

Good morning/afternoon/evening,

Admittedly, I am not very computer savvy, but I have an Excel puzzle that I can't solve. I want a pop-up box to come up with a message that says "Please input audit data into Audit Sheet" whenever a date in column G is changed IF "YES" has been chosen in the cell in column E of the same row. So, for example, if the date in G5 is changed AND "YES" has been selected in E5, then the pop-up message should appear. Or if the date in G22 is changed AND "YES" has been selected in E22, then the pop-up message appears. From what I have read, I think that I will need to use VBA code to do this, but I know nothing about coding and couldn't find this exact situation to modify someone else's code.

Thank you in advance for sharing your skills!
Adrian

 

[abdelfattah]

Hi
I'm not sure if this is what you want . just test it
put the code in worksheet module not standard module , be careful.

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Column = 5 Then
If Target.Value = "yes" Then
    MsgBox "the date has been changed in cell" & " " & Target.Offset(, 2).Address & VBA.vbCrLf & " the  date is " & Target.Offset(, 2).Value, vbExclamation
End If
End If
End Sub

 

[AdrianWebb]

Hmm, it didn't work unfortunately. Do I need to add references to this code for the column/row or just copy/paste the code exactly as written. As I said before, I am computer illiterate!! I appreciate you taking the time to look at it and apologize for my slow response.

 

[AdrianWebb]

Hi
I'm not sure if this is what you want . just test it
put the code in worksheet module not standard module , be careful.

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Column = 5 Then
If Target.Value = "yes" Then
    MsgBox "the date has been changed in cell" & " " & Target.Offset(, 2).Address & VBA.vbCrLf & " the  date is " & Target.Offset(, 2).Value, vbExclamation
End If
End If
End Sub

Hmm, it didn't work unfortunately. Do I need to add references to this code for the column/row or just copy/paste the code exactly as written. As I said before, I am computer illiterate!! I appreciate you taking the time to look at it and apologize for my slow response.

 

[abdelfattah]

for example, if the date in G5 is changed AND "YES" has been selected in E5

some questions

where did you put the code?

ok right click on tab you have data and paste the code when open vba editor as in attached picture
based on picture should put the code into sheet1 module

do you write date manually also YES ?

do you have formula when write date should fill yes?