Fast Loop for Forecolor change in Listview

Hi All,

I been working on changing the forecolor of a ListView SubItem based on a True or False value stored on a Sheet. I originally had a code working with an IF Statement that was placed in the For Next loop that loads Sheet1 (4500 rows and 16 columns) into Listview. Placing the IF statement in the loop slowed down the initialization of ListView dramatically. I've been working on a faster solution and almost have it with the exception of the getting ListView to recognize the rngY (range of cells TRUE) as the rows to color red.

Can someone help me figure this last line out?

Thanks

BigD

Please Login or Register  to view this content.

Here is the test file. Its set up to change TRUE to bold. The line above the Test font.bold is the one I'm trying to get working.

Thank you Alpha!

In my test file I got a Index Out Of Bounds error. I subtracted 1 from the row index (as below) and its working fine. I attached the updated test file.

ListView1.ListItems(rngY.Row - 1).ListSubItems(1).ForeColor = vbRed

In my main file that I've added this to, I did not get an Index Out Of Bounds error, but the red forecolor was out by one row down.
ie.. row 2 = TRUE, row 3 subitem 1 was red.

Subtracting 1 row corrected the problem, and the initialization time is much faster than when I added a IF Statement to the loop.

Now I am going to add this to the search sub and see if it will maintain the red forecolor after a search is preformed.

Again Thank you

BigD