A few words of thanks would be greatly appreciated.

Excel VBA - - Msg Box when cell meets criteria

Latest update on December 11, 2009 at 06:06 AM by aakai1056 .

Issue
Solution
Note

Issue

Hi this will probably be very simple for someone however i am having a nightmare day, all I want is a VBA formula which will bring up a message box when a cell is showing a specific criteria.

Can anyone help?

Solution

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

Note

Thanks to Helper for this tip on the forum.

Excel VBA - - Msg Box when cell meets criteria
Excel VBA Msg Box when cell meets criteria ✓ - Forum - Excel
Excel vba copy row if cell value matches ✓ - Forum - Office Software
Excel vba find first empty cell in row - How-To - Excel
Excel vba last non empty cell in column - How-To - Excel
Excel vba run macro on cell change - How-To - Excel

This document, titled « Excel VBA - - Msg Box when cell meets criteria », is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).

VBA - Using the IF function for 2 cells

Excel - How to highlight duplicate rows?

Issue

Solution

Note

Subscribe To Our Newsletter!