Help with simple routine

[chobe]

I will never figure this stull out! Must be brain dead....Keep getting Else without If line 3

If Delete_Lst = Empty Then
    End If
ElseIf Delete_Lst = vbNo Then
    Exit Sub
ElseIf Delete_Lst = vbYes Then
    Delete_List
Else
'
End If

Thanks in advance!

 

[Rick Rothstein]

I will never figure this stull out! Must be brain dead....Keep getting Else without If line 3

If Delete_Lst = Empty Then
   [B][COLOR="#FF0000"] End If[/COLOR][/B]
ElseIf Delete_Lst = vbNo Then
    Exit Sub
ElseIf Delete_Lst = vbYes Then
    Delete_List
Else
'
End If

Thanks in advance!

The highlighted "End If" is closing off the "If..Then" above it so your "End If" at the end does not have an "If..Then" to pair with. Omit it and the "If..Then" will end automatically as there is no code in that block to execute.

 

[DanteAmor]

In this case you can use Select Case statement, I consider it easier to use.

    Select Case Delete_Lst
        Case Empty
            'Action a
        Case vbNo
            Exit Sub
        Case vbYes
            Delete_List
        Case Else
            'Action b
    End Select

 

[chobe]

The highlighted "End If" is closing off the "If..Then" above it so your "End If" at the end does not have an "If..Then" to pair with. Omit it and the "If..Then" will end automatically as there is no code in that block to execute.

Thanks Rick! Kinda figured when same End If was last test in the loop. Then Excel gave a clear error "End If without Block If".

Question is then, how do you exit a if then loop without exiting the entire sub?

 

[chobe]

Thanks Dante = will give it a try

 

[Rick Rothstein]

Thanks Rick! Kinda figured when same End If was last test in the loop. Then Excel gave a clear error "End If without Block If".

Question is then, how do you exit a if then loop without exiting the entire sub?

If you structure your If..Then correctly, only the items you want to be tested will be tested and anything else will just fall through to the statement after the End If. For example,

If X = 25 Then
  MsgBox "X equals 25"
ElseIf X = 30 Then
  MsgBox "X equals 30"
End If

In the above code, X = 25 or X = 30 is the only thing the IF..Then block will react to... for any other value, the If..Then block simply ignores it and execution resumes at the statement after the End If.

 

[DanteAmor]

Thanks Dante = will give it a try

Youre welcome, let me know if you have any questions.

 

[chobe]

If you structure your If..Then correctly, only the items you want to be tested will be tested and anything else will just fall through to the statement after the End If. For example,

If X = 25 Then
  MsgBox "X equals 25"
ElseIf X = 30 Then
  MsgBox "X equals 30"
End If

In the above code, X = 25 or X = 30 is the only thing the IF..Then block will react to... for any other value, the If..Then block simply ignores it and execution resumes at the statement after the End If.

Couldn't be more simple! Don't know why I couldn't see that. Thanks again!

 

[DanteAmor]

Couldn't be more simple! Don't know why I couldn't see that. Thanks again!

If you have the opportunity to review the Select Case statement, you can verify that it is just as simple.

    Select Case x
        Case 25
            MsgBox "x eq 25"
        Case 30
            MsgBox "x eq 30"
    End Select