ListBox text color.

[asyamonique]

Good Day,
Is it possible to show a text with diferent color when the list pop up?
Like if there are words on the list as APPLE it will show the text color as red.
Many Thanks

Dim a, i As Long, ii As Long, b(), n As Long
ListBox1.Clear
With ComboBox1
If .Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Worksheets("list").Range("a:a"), .Text) = 0 Then
Exit Sub
End If
n = -1
a = Worksheets("list").Range("a1").Resize(Worksheets("list").Range("a" & Rows.Count).End(xlUp).Row, 35).Value
For i = 1 To UBound(a, 1)
If a(i, 1) = .Text Then
n = n + 2: ReDim Preserve b(1 To 35, 1 To n)
For ii = 1 To UBound(a, 2)
b(ii, n) = a(i, ii)
Next
End If
Next
End With
With ListBox1
.ColumnCount = 35
.ColumnWidths = "0;0;150;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;0"
.Column = b
End With

 

[DanteAmor]

Check Jaafar's links in post #3:

Listbox Change Row Colors

In A listbox, can you change the colors of each row in the listbox itself, i.e. row one in the listbox is white, row two is yellow or does it have to be one specific color. Thanks :confused::confused::confused:

www.mrexcel.com