VBA UserForm listbox selection value to true on key press (enter)

[Mowgy]

Hi there,

I currently found on this board a code to activate optionbuttons or checkboxes via the enter key on a userform.

This is done through a class module.

(The post I used)

I would like to do the same with the listboxes I have.

I have tried doing exactly the same as above but I don't understand the code so not sure how to modify it to work...

I suppose this has to do with the fact that Listboxes are not simple yes/no but depending on the listindex ...

If anyone can help I would be eternally grateful.

Mowgy





Class Module code (renamed properly):

Public WithEvents ListBoxGroup As MSForms.ListBox

Private Sub ListBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then Me.ListBoxGroup.Value = Not Me.ListBoxGroup.Value
End Sub

Code in my userform

Dim Lists() As New ListBoxClass

Private Sub UserForm_Initialize()    
    Dim Ctrl As Control
    Dim Count As Integer
    Dim Count2 As Integer
    Dim Count3 As Integer
    
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "OptionButton" Then
            Count = Count + 1
            ReDim Preserve Buttons(1 To Count)
            Set Buttons(Count).OptionButtonGroup = Ctrl
        ElseIf TypeName(Ctrl) = "CheckBox" Then
            Count2 = Count2 + 1
            ReDim Preserve Boxes(1 To Count2)
            Set Boxes(Count2).CheckBoxGroup = Ctrl
        ElseIf TypeName(Ctrl) = "ListBox" Then
            Count3 = Count3 + 1
            ReDim Preserve Lists(1 To Count)
            Set Lists(Count3).ListBoxGroup = Ctrl
        End If
    Next
End Sub

 

[Andrew Poulsom]

Welcome to MrExcel.

What is it that you want the Enter key to do exactly? If you move up or down in a listbox the item under the cursor is selected.

 

[Mowgy]

Welcome to MrExcel.

What is it that you want the Enter key to do exactly? If you move up or down in a listbox the item under the cursor is selected.

Hi Andrew,

Thank you for the welcome.

I would like it to turn tick yes on the listbox.

I have the list box set up as a accepting multiple selections so each time one would press enter it would turn that selection to a True value. (I have it formatted as a combo box with the square tick boxes).

Similar to what the option buttons and checkboxes are doing with the code, if I tab to one, then press enter the value is turned to true / false.

Does that explain what I am trying to do ?

Cheers,

Mowgy

 

[Andrew Poulsom]

Try:

'Class module named ListBoxClass
Public WithEvents ListBoxGroup As MSForms.ListBox

Private Sub ListBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = 13 Then
        With Me.ListBoxGroup
            .Selected(.ListIndex) = Not .Selected(.ListIndex)
        End With
    End If
End Sub

'UserForm module


Dim Lists() As New ListBoxClass
Private Sub UserForm_Initialize()
    Dim Ctrl As Control
    Dim Count As Integer
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "ListBox" Then
            Count = Count + 1
            ReDim Preserve Lists(1 To Count)
            Set Lists(Count).ListBoxGroup = Ctrl
        End If
    Next
End Sub

 

[Mowgy]

Thanks a bunch !

Works like a charm !!

Many thanks Andrew