judgejustin
Board Regular
- Joined
- Mar 3, 2014
- Messages
- 150
I created the following by recording what I need done. I am inserting data from one place to another. I first have to invert it and paste it as a values. Then I need that data to be pasted into another sheet at the top of the row, so I shift the row down. All of this works great. However I also need the conditional formating to be pasted into the final sheet as well. I can get everything to work except the conditional formatting to be pasted. I've tried playing around with the code but can't figure it out.
Code:
Sub Insert_New()
'
' Insert_New Macro
'
'
Range("D34:D49").Select
Selection.Copy
Range("H54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("H54:AC54").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Inventory Sheet").Select
Range("A5:V5").Select
Selection.Insert Shift:=xlDown
Sheets("Inventory Sheet").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("New Record Entry").Select
Range("C27:F27").Select
ActiveCell.FormulaR1C1 = ""
Range("F24").Select
ActiveCell.FormulaR1C1 = ""
Range("C24").Select
ActiveCell.FormulaR1C1 = ""
Range("F20").Select
ActiveCell.FormulaR1C1 = ""
Range("C20").Select
ActiveCell.FormulaR1C1 = ""
Range("D16").Select
ActiveCell.FormulaR1C1 = ""
Range("D14").Select
ActiveCell.FormulaR1C1 = ""
Range("D12").Select
ActiveCell.FormulaR1C1 = ""
Range("D10").Select
ActiveCell.FormulaR1C1 = ""
Range("D8").Select
ActiveCell.FormulaR1C1 = ""
Range("D4").Select
ActiveCell.FormulaR1C1 = ""
Range("D6:E6").Select
ActiveCell.FormulaR1C1 = ""
Range("D4").Select
End Sub