Remove fill

Topic

New Reply

I need to remove fill from multiple every other rows.

To create the rows I used this routine I found on the Internet at http://www.ozgrid.com:

Sub insertEveryOtherRow()

Do While Selection “”
Selection.EntireRow.Insert
Selection.Offset(3, 0).Select
Loop

End Sub

In hindsight I should have have had something to stop the formatting of the previous row being copied into the inserted row. However it’s a bit late for that now and in any event beyond my competence.

Perhaps a kind Lounger would offer me assistance that would be most gratefully received.

Malcolm

Reply | Quote

Replies

You should be able to modify the following macro:

Code:

Sub FixFormatting()
  Dim r As Long
  ' Adjust the lower and upper bounds as needed
  For r = 1 To 100 Step 3
	Rows(r).ClearFormats
  Next r
End Sub

Change the values 1 and 100 to what you need.

Reply | Quote

You should be able to modify the following macro:

Code:

Sub FixFormatting()
  Dim r As Long
  ' Adjust the lower and upper bounds as needed
  For r = 1 To 100 Step 3
	Rows(r).ClearFormats
  Next r
End Sub

Change the values 1 and 100 to what you need.

Hans,

Thank you for your help and rapid response. I was able to suitably modify the routine and use it successfully.

I am grateful indeed,

Malcolm

Reply | Quote