select independent items from multiple columns in listbox/combobox

[ricardomadaleno]

Good afternoon everyone,

I am designing a userform and I have run into a bit of an issue.

I have a listbox with four columns full of data, and i want to select one item without having to select the entire line across the 4 columns.

for instance:

1	2	3	4
5	6	7	8
9	10	11	12
13	14	15	16

<tbody>
</tbody>

Imagine that this is my list box. What I need is to be able to select the number 6 without having to select the entire second line.

is this possible? it doesn't have to be with a listbox or a combobox, I open to all suggestions.

thank you for your help

 

[mikerickson]

Here's another property, List will return the string that is in a the quad box.
QuadBox.List(rowIndex, colIndex) will return the value
QuadBox.List(oneArg) will treat the list as a single list, depending on .ZFlowOrder

Property Get List(argIndex As Long, Optional colIndex As Long = 5) As String
    Dim rIndex As Long, cIndex As Long
    CleanIndexValues argIndex, colIndex, rIndex, cIndex
    With Me
        List = .Columns(cIndex).List(rIndex)
    End With
End Property
Property Let List(argIndex As Long, Optional colIndex As Long = 5, newIndex As String)
    Dim rIndex As Long, cIndex As Long
    CleanIndexValues argIndex, colIndex, rIndex, cIndex
    Me.Columns(cIndex).List(rIndex) = newIndex
End Property
Private Sub CleanIndexValues(ByRef argIndex As Long, ByRef colIndex As Long, _
                                            ByRef rIndex As Long, ByRef cIndex As Long)
       If 4 < colIndex Then
        Rem one argument past, treat as folded list
        If ZFlowOrder Then
            rIndex = Int(argIndex / 4)
            cIndex = (argIndex) Mod 4
        Else
            cIndex = -1
            Do
                cIndex = cIndex + 1
                rIndex = argIndex
                argIndex = argIndex - Columns(cIndex).ListCount
            Loop Until argIndex < 0
        End If
    Else
        Rem two arguments passed
        rIndex = argIndex
        cIndex = colIndex
    End If
End Sub

 

[ricardomadaleno]

Hi Mike,

Than was amazing... thank you so much for you help.

I have a lot to learn about Class Modules yet, and this will surely help a lot to that as well.

Thanks