Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Cell Color Change
how would I Remove the fill color of every fourth row starting after the 4th
row. thanks |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Cell Color Change
Try this. If you want row 4 also just change 8 to 4
Sub removecolorfromcellsinrow() mc = "m" For i = 8 To Cells(Rows.Count, mc).End(xlUp).Row Step 4 'MsgBox i Cells(i, mc).Interior.ColorIndex = 0 Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... how would I Remove the fill color of every fourth row starting after the 4th row. thanks |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Cell Color Change
Thanks for the help again don,
the code that you gave me only changes the color in column M, how would I apply this to the entire row. "Don Guillett" wrote: Try this. If you want row 4 also just change 8 to 4 Sub removecolorfromcellsinrow() mc = "m" For i = 8 To Cells(Rows.Count, mc).End(xlUp).Row Step 4 'MsgBox i Cells(i, mc).Interior.ColorIndex = 0 Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... how would I Remove the fill color of every fourth row starting after the 4th row. thanks |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Cell Color Change
it works great thanks...but when running this the last row of the workbook is
still left filled in, is there a way to change this? "Don Guillett" wrote: Cells(i, mc).Interior.ColorIndex = 0 to Cells(i, mc).ENTIREROW.Interior.ColorIndex = 0 -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... Thanks for the help again don, the code that you gave me only changes the color in column M, how would I apply this to the entire row. "Don Guillett" wrote: Try this. If you want row 4 also just change 8 to 4 Sub removecolorfromcellsinrow() mc = "m" For i = 8 To Cells(Rows.Count, mc).End(xlUp).Row Step 4 'MsgBox i Cells(i, mc).Interior.ColorIndex = 0 Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... how would I Remove the fill color of every fourth row starting after the 4th row. thanks |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Cell Color Change
Must not be a multiple of 4. you could add the line just before end sub rows(Cells(Rows.Count, mc).End(xlUp).Row ).Interior.ColorIndex = 0 -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... it works great thanks...but when running this the last row of the workbook is still left filled in, is there a way to change this? "Don Guillett" wrote: Cells(i, mc).Interior.ColorIndex = 0 to Cells(i, mc).ENTIREROW.Interior.ColorIndex = 0 -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... Thanks for the help again don, the code that you gave me only changes the color in column M, how would I apply this to the entire row. "Don Guillett" wrote: Try this. If you want row 4 also just change 8 to 4 Sub removecolorfromcellsinrow() mc = "m" For i = 8 To Cells(Rows.Count, mc).End(xlUp).Row Step 4 'MsgBox i Cells(i, mc).Interior.ColorIndex = 0 Next i End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "daphoenix" wrote in message ... how would I Remove the fill color of every fourth row starting after the 4th row. thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change tab color based on current color of a cell | Excel Discussion (Misc queries) | |||
Can you change the color of one cell based on the color of another | Excel Discussion (Misc queries) | |||
Excel: Syntax to change cell color based on color of another cell | Excel Worksheet Functions | |||
change background row color with change of date in a cell | Excel Discussion (Misc queries) | |||
How to change the default Border, Font Color, and Cell Color | Excel Discussion (Misc queries) |