Excel VBA Msg Box when cell meets criteria
Solved/Closed
Iangough16

Feb 9, 2009 at 06:33 AM
rizvisa1
rizvisa1
 Posts
 4479
 Registration date
 Thursday January 28, 2010
 Status
 Contributor
 Last seen
 May 5, 2022
Related:
 Excel vba msgbox when cell meets criteria
 Excel pop up message based on cell value  Best answers
 Excel vba pop up message depending on cell value  Best answers
 Excel : Different Criteria for excel to look ✓  Forum  Excel
 Help with interface/msgbox in vba ✓  Forum  Excel
 VBA to color cells baised on cell above  Forum  Programming
 Copying cells if criteria is met  Forum  Excel
 Excel MsgBox Alerts  PopUp  Forum  Excel
2 replies
This code assumes that what you are looking for is in column A.
Private Sub Find_Criteria()
Dim i
Dim r
r = Range("A65536").End(xlUp).Row
i = 1
For I = I To r
If Range("A" & i) = "criteria" Then
MsgBox "Found" & " " & Range("A" & i).Address
End If
Next i
End Sub
If you are looking for certain criteria in a range of cells, then try something like this.
Private Sub Find_Criteria()
Dim I As Variant
Dim FindRange As Range
Set FindRange = Range("A1:K50")
For Each I In FindRange
If I = "criteria" Then
MsgBox "Found" & " " & i.Address
End If
Next i
End Sub
Private Sub Find_Criteria()
Dim i
Dim r
r = Range("A65536").End(xlUp).Row
i = 1
For I = I To r
If Range("A" & i) = "criteria" Then
MsgBox "Found" & " " & Range("A" & i).Address
End If
Next i
End Sub
If you are looking for certain criteria in a range of cells, then try something like this.
Private Sub Find_Criteria()
Dim I As Variant
Dim FindRange As Range
Set FindRange = Range("A1:K50")
For Each I In FindRange
If I = "criteria" Then
MsgBox "Found" & " " & i.Address
End If
Next i
End Sub