Checking If a listbox has a row selected

[Pacman52]

Hi could someone help me on this one please.. So, I have a listbox on a Userform. On the form I also have a Delete button which is disable when the form loads.

I'm trying to code the button to enable only if there is a row selected. I did give the following a try but no joy sadly.

If IsNull (listboxEvents) Then
MsgBox "Nothing Selected"
Else....

End if

thanks for any replies Paul

 

[Rick Rothstein]

Try using the ListBox's ListIndex property... it will be -1 if nothing is selected, otherwise it will be 0 to .ListCount-1

 

[Pacman52]

Hi Rick thanks for the reply - sorry but I'm not understanding what you mean?

Paul

 

[Pacman52]

just a follow up to say I worked it out using the code below - not sure if its the best method or not but it seems to work ok.

   If listboxEvents.ListIndex = 0 Then
    
    cmbDel.Enabled = True

    End If

 

[Rick Rothstein]

just a follow up to say I worked it out using the code below - not sure if its the best method or not but it seems to work ok.

   If listboxEvents.ListIndex = 0 Then
   
    cmbDel.Enabled = True

    End If

If the ListIndex = 0, that means the first item in the list is selected. If ListIndex = 1, that means the second item in the list is selected and so on up to a value equal to ListCount - 1 which would mean the last item in the list is selected. When no item in the list is selected, ListIndex = -1. I am not sure if your code, as written, will work if someone select an item other than the first item... whether it works or not might depend on other code you have associated with this. Anyway, with that said, this modification of your posted first line should work no matter what...

=IF listboxEvents.ListIndex > -1 Then

 

[Pacman52]

Hi Rick sorry for delay in responding - Thanks so much for the explanation it always helps knowing / understanding how something works. To be honest I think I was over thinking the issue as in reality there would never be nothing in the list once the end user starts to fill in the forms, that said I have changed the line of code as you kindly wrote just to cover all options.

Many thanks Paul