Formating lost when cut and insert

[Greg Snidow]

Greetings all. I have a workbook with one sheet for every month of the year.
I often have to cut a row out of one sheet and insert it into another sheet.
I have conditional formatting that is the same on each sheet, that I used
format>conditional formatting to enter. The problem is that every time I
move a row to a different sheet, the conditional formatting is lost. Is
there a way I can add the contitional formatting to the macro that moves the
row? The macro, when run, cuts the highlighted row, inserts it into the new
sheet, then resorts the new sheet and puts the value lists back in the proper
place. Can I add code to set conditional formatting in a macro? Thank you.

 

[Per Jessen]

Hi

Copy the formatting from another cell with the desired formatting:

Sub test()
TargetRow = 5
Rows(1).Copy ' Row with desired formatting
Rows(TargetRow).PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub


Regards,
Per

 

[Greg Snidow]

Thanks Per, I don't know why I did not think of that, but it seems to work.
Thanks, and have a great holiday.