Copy Top 10 conditional formatting down 1000+ rows

  • Thread starter Thread starter AdrianTCP
  • Start date Start date
A

AdrianTCP

I have 20 columns which I am using top 10 conditional formatting. When I
copy this (B3:T3) down to the bottom of my spreadsheet, the range changes to
(B4:T1200) instead of each row (such as row 4 = B4:T4 and row 10 = B10:T10).
Any ideas on how to copy this logic down the spreadsheet without doing it
row by row? thanks
 
This code should work. Start with leftmost cell in top, conditionally
formatted row.
Good luck!


Dim MyCounter As Integer
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Copy
For MyCounter = 1 To 1200
ActiveCell.Offset(1, 0).Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next MyCounter
End Sub
 
Back
Top