Auto filling a row
 

I need to fill a row with black if the value in the cell in column AL is
the letter "A". How would I do this?


Thanks


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566554

Auto filling a row
 

Sub xColor()
For r = 1 To Range("AL65536").End(xlUp).Offset(1, 0).Row
If Cells(r, 38) = "A" Then
Range("A" & r & ":IV" & r).Interior.ColorIndex = 1 ' The whole Row's
'Cells(r, 38).Interior.ColorIndex = 1 ' Only the cell in AL
End If
Next
End Sub



"phil2006" skrev:


I need to fill a row with black if the value in the cell in column AL is
the letter "A". How would I do this?


Thanks


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566554

Auto filling a row
 

Use Conditional Formatting;

Say you only want to affect rows 5 to 20;

Click in the Rowheader of Row 5 and (dragdown) highlite thru row 20;
Then Menu, CF, Select FormulaIs from drop-down - in box enter =$A5="A"
Format buttom Pattern Select BLACk, and Ok Out

Try it!!


"phil2006" wrote
in message :

I need to fill a row with black if the value in the cell in column AL is
the letter "A". How would I do this?


Thanks


--
phil2006
------------------------------------------------------------------------
phil2006's Profile: http://www.excelforum.com/member.php...o&userid=35092
View this thread: http://www.excelforum.com/showthread...hreadid=566554