VBA Error 1004, Glitch or Coding Error

Kramerica44

New member
Joined
Jun 21, 2013
Messages
1
Reaction score
0
Points
0
Hello All,

The code below yields run-time error 1004 on the lines for AH15 and AH44, but works fine for AH19 and AH48. The only change to the formulas in AH15 and AH44 was "-R[-5]C[-20]-R[-5]C[-19]-R[-5]C[-11]" replaced "-R[-5]C[-21]-R[-5]C[-12]". The macro uses an input box for the week number and then clears all relevant cells before entering any formulas. I see no reason that my code should break based on the changes I've made. Is there anything in the formatting of the cells or something similar that could cause my code to fail? Otherwise, is this a possible glitch and if so how can I remedy it? I tried re-saving and copying and pasting the data and then pasting in the updated VBA code but neither approach solved the problem.

Thanks in advance for any and all attempts to help!

The code:

If Week = 10 Then
Range("AH15").Select
ActiveCell.FormulaR1C1 = _
"=RC[-21]+RC[-12]+sum(R[-4]C[-31]:RC[-31])-R[-5]C[-20]-R[-5]C[-19]-R[-5]C[-11]-RC[-10]-RC[-9]"

Range("AH19").Select
ActiveCell.FormulaR1C1 = _
"=RC[-21]+RC[-12]+sum(R[-3]C[-31]:RC[-31])-R[-4]C[-21]-R[-4]C[-12]-RC[-10]-RC[-9]"

....

Range("AH44").Select
ActiveCell.FormulaR1C1 = _
"=RC[-21]+RC[-12]+sum(R[-4]C[-31]:RC[-31])-R[-5]C[-20]-R[-5]C[-19]-R[-5]C[-11]-RC[-10]-RC[-9]"

Range("AH48").Select
ActiveCell.FormulaR1C1 = _
"=RC[-21]+RC[-12]+sum(R[-3]C[-31]:RC[-31])-R[-4]C[-21]-R[-4]C[-12]-RC[-10]-RC[-9]"
....

End If
 
Can you post the workbook, or a sample of it without confidential information? Does it say anything else other than 'runtime error'?
 
Back
Top