How can my code do multiple if functions?

[jase888]

Ive got some code that checks if a cell is a number if it is then it runs a msgbox if its text or empty then displays a msgbox and halts.

I'm struggling to work out how i can get it to check other cells to display different msgboxs? As in check cell C5 is not empty else display msg box.

Private Sub cmdinvoiceadd_Click()    If IsNumeric(Range("C4").Value) And Not IsEmpty(Range("C4")) Then
        FinishInvoice
        invoiceclear
       Else
        MsgBox "Please enter Invoice number"
    End If
End Sub

 

[Special-K99]

This all depends how C5 relates to C4.
Should the C5 test be part of the existing If or should it be independent of the C4 test?

 

[jase888]

Good point it basically needs to check C4, C5, C9 & C10 and if anyone of them is missing txt not proceed. But it needs to show a error message to say which is missing so the user knows thats why i need different msg boxs

 

[Special-K99]

Am no VBA expert, base something on this

sub k1()
Dim i as string
i=""
if IsEmpty(Range("C4")) then
    i = "C4 "
End If
if IsEmpty(Range("C5")) then
    i = i & "C5 "
End If
if IsEmpty(Range("C9")) then
    i = i & "C9 "
End If
if IsEmpty(Range("C10")) then
    i = i & "C10"
End If
If (i<>"") then
    MsgBox "The following cells are empty: " & i
End If
end sub

 

[dmt32]

have a look at this thread:https://www.mrexcel.com/forum/excel-questions/1004027-check-if-any-cell-empty.html


and see if any solutions offered help you.

Dave