Ask your question Print Format Forum list Help them Statistics Search Charter Forum Office software

Excel VBA Msg Box when cell meets criteria

Last answer on Feb 9, 2009 7:08:17 pm GMT Iangough16, on Feb 9, 2009 11:33:17 am GMT

Report this message to moderators

Hello,

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

Can anyone help?

Cheers

Ian

Configuration: Windows XP
Internet Explorer 7.0

Best answers for « Excel VBA Msg Box when cell meets criteria » in :

This page

This code assumes that what you are looking for is in column Read more

Ask your question Reply

Helper, on Feb 9, 2009 7:08:17 pm GMT

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

Reply to Helper

Ask your question Reply