If Cell A is not blank and Cell B is blank then......

[O177812]

I have a Macro that is checking a multitude of cells before submission of a form.
For a specific set of data I am trying to use the following:

ElseIf Range("B31") <> "" & Range("C31") = "" Then
MsgBox "Please enter a Sell Price for your first item"
Range("C31").Select

Basically, if the account manager has entered an item number but forgot to enter a price I want the macro to stop and a MsgBox reminder to appear.

 

[Joe4]

You want something like this:

If (Range("B31") <> "") And (Range("C31") = "") Then
    MsgBox "Please enter a Sell Price for your first item and try again!"
    Exit Sub
End If

 

[O177812]

You want something like this:

If (Range("B31") <> "") And (Range("C31") = "") Then
    MsgBox "Please enter a Sell Price for your first item and try again!"
    Exit Sub
End If

Thank you so much!.

I just encountered one additional challenge/sollution.
Instead of checking each cell in a row individually I believe it is possible to check all the cells.

ElseIf IsEmpty(Range("A31")) = False And Range("C31:P31") = "" Then
MsgBox "Your are missing some information for this item"
Range("C31").Select

Basically, without typing out a line for each individual cell. I want to check if there are any blank cells on row 31 between columns C & P I would like the macro to stop and the msg box appear.

Thank you in Advance!

 

[Joe4]

You can use the Excel COUNTA and COUNTBLANK functions to count how many cells in a range contain, or don't contain values.
You can use these functions in VBA by prefacing them with "Application.WorksheetFunction", i.e.

Application.WorksheetFunction.COUNTA(...)

 

[O177812]

So would it look something like this:

If IsEmpty(Range("A31")) = False And Application.WorksheetFunction.COUNTA(Range("B31:P31") >0 Then
MsgBox "Please enter a Quantity for your first item"

I'm a little rusty right now.

 

[Joe4]

If you want it to stop if there are any blank cells between B31 and P31, then I think you should be using COUNTBLANK, not COUNTA.
COUNTA counts if there is anything in the cell. If you want to check to see if there are any blanks in that range, you would either use:
COUNTBLANK > 0
or
COUNTA < 15
(since there are 15 cells in the range B31:P31)

Of course, the easiest way to see if it is working properly is to try it out for yourself, and see if it works!
Don't be afraid to try it out!

 

[O177812]

Made it work!!! Thanks for all your help!

 

[Joe4]

You are welcome.
Glad I was able to help!