Populate listBox with range if the rows where B contains a certain value

[Belleke]

Hello,
I want to populate a listBox with the rows where column B contains Yes, the rest schould not be in the listbox. Column A:D
I have this code but it does not work

Private Sub CheckBox1_Click()
    Dim r As Long
    Dim m As Long
    Dim wsh As Worksheet
    Set wsh = Worksheets("Facturen")
    If CheckBox1.Value = True Then
    ListBox1.Clear
    m = wsh.Range("B" & wsh.Rows.Count).End(xlUp).Row
    For r = 2 To m
        If wsh.Range("B" & r).Value = "Yes" Then
            Me.ListBox1.AddItem wsh.Range("B" & r)
        End If
    Next r
    End If
End Sub

Please advice

 

[PCosta87]

Hi @Belleke

The way I see it, you must have one of two problems (or both )

1) You may not have a "Checkbox1" object, so the code stops at

If CheckBox1.Value = True

To fix this delete the if condition, i.e. the following lines

If CheckBox1.Value = True Then

End If

2) You are inserting the code in a module instead of the sheet object... the code must be in Sheet "Facturen" as below:

Hope this helps

 

[Belleke]

Thank you my friend, I gonna play arround with it an come back to you

Thanks

 

[Belleke]

I solved it following your tips
Thank you again
Have a nice evening

 

[PCosta87]

I solved it following your tips
Thank you again
Have a nice evening

You are welcome