Hello-
I am working on an automation project within the plant to display on multiple monitors a list of production orders. I have recorded a macro that will insert a column and define the Location of a Production Order based upon the Work Center. There are no issues whiles recording the macro, but when I go to use it again, I am getting an error. It has to do with the ActiveCell.FormulaR1C1, I believe. I have listed it below....any help would be greatly appreciated.
Sub TRIAL1()
'
' TRIAL1 Macro
'
'
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D1").Select
ActiveCell.FormulaR1C1 = "LOCATION"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[1]=""1A"",""MACH SHOP"",IF(RC[1]=""1B"",""MACH SHOP"",IF(RC[1]=""1C"",""MACH SHOP"",IF(RC[1]=""1D"",""MACH SHOP"",IF(RC[1]=""1E"",""MACH SHOP"",IF(RC[1]=""1F"",""MACH SHOP"",IF(RC[1]=""1G"",""MACH SHOP"",IF(RC[1]=""1I"",""MACH SHOP"",IF(RC[1]=""1L"",""MACH SHOP"",IF(RC[1]=""1N"",""MACH SHOP"",IF(RC[1]=""1P"",""MACH SHOP"",IF(RC[1]=""1R"",""MACH SHOP"",IF(RC[1" & _
",""MACH SHOP"",IF(2=""1T"",""MACH SHOP"",IF(RC[1]=""1V"",""MACH SHOP"",IF(RC[1]=""2D"",""FABRICATION"",IF(RC[1]=""2E"",""FABRICATION"",IF(RC[1]=""2F"",""FABRICATION"",IF(RC[1]=""2G"",""FABRICATION"",IF(RC[1]=""2H"",""FABRICATION"",IF(RC[1]=""2J"",""FABRICATION"",IF(RC[1]=""2K"",""FABRICATION"",IF(RC[1]=""2L"",""FABRICATION"",IF(RC[1]=""3E"",""FABRICATION"",IF(RC[1]=" & _
"FABRICATION"",IF(RC[1]=""3G"",""FABRICATION"",IF(RC[1]=""3I"",""FABRICATION"",IF(RC[1]=""1M"",""CUTTING"",IF(RC[1]=""3A"",""CUTTING"",IF(RC[1]=""3B"",""CUTTING"",IF(RC[1]=""3C"",""CUTTING"",IF(RC[1]=""3H"",""CUTTING"",IF(RC[1]=""3K"",""CUTTING"",IF(RC[1]=""4C"",""ASSEMBLY"",IF(RC[1]=""4D"",""ASSEMBLY"",IF(RC[1]=""4E"",""ASSEMBLY"",IF(RC[1]=""4F"",""ASSEMBLY"",IF(RC[" & _
",""ASSEMBLY"",IF(RC[1]=""4I"",""ASSEMBLY"",IF(RC[1]=""4J"",""ASSEMBLY"",IF(RC[1]=""4X"",""ASSEMBLY"",IF(RC[1]=""4B"",""REPAIR ASSY"",IF(RC[1]=""4R"",""REPAIR ASSY"",IF(RC[1]=""4S"",""REPAIR ASSY"",IF(RC[1]=""4T"",""REPAIR ASSY"",IF(RC[1]=""4U"",""REPAIR ASSY"",IF(RC[1]=""4V"",""REPAIR ASSY"",IF(RC[1]=""4W"",""REPAIR ASSY"",IF(RC[1]=""4K"",""SHIPPING"",IF(RC[1]=""ENG" & _
"REWORK"",IF(RC[1]=""IC"",""INVENTORY CTRL"",IF(RC[1]=""OP"",""OUTSIDE PROD"",IF(RC[1]=""QC"",""QUALITY CTRL"",IF(RC[1]=""RE"",""REWORK"","" ""))))))))))))))))))))))))))))))))))))))))))))))))))))))"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D1258")
Range("D2:D1258").Select
End Sub
I am working on an automation project within the plant to display on multiple monitors a list of production orders. I have recorded a macro that will insert a column and define the Location of a Production Order based upon the Work Center. There are no issues whiles recording the macro, but when I go to use it again, I am getting an error. It has to do with the ActiveCell.FormulaR1C1, I believe. I have listed it below....any help would be greatly appreciated.
Sub TRIAL1()
'
' TRIAL1 Macro
'
'
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D1").Select
ActiveCell.FormulaR1C1 = "LOCATION"
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[1]=""1A"",""MACH SHOP"",IF(RC[1]=""1B"",""MACH SHOP"",IF(RC[1]=""1C"",""MACH SHOP"",IF(RC[1]=""1D"",""MACH SHOP"",IF(RC[1]=""1E"",""MACH SHOP"",IF(RC[1]=""1F"",""MACH SHOP"",IF(RC[1]=""1G"",""MACH SHOP"",IF(RC[1]=""1I"",""MACH SHOP"",IF(RC[1]=""1L"",""MACH SHOP"",IF(RC[1]=""1N"",""MACH SHOP"",IF(RC[1]=""1P"",""MACH SHOP"",IF(RC[1]=""1R"",""MACH SHOP"",IF(RC[1" & _
",""MACH SHOP"",IF(2=""1T"",""MACH SHOP"",IF(RC[1]=""1V"",""MACH SHOP"",IF(RC[1]=""2D"",""FABRICATION"",IF(RC[1]=""2E"",""FABRICATION"",IF(RC[1]=""2F"",""FABRICATION"",IF(RC[1]=""2G"",""FABRICATION"",IF(RC[1]=""2H"",""FABRICATION"",IF(RC[1]=""2J"",""FABRICATION"",IF(RC[1]=""2K"",""FABRICATION"",IF(RC[1]=""2L"",""FABRICATION"",IF(RC[1]=""3E"",""FABRICATION"",IF(RC[1]=" & _
"FABRICATION"",IF(RC[1]=""3G"",""FABRICATION"",IF(RC[1]=""3I"",""FABRICATION"",IF(RC[1]=""1M"",""CUTTING"",IF(RC[1]=""3A"",""CUTTING"",IF(RC[1]=""3B"",""CUTTING"",IF(RC[1]=""3C"",""CUTTING"",IF(RC[1]=""3H"",""CUTTING"",IF(RC[1]=""3K"",""CUTTING"",IF(RC[1]=""4C"",""ASSEMBLY"",IF(RC[1]=""4D"",""ASSEMBLY"",IF(RC[1]=""4E"",""ASSEMBLY"",IF(RC[1]=""4F"",""ASSEMBLY"",IF(RC[" & _
",""ASSEMBLY"",IF(RC[1]=""4I"",""ASSEMBLY"",IF(RC[1]=""4J"",""ASSEMBLY"",IF(RC[1]=""4X"",""ASSEMBLY"",IF(RC[1]=""4B"",""REPAIR ASSY"",IF(RC[1]=""4R"",""REPAIR ASSY"",IF(RC[1]=""4S"",""REPAIR ASSY"",IF(RC[1]=""4T"",""REPAIR ASSY"",IF(RC[1]=""4U"",""REPAIR ASSY"",IF(RC[1]=""4V"",""REPAIR ASSY"",IF(RC[1]=""4W"",""REPAIR ASSY"",IF(RC[1]=""4K"",""SHIPPING"",IF(RC[1]=""ENG" & _
"REWORK"",IF(RC[1]=""IC"",""INVENTORY CTRL"",IF(RC[1]=""OP"",""OUTSIDE PROD"",IF(RC[1]=""QC"",""QUALITY CTRL"",IF(RC[1]=""RE"",""REWORK"","" ""))))))))))))))))))))))))))))))))))))))))))))))))))))))"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D1258")
Range("D2:D1258").Select
End Sub