Fill combo box based on different workbook values

[Jaye7]

Hi all,

I want to fill a userform combo box based on the data from a sheet in a different workbook.

The workbook and worksheet are as follows - Workbooks("Mlist.xlsm").Worksheets("Reminders")

The range is filled from Range("A2:A100") as long as the text in column E is "1 Show"

I want it to add the values from columns B and D also.

Image attached showing an example of spreadsheet data and then the combo box results.

Thanks

 

[Jaye7]

I solved it.

LB1.Clear
 
 Dim Sh As Worksheet
 Dim Rng As Range
 Dim c As Range
 Dim V1 As String, V2 As String, V3 As String
 
 Set Sh = Workbooks("Mlist.xlsm").Worksheets("REMINDERS")
 Set Rng = Sh.Range("A1:A" & Sh.Range("A1000").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
 For Each c In Rng


 If c.Offset(0, 4).Value = "1 Show" Then
 V1 = c
 V2 = c.Offset(0, 1).Value
 V3 = c.Offset(0, 3).Value
 
 With Me.LB1
    .ColumnCount = 3
    .ColumnWidths = "300;100;100"
    .AddItem
    .List(i, 0) = V1
    .List(i, 1) = V2
    .List(i, 2) = V3
    i = i + 1

End With


 'MsgBox V1
 End If
 Next c