Formating lost when cut and insert
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" skrev i meddelelsen
...
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
formatconditional 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.
|