Populate Combobox from Column A if Column J contains "abc"

[Dluxton]

All

I'm trying to populate a userform Combobox from a specific column in a worksheet, but only use the .additem if column 4 contains a specific text

Heading1	Heading2	Heading3	Heading4	Heading5
Value1			abc
Value2
Value3			abc
Value4

<tbody>
</tbody>

So Basically, i only want to show Value1 and Value 3 in my combobox options

Here's my current code. (This bit works perfect) But it's only getting a range from a single column. I'm thinking i need to extend the range to include column 4,

Private Sub UserForm_Initialize()
Dim t As Range
Dim x As Range
With Worksheets("Document Index")
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each t In .Range("A8:A" & lr)
cmbBoxSelect.AddItem t.Value
Next t
End With
End Sub

 

[Dluxton]

Is anyone able to help with this ?

 

[FormR]

Hi try:

Private Sub UserForm_Initialize()
Dim t As Range
Dim x As Range 'Doesn't seem to be in use!
With Worksheets("Document Index")
    lr = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For Each t In .Range("A8:A" & lr)
        If t.Offset(, 4).Value = "abc" Then
            cmbBoxSelect.AddItem t.Value
        End If
    Next t
End With
End Sub

 

[Dluxton]

Much appreciated. Worked a treat. Thanks.