VBA 04 IF Statements

[Pinaceous]

Hi All,

I've submitted a thread

VBA 03 IF Criteria Conditions

where I'm asking a similar question, but I feel as though I hit a wall based on a new condition, which I believe warrants this new string based on an additional criteria (3+1=4th criteria) being a 4th criteria.




Please forgive me, if I cannot see the obvious here as I'm really confused.

If IsEmpty(Sheet1.Range("A1").Value) Then
MsgBox "First!"

Where; If there is a NUMBER at Sheet1.A1 then go to next code:

Where; If IsEmpty(Sheet10.Range("A1").Value) Then
MsgBox "Second!"

If there is a NUMBER at Sheet1.A1 & Sheet10.A1 then go to next code:

Where; If IsEmpty(Sheet5.Range("A1").Value) Then
MsgBox "Third!"

Where; If there is a NUMBER at Sheet1.A1 & Sheet10.A1 & Sheet5.A1 then

[/CODE]

Where; If there is a NUMBER at Sheet1.A1 & Sheet10.A1 then

MsgBox "Good to Go!"

Can someone please help me piece together this into a single macro??

Thanks!

Pinaceous

 

[JoeMo]

Did not read your other thread, and not sure I understand what you want here, but maybe this will help:

Select Case True
       Case Not IsEmpty(Sheet1.Range("A1")): MsgBox "First!"
       Case Not IsEmpty(Sheet10.Range("A1")): MsgBox "Second!"
       Case Not IsEmpty(Sheet5.Range("A1")): MsgBox "Third!"
       Case Else: MsgBox "Good to go"
End Select

 

[Pinaceous]

Hi Joe,

Thanks for posting, you code seems like the one I need!

I'm going to test it out later.

Thanks again,
Pinaceous