Excel vba to color row based on wbs level
Closed
Ebti59
Posts
5
Registration date
Tuesday 20 August 2019
Status
Member
Last seen
26 August 2019
-
21 Aug 2019 à 13:54
Blocked Profile - 21 Aug 2019 à 14:30
Blocked Profile - 21 Aug 2019 à 14:30
Related:
- Excel vba insert multiple rows based on cell value
- Excel vba find - Guide
- Insert key on keyboard - Guide
- Excel multiple lines in one cell - Guide
- Vba excel mac - Guide
- Vba insert multiple rows - Guide
1 response
Here is a simple one. It looks for "one" in cell A of each row.
Very simple.
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.
