If/Else error in VBA code (Else with out If error)

[Chelsea0270516]

Hello! I am currently working through some tutorials on youtube to help me figure out the syntax for VBA. While doing this I hit a road block - I am getting an error BUT I (think anyway) am following along exactly as the video does. And it works in the video.

If the cells A7 & B7 are empty the code should prompt the user to fill them out. But I get an Compile error: Else without If. BUT this code matches exactly what the video is doing...(minus the reference cells but I have that part down pat and the error isn't related to that)

Am I missing something? I just started using the _ so that could be wrong...

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD]Sub tutorial17()
If ThisWorkbook.Sheets("Sheets2").Range("A7").Value = "" _
Or ThisWorkbook.Sheets("Sheets2").Range("B7").Value = "" _
Then MsgBox "Please fill in all details."
Else

End If


End Sub
[/TD]
[/TR]
</tbody>[/TABLE]

 

[wesborland1234]

Just move MsgBox "Please fill in all details." to the next line. The format for an if then in Excel is:

If something then
do stuff
else
do other stuff
end if

And the line breaks are important. Also, I think you may have to change the reference to "Sheets2" to "Sheet2". (That is the default name created by Excel, unless you changed it)

 

[mumps]

Maybe:

Sub tutorial17()
    If ThisWorkbook.Sheets("Sheets2").Range("A7").Value = "" _
    Or ThisWorkbook.Sheets("Sheets2").Range("B7").Value = "" Then
       MsgBox "Please fill in all details."
    Else
    
    End If
 End Sub

 

[Chelsea0270516]

Just move MsgBox "Please fill in all details." to the next line. The format for an if then in Excel is:

If something then
do stuff
else
do other stuff
end if

And the line breaks are important. Also, I think you may have to change the reference to "Sheets2" to "Sheet2". (That is the default name created by Excel, unless you changed it)

Can you just teach everything language wise in VBA like that? The way you explained it made a lot more sense for my brain than most things I found online. Thanks! It works (I fixed the sheets typo & moved the msg box

 

[mumps]

Thank you for the rep.