Results 1 to 3 of 3

Thread: VBA Error 1004, Glitch or Coding Error

  1. #1

    Exclamation VBA Error 1004, Glitch or Coding Error



    Register for a FREE account, and/
    or Log in to avoid these ads!

    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

  2. #2
    Super Moderator JeffreyWeir's Avatar
    Join Date
    Mar 2011
    Location
    New Zealand
    Posts
    357
    Articles
    0
    Can you post the workbook, or a sample of it without confidential information? Does it say anything else other than 'runtime error'?

  3. #3
    Super Moderator JeffreyWeir's Avatar
    Join Date
    Mar 2011
    Location
    New Zealand
    Posts
    357
    Articles
    0
    Hello?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •