If Then statement not working

[Guard913]

Getting Error "End If without If" I need text to fill text box only if no caller for comment is selected and not pull dropdown, and if not go ahead and pull dropdown.

Private Sub Label1073_Click()

If Call_Form.Label1072.Caption = "Select Caller for Comment" Then
Call_Form.TextBox26.Value = "Select Caller for Comment First"

Else

Call_Form.ComboBox2.List = Sheets("Comments 2").Range("A2:A6").Value
ComboBox2.DropDown

End If

End Sub

 

[jasonb75]

Nothing stands out as being wrong with that code, is there some other code that could also be triggered at the point of the problem?

I notice that you haven't qualified the last line with the form name but I don't see that being the cause of the error that you're encountering.

 

[Guard913]

Nothing stands out as being wrong with that code, is there some other code that could also be triggered at the point of the problem?

I notice that you haven't qualified the last line with the form name but I don't see that being the cause of the error that you're encountering.

I ended up adding an exit sub before the else and it worked.... so... yea...

 

[jasonb75]

Best guess without seeing everything is that the line

Call_Form.TextBox26.Value = "Select Caller for Comment First"

is triggering a TextBox26_Change procedure which could be the origin of the error, although I don't see why exiting would fix it.

Regardless of that, as I mentioned above, if there are errors in your posted code that I'm not seeing, there are none that would result in the error that you have encountered. Adding 'Exit Sub' might have fixed the problem for now, but I would expect it to reappear somewhere else later.

 

[Guard913]

Best guess without seeing everything is that the line

Call_Form.TextBox26.Value = "Select Caller for Comment First"

is triggering a TextBox26_Change procedure which could be the origin of the error, although I don't see why exiting would fix it.

Regardless of that, as I mentioned above, if there are errors in your posted code that I'm not seeing, there are none that would result in the error that you have encountered. Adding 'Exit Sub' might have fixed the problem for now, but I would expect it to reappear somewhere else later.

Code that Works!

Private Sub Label1073_Click()
If Call_Form.Label1072.Caption = "Select Caller for Comment" Then
Call_Form.TextBox26.Value = "Select Caller for Comment First"

Exit Sub
Else

Call_Form.ComboBox2.List = Sheets("Comments 2").Range("A2:A6").Value
ComboBox2.DropDown
End If

End Sub

 

[jasonb75]

Code that Works!

For now...