Msgbox with certain value

[JEANNYNEWBIE]

Hi, I am currently studying the VBA and trying out this on my file but i got runtime error..

In my worksheet "SHIPPED", range "C3:C600"
I would like to have a message pop up when the cell contains "CHECK"
Other text found this column varies so I wanted t have a msg alert when there is "CHECK" in this range.


Private Sub Check_Price()

If Range("C3:C6000").Value = "CHECK" Then
MsgBox "Error in Price", chr10, "Please check Shipping Instruction"
End If

End Sub

Please help.. thanks you so much!

 

[dmt32]

Here:

Sub CHECK()

Dim myCel As Range
For Each myCell In Sheets("SHIPPED").Range("C3:C6000")
If myCell.Value = "CHECK" Then
MsgBox "Please check Shipping Instruction and/or Invoice", Chr10, "ERROR IN PRICE", vbOKOnly, vbExclamation


Exit Sub
MsgBox "CHECKING FINISHED", vbOKOnly + vbInformation
End If


Next

End Sub

See if this solution does what you want

Sub CHECK()
    Dim rng As Range
    Dim m As Variant
    
    With WorkSheets("SHIPPED")
        Set rng = .Range(.Range("C3"), .Range("C" & .Rows.Count).End(xlUp))
    End With
    
    m = Application.Match("CHECK", rng, 0)
    
    If Not IsError(m) Then
        rng.Cells(CLng(m), 1).Select
        MsgBox "ERROR IN PRICE" & Chr(10) & "Please check Shipping Instruction and/or Invoice.", _
        vbOKOnly + vbExclamation, "ERROR IN PRICE"
    Else
        MsgBox "CHECKING FINISHED", vbOKOnly + vbInformation, "Check Complete"
    End If


End Sub

Dave

 

[JEANNYNEWBIE]

sorry for the confusion.

thanking your for the help