Colorize cells

[emukiss10]

Hello,

I would like to color cells in range of found row and column M. I can put colour to whole row but I would like to stop at last occupied column (in my case M)

Dim lrow As Long
Dim iCntr As Long




lrow = Range("M" & Rows.Count).End(xlUp).row
    For iCntr = lrow To 2 Step -1
        If Cells(iCntr, 13) <> "100,00%" Then    ' Yes, this is TEXT not % number
            Rows(iCntr).EntireRow.Interior.Color = RGB(237, 119, 119)
        End If
    Next

Help please

best Regards
W.

 

[wideboydixon]

Replace this:

Rows(iCntr).EntireRow.Interior.Color = RGB(237, 119, 119)

With this:

Range("A" & iCntr & ":M" & iCntr).Interior.Color = RGB(237, 119, 119)

WBD

 

[emukiss10]

Thank You very much, it is working.

Please see my other post. Challenge :/

"Seek'n'Destroy"