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





On 5/11/2010 2:19 PM, AdrianTCP wrote:
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