Pop-up message if specific cells contain value

[gato88]

Hi there

I would like to generate a pop-up message "Warning! Please check value!" if any of the following cells A4, D5, G7 contain any character.

Thank you in advance!

 

[BrianJN1]

Haven't tested but try this:

If range("A4").value <>"" or range("D5").value <>"" or range("G7").value <>"" then
MsgBox("Warning! Please check value!")
End if

One way or another this is what you appear to be seeking.

 

[SyedUsman]

GO TO VBA EDITOR

SELECT THE DESIRED SHEET & PASTE THE FOLLOWING CODE

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A4,D5,G7").Value <> "" Then MsgBox ("Warning! Please check value!")


End Sub

 

[gato88]

GO TO VBA EDITOR

SELECT THE DESIRED SHEET & PASTE THE FOLLOWING CODE

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A4,D5,G7").Value <> "" Then MsgBox ("Warning! Please check value!")


End Sub

Is it possible for the warning to appear only once after text is input in any of these 3 cells.
Once I click "OK" and proceed to input a value in any other cell on the worksheet, the warning still pops up on screen. I woud like the warning to only appear once.

 

[gato88]

Hi I tried this code and it seems to be doing what I want.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4,D5,G7")) Is Nothing Then Exit Sub
If Target.Value <> "" Then MsgBox "Please check value!", vbExclamation
End Sub


However, if the user deletes a value from any of the target cells, I get a runtime error (as per below)

Error 13: Type mismatch highlighting the following line
If Target.Value <> "" Then

 

[gato88]

Is it possible to stop the "worksheet_change" sub after the msgbox appears on screen?