change the font color in listbox user form if theres a value in counter 9

[hsolanki]

Hi i have userform with the listbox and is it possible to change the color of the value if found in listbox below it is the code of the list values.

i want

Next
                    .AddItem
                    .List(counter, 0) = sourceCell.Offset(0, 0).Value
                     .List(counter, 1) = Application.Text(sourceCell.Offset(0, 1).Value, "hh:mm")
                    .List(counter, 2) = sourceCell.Offset(0, 2).Value
                    .List(counter, 3) = sourceCell.Offset(0, 3).Value
                    .List(counter, 4) = sourceCell.Offset(0, 4).Value
                    .List(counter, 5) = sourceCell.Offset(0, 5).Value
                    .List(counter, 6) = sourceCell.Offset(0, 6).Value
                    .List(counter, 7) = sourceCell.Offset(0, 7).Value
                    .List(counter, 8) = sourceCell.Offset(0, 8).Value
                    .List(counter, 9) = sourceCell.Offset(0, 9).Value   [COLOR=rgb(184, 49, 47)] 'color to be change if value is contain to Red or Blue[/COLOR]
               
                End With
               
                counter = counter + 1

 

[Fluff]

If you want to change the font colour for just one line, then I'm afraid your out of luck.

 

[hsolanki]

oh ok can the column in the listbox be changed color?

 

[Fluff]

Not that I'm aware of, it's all or nothing.

 

[hsolanki]

Thank you for quick reply, how do you change the color of all list box content?

 

[Fluff]

You can either change the forecolor in the properties window, or you can use something like

   Me.ListBox1.ForeColor = vbRed

 

[hsolanki]

Hi many thanks for the above better than nothing and also thank you for your promote respond.

 

[Fluff]

You're welcome & thanks for the feedback.