Cell Color Change

  • Thread starter Thread starter daphoenix
  • Start date Start date
D

daphoenix

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

thanks
 
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
 
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.
 
Cells(i, mc).Interior.ColorIndex = 0
to
Cells(i, mc).ENTIREROW.Interior.ColorIndex = 0
 
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?
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel VBA 1
Change Color on rows, after an IF Funtion is answered 4
Excel Macro to automatically go to the right of the last colored cell 0
Function for summing or counting cells based on a specified fill color 2
Find and show fill color 4
Is there a way to change the color 3
How can I change the row height of specified rows? 2
Excel VBA - counting cells by colors and names to it in two different rows. 0

Back
Top