Cell Color Change
 

how would I Remove the fill color of every fourth row starting after the 4th
row.

thanks

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

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

Cell Color Change
 

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

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

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