Filtered data in Listbox based on Option buttons EXCEL VBA

A quick and simple way is to concatenate all of the TRUE/FALSE values and then run a loop through the selected optionbutton controls in the userform and concatenate all of those values and then compare the results and, if the result matches, add the info. from that row into the value to be displayed in the listbox.

Update:

I don't think you understood what I wrote above, put the below code into your UserForm and try it out:

Private Sub CommandButton1_Click()

Dim rng As Range
Dim row As Range
Dim cell As Range
Dim TFHolder As Variant
Dim OptionButtonValue As Variant
Dim Counter As Long
Dim RowValue() As Variant
Dim RowValue1(), RowValue2(), RowValue3() As Variant

Counter = 0


'Loop through the controls in the form.
For Each FormControl In Me.Controls

    'Check only OptionButtons
    If TypeName(FormControl) = "OptionButton" Then

        ' Check the status of the OptionButton.
        If FormControl.Value = True Then

            OptionButtonValue = FormControl.Caption & OptionButtonValue

        End If

    End If

Next

Set rng = Range("A1:R" & Range("A" & Rows.Count).End(xlUp).row)

For Each row In rng.Rows

    If row.row > 1 Then
        For Each cell In row.Cells
            If cell.Column > 3 Then
               TFHolder = UCase(cell.Value) & TFHolder
            End If
        Next cell

        'Check if row should appear in the list.
        If TFHolder = OptionButtonValue Then

            'make size of array
            ReDim Preserve RowValue1(Counter)
            ReDim Preserve RowValue2(Counter)
            ReDim Preserve RowValue3(Counter)

            'save row info

            'Rows
            RowValue1(Counter) = Cells(row.row, 1).Value
            RowValue2(Counter) = Cells(row.row, 2).Value
            RowValue3(Counter) = Cells(row.row, 3).Value

            'Counter increment
            Counter = Counter + 1

        End If

    End If
    TFHolder = ""

Next row

'Declare the array variable.
'Say how many rows there will be.
ReDim RowValue(Counter - 1, 2) As Variant

'Fill the array for the multi-column list.
For i = 0 To Counter - 1

    RowValue(i, 0) = RowValue1(i)
    RowValue(i, 1) = RowValue2(i)
    RowValue(i, 2) = RowValue3(i)

Next i


'Say how many columns there will be
ListBox1.ColumnCount = 3

'Set Column Widths
ListBox1.ColumnWidths = "20;50;50"


'Put the values into the ComboBox
ListBox1.List = RowValue

End Sub

This returns the results to the listbox in the userform based on the selected True/False values in the form.