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!

 

[MARK858]

I did research on Msgbox contents and i modified it. The user chose this.

Really? and it runs with your alteration back to the syntax that erred?

I wanted to add another msgbox for information when user click the button CHECK

If you put it in an else statement you will get a message box appear for every cell that doesn't have the word CHECK in it.

Does the code I posted not work? If not what does it not do?

 

[JEANNYNEWBIE]

I looks like this, and it works just fine!

It is for every cell?! that's why seems unending when i tried .

The code you gave was, without a doubt OK.. Thanks so much.

I just wanted to add another message box to prompt the user that [CHECKING FINISHED].

 

[JEANNYNEWBIE]

Sorry for the error, i tried to post the screen shot..

 

[My Aswer Is This]

Just add a new line on code at the end of your script like this:

Msgbox "We are done"

 

[JEANNYNEWBIE]

Just add a new line on code at the end of your script like this:

Msgbox "We are done"

thank you! that was easy!

But when there is no value [CHECK] in range, msgbox "We are done" does not appear

 

[My Aswer Is This]

thank you! that was easy!

But when there is no value [CHECK] in range, msgbox "We are done" does not appear

If you put this line of code as the last line in the script it must work.

If you cannot get this to work show me the script your using.

 

[JEANNYNEWBIE]

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

 

[My Aswer Is This]

Well I have been watching this posting but I have been confused from the beginning what your trying to do. So I have just watched Mark Help you.

So lets just wait and let Mark finish helping you.

 

[MARK858]

Well I have been watching this posting but I have been confused from the beginning what your trying to do. So I have just watched Mark Help you.

So lets just wait and let Mark finish helping you.

I won't be posting anything because I too am confused as the code in post number nine only gives the 2nd message box if there is no CANCEL in the range so really don't know the issue

 

[MARK858]

Especially confused as the bit in red will error as expected for me

Dim myCell 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
'Else
'MsgBox "CHECKING FINISHED", vbOKOnly + vbInformation
End If
Next

End Sub

and yet the OP states...

I looks like this, and it works just fine!

In response to

Really? and it runs with your alteration back to the syntax that erred?