darksider415
New Member
- Joined
- Mar 13, 2012
- Messages
- 2
When running the following macro that I recorded, I'm getting an "Error 1004 Application-defined or object-defined error".
I'm new to Excel, so any help would be greatly appreciated.
Code:
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Windows("T054.xlsm").Activate
Windows("T013").Activate
Range("S10").Select
Sheets("Sheet1").Select
Range("S10").Select
ActiveCell.FormulaR1C1 = _
"=IF(OR(AND(OR(RC[-11]=10,RC[-11]=23,RC[-11]=22,RC[-11]=32,RC[-11]=29,RC[-11]=36,RC[-11]=33,RC[-11]=21,RC[-11]=38,RC[-11]=11,RC[-11]=19,RC[-11]=20,RC[-11]=17,RC[-11]=31,RC[-11]=26,RC[-11]=34,RC[-11]=28,RC[-11]=24,RC[-11]=32,RC[-11]=18,RC[-11]=22,RC[-11]=16,RC[-11]=30,RC[-11]=10,RC[-11]=10,RC[-11]=14,RC[-11]=37,RC[-11]=12,RC[-11]=39,RC[-11]=27,RC[-11]=12,RC[-11]=4,RC[" & _
"C[-11]=6,RC[-11]=7,RC[-11]=25,RC[-11]=15,RC[-11]=5),RC[-11]=R[-8]C[-11],RC[-5]=0,RC[-4]=0,RC[-3]=0,RC[-2]=0,RC[-1]=0)),160,IF(AND(RC[2]=160,RC[-11]=28),319,IF(AND(RC[2]=160,RC[-11]=4),326,IF(AND(RC[2]=160,RC[-11]=2),310,IF(AND(RC[2]=160,RC[-11]=6),336,IF(AND(RC[2]=160,RC[-11]=7),348,IF(AND(RC[2]=160,RC[-11]=32),312,IF(AND(RC[2]=160,RC[-11]=21),343,IF(AND(RC[2]=160,R" & _
"),312,IF(AND(RC[2]=160,RC[-11]=23),301,IF(AND(RC[2]=160,RC[-11]=10),319,IF(AND(RC[2]=160,RC[-11]=14),337,IF(AND(RC[2]=160,RC[-11]=29),328,IF(AND(RC[2]=160,RC[-11]=30),316,IF(AND(RC[2]=160,RC[-11]=27),302,IF(AND(RC[2]=160,RC[-11]=38),322,IF(AND(RC[2]=360,RC[-11]=12),314,IF(AND(RC[2]=160,RC[-11]=22),310,IF(AND(RC[2]=160,RC[-11]=22),326,IF(AND(RC[2]=160,RC[-11]=19),331" & _
"C[2]=160,RC[-11]=39),311,IF(AND(RC[2]=160,RC[-11]=24),319,IF(AND(RC[2]=160,RC[-11]=26),312,IF(AND(RC[2]=160,RC[-11]=20),301,IF(AND(RC[2]=160,RC[-11]=34),306,IF(AND(RC[2]=160,RC[-11]=36),317,IF(AND(RC[2]=160,RC[-11]=12),317,IF(AND(RC[2]=160,RC[-11]=17),320,IF(AND(RC[2]=160,RC[-11]=18),301,IF(AND(RC[2]=160,RC[-11]=33),311,IF(AND(RC[2]=160,RC[-11]=16),333,IF(AND(RC[2]=" & _
"1]=31),317,IF(AND(RC[2]=160,RC[-11]=37),309,IF(AND(RC[2]=160,RC[-11]=11),302,IF(AND(RC[2]=160,RC[-11]=10),333,IF(AND(RC[2]=160,RC[-11]=13),319,IF(AND(RC[2]=160,RC[-11]=15),314,IF(AND(RC[2]=160,RC[-11]=25),310,(IF(AND(RC[2]=160,RC[-11]=5),313,0))))))))))))))))))))))))))))))))))))))))"
Range("S11").Select
I'm new to Excel, so any help would be greatly appreciated.