Userform Listbox

[aellington287]

I've created a userform with a listbox populated with each month. If somebody doesn't click a month before clicking "Okay", I want a message box telling them to choose a month before the program continues to run. I know how to create a message box, but what kind of if statement could I use to denote no object being chosen? Hopefully this makes sense. Thanks in advance.

 

[tlowry]

“It’s easier to stay out than to get out.” Mark Twain

See my response to:

http://www.mrexcel.com/forum/excel-...m-data-validation-check-duplicates-entry.html

 

[Trebor76]

Hi aellington287,

You can something like this:

Private Sub cmdOK_Click()

    If Me.ListBox1.ListIndex = -1 Then
        MsgBox "No selection has been made!!"
        Exit Sub
    Else
        'Code here for the selection made from the ListBox
    End If

End Sub

Another way is to set the Enabled property of your OK button to False when the form opens (so it's greyed out) then to True once a selection form the ListBox is made.

HTH

Robert

 

[My Aswer Is This]

Try something like this:
Modify to your liking

Private Sub CommandButton1_Click()
If ListBox1.Text = xlnull Then
MsgBox "You must select a month from the list"
Exit Sub
End If
Cells(1, 3).Value = ListBox1.Value
ListBox1.ListIndex = -1
End Sub

 

[mikerickson]

You could disable the Okay button until they select a month

Private Sub Userform_Intialize()
     CommandButton1.Enabled = False
End Sub


Private Sub ListBox1_Change()
    CommandButton1.Enabled = (ListBox1.ListIndex <> -1)
End Sub