VBA MsgBox

[george hart]

Hi all

The code below works great, in that I get a message each time should the condition be true. However, if the condition is not true I just "one" message to pop up and say "none found"

For X = 2 To Cells(Rows.Count, "H").End(xlUp).Row

If Range("N" & X) <= 30 _
And Range("AB" & X) = "" Then MsgBox Range("C" & X).Value & " Currently show a review date <=30 days where Document review arranged is blank"

Next
End Sub

Many thanks in advance

 

[Weaver]

maybe like this:

Sub test()
    Dim n As Boolean
    n = True
    For X = 2 To Cells(Rows.Count, "H").End(xlUp).Row
        If Range("N" & X) <= 30 And Range("AB" & X) = "" Then
            MsgBox Range("C" & X).Value & " Currently show a review date <=30 days where Document review arranged is blank"
            n = False
        End If
    Next
    If n Then MsgBox "None found"
End Sub

 

[george hart]

Thanks very much - worked a treat

Thanks again...