Excel vba to color row based on wbs level [Closed]

Report
Posts
5
Registration date
Tuesday August 20, 2019
Status
Member
Last seen
August 26, 2019
-
 Blocked Profile -
Hello
I need a macro to change row color based on "Level" column.

Thanks
Ebti

1 reply

Here is a simple one. It looks for "one" in cell A of each row.

Sub colortherow ()
Thecounter=findlastrow ("yoursheet")
for each RC in Range ("A1:A"& thecounter)
If RC.value ="one" then
RC.entirerow.interior.color=vbRed
End if
Next
End sub

Function findlastrow (whatsheet)
Findlastrow=thisworkbook.worksheets(whatsheet).cells.(rows.count,1).end (xlUp).row
End function

Very simple.