Add inserting conditional format

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
 

Forum statistics

Threads
1,226,772
Messages
6,192,928
Members
453,767
Latest member
922aloose

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top