Show userform on macro

[Dave Punky]

Hi all,

I've created a Form / dialogue box (called Error) in VBA and I want this to display if a cell on my workbook is empty via a macro. I also need it to run another macro if these circumstances are not met.

Essentially what I have is:

If Range("A1").Value = 0 Then
Show Form (Error)
Else
Run Macro1
End If

I'm not sure exactly how I'm supposed to word this as all my attempts have failed. Can anybody provide any assistance in regards to this.

I'm running Excel 2003 for reference and literally my dialogue box has nothing to it.

 

[Domski]

I would call the form something other than just Error as I think it's a VBA reserved word. Maybe ErrorForm and then the code would be something like:

If Range("A1").Value = 0 Then
ErrorForm.Show
Else
Call Macro1
End If

Dom

 

[Dave Punky]

Thanks Domski that did the trick - Error for the name didn't seem to cause an issue but I changed the name just to be on the safe side.

In advancement to this, is there a way of having multiple if statements as I need to add another field if several conditions are not met, so basically mutiple IF statements all leading to the same conclusion - I can't remember exactly what I'm supposed to do. This is what I now need to do:

If Range("A1").Value = 0 Then
Form1.Show
If Range("A2").Value = 0 & Range("A3").Value = "Text" Then
Form2.Show
Range("A3").FormulaR1C1 = "NewText"
Else
Call Macro1
End If

I'm pretty sure theres a way of doing this, but it's not called IF it's some other statement. Any ideas?

 

[Dave Punky]

I'm gonna bump this - hopefully someone will see it and have some idea what I'm trying to do!

 

[mariog]

Thanks Domski that did the trick - Error for the name didn't seem to cause an issue but I changed the name just to be on the safe side.

In advancement to this, is there a way of having multiple if statements as I need to add another field if several conditions are not met, so basically mutiple IF statements all leading to the same conclusion - I can't remember exactly what I'm supposed to do. This is what I now need to do:

If Range("A1").Value = 0 Then
Form1.Show
If Range("A2").Value = 0 & Range("A3").Value = "Text" Then
Form2.Show
Range("A3").FormulaR1C1 = "NewText"
Else
Call Macro1
End If

I'm pretty sure theres a way of doing this, but it's not called IF it's some other statement. Any ideas?

You're probably thinking about SelectCase, but IF will work.

If Range("A1").Value = 0 Then
Form1.Show
Else
If Range("A2").Value = 0 & Range("A3").Value = "Text" Then
Form2.Show
Else
If Range("A3").FormulaR1C1 = "NewText" Then
Call Macro1
End If
End If
End If

 

[Trebor76]

Try this:

Sub Macro1()
    
    If Range("A1").Value = 5 Then
        Form1.Show
    ElseIf Range("A2").Value = 0 And Range("A3").Value = "Text" Then
        Form2.Show
    ElseIf Range("A3").Value = "NewText" Then
        Call Macro1
    End If

End Sub

 

[Dave Punky]

Thanks guys, both worked but I ended up using Trebor's as it's got a lot less statements at the end.

Very much appreciated for all the support!