Check for "x" and return notification of where "x" was found

[pgrad]

Hi All,

I would like to write some VBA to check a column of 2000 rows for the number 3.

If 3 is found then I would like a msg box to appear telling the user what row it is on and selecting that row.

If more than one instance of 3 is found then I would like this to repeat or loop until all corrections have been made.

So far all I have is:

If Range("AO9:AO2031") = 3 Then
            MsgBox " Please ensure you have no incomplete rows"
            Else

Any help or alternative soloutions much appreciated

Thanks
Paul

 

[JazzSP8]

Yeah - You missed out the label :P LOL

'This will check the figures in column AP, if any are equal to or greater than 0 it will return an error msg informing which row contains a value of three
                For i = 9 To 231
                If Cells(i, "AP").Value = "Monday" Then GoTo Skip
                If Cells(i, "AP").Value = "Tuesday" Then GoTo Skip
                If Cells(i, "AP").Value = "Wednesday" Then GoTo Skip
                If Cells(i, "AP").Value = "Thursday" Then GoTo Skip
                If Cells(i, "AP").Value = "Friday" Then GoTo Skip
                If Cells(i, "AP").Value = "Saturday" Then GoTo Skip
                If Cells(i, "AP").Value = "Sunday" Then GoTo Skip
                If Cells(i, "AP").Value <> 0 Then
                MsgBox "Please ensure you have no incomplete rows, check Row " & i
        
                Calculate
                Exit Sub
        
                End If
Skip:

Next i

 

[pgrad]

Once again thank you very much!!!!

 

[JazzSP8]

No problem Paul, glad to be able to help