Copying one-dimensional array of formulas into a listobject column in Excel without auto-filling from first...












0















Driving me a bit crazy. I have a list of formulas in an one-dimensional array that I want to copy into a column referred to by a listobject column header. However, when I try to copy the array of formulas in, Excel takes the first formula in the array and auto-fills it down. If I use a range that is off by one (e.g., fill all but the first cell, or all but the last cell) it doesn't autofill and uses the array formulas as expected. So, my current code that works is this:



    subtotalRange = tblSubtotalColLtr & tblSubtotalFirstRowRef & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 2)
finalRowRange = tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1) & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1)
Application.AutoCorrect.AutoFillFormulasInLists = False
Range(subtotalRange).Formula = Application.Transpose(arrFormulas)
Range(finalRowRange).Formula = arrFormulas(UBound(arrFormulas))


I was trying initially to just do this:



    Application.AutoCorrect.AutoFillFormulasInLists = False
tbl.ListColumns(tbl.HeaderRowRange(AmountCol).Value).DataBodyRange.formula = application.transpose(arrFormulas)


The current code is super kludge-y - is there any way to make the second one work? What am I doing wrong?










share|improve this question



























    0















    Driving me a bit crazy. I have a list of formulas in an one-dimensional array that I want to copy into a column referred to by a listobject column header. However, when I try to copy the array of formulas in, Excel takes the first formula in the array and auto-fills it down. If I use a range that is off by one (e.g., fill all but the first cell, or all but the last cell) it doesn't autofill and uses the array formulas as expected. So, my current code that works is this:



        subtotalRange = tblSubtotalColLtr & tblSubtotalFirstRowRef & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 2)
    finalRowRange = tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1) & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1)
    Application.AutoCorrect.AutoFillFormulasInLists = False
    Range(subtotalRange).Formula = Application.Transpose(arrFormulas)
    Range(finalRowRange).Formula = arrFormulas(UBound(arrFormulas))


    I was trying initially to just do this:



        Application.AutoCorrect.AutoFillFormulasInLists = False
    tbl.ListColumns(tbl.HeaderRowRange(AmountCol).Value).DataBodyRange.formula = application.transpose(arrFormulas)


    The current code is super kludge-y - is there any way to make the second one work? What am I doing wrong?










    share|improve this question

























      0












      0








      0








      Driving me a bit crazy. I have a list of formulas in an one-dimensional array that I want to copy into a column referred to by a listobject column header. However, when I try to copy the array of formulas in, Excel takes the first formula in the array and auto-fills it down. If I use a range that is off by one (e.g., fill all but the first cell, or all but the last cell) it doesn't autofill and uses the array formulas as expected. So, my current code that works is this:



          subtotalRange = tblSubtotalColLtr & tblSubtotalFirstRowRef & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 2)
      finalRowRange = tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1) & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1)
      Application.AutoCorrect.AutoFillFormulasInLists = False
      Range(subtotalRange).Formula = Application.Transpose(arrFormulas)
      Range(finalRowRange).Formula = arrFormulas(UBound(arrFormulas))


      I was trying initially to just do this:



          Application.AutoCorrect.AutoFillFormulasInLists = False
      tbl.ListColumns(tbl.HeaderRowRange(AmountCol).Value).DataBodyRange.formula = application.transpose(arrFormulas)


      The current code is super kludge-y - is there any way to make the second one work? What am I doing wrong?










      share|improve this question














      Driving me a bit crazy. I have a list of formulas in an one-dimensional array that I want to copy into a column referred to by a listobject column header. However, when I try to copy the array of formulas in, Excel takes the first formula in the array and auto-fills it down. If I use a range that is off by one (e.g., fill all but the first cell, or all but the last cell) it doesn't autofill and uses the array formulas as expected. So, my current code that works is this:



          subtotalRange = tblSubtotalColLtr & tblSubtotalFirstRowRef & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 2)
      finalRowRange = tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1) & ":" & tblSubtotalColLtr & (tblSubtotalFirstRowRef + UBound(arrFormulas) - 1)
      Application.AutoCorrect.AutoFillFormulasInLists = False
      Range(subtotalRange).Formula = Application.Transpose(arrFormulas)
      Range(finalRowRange).Formula = arrFormulas(UBound(arrFormulas))


      I was trying initially to just do this:



          Application.AutoCorrect.AutoFillFormulasInLists = False
      tbl.ListColumns(tbl.HeaderRowRange(AmountCol).Value).DataBodyRange.formula = application.transpose(arrFormulas)


      The current code is super kludge-y - is there any way to make the second one work? What am I doing wrong?







      arrays excel vba listobject






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Nov 22 '18 at 3:56









      Charlene BarinaCharlene Barina

      1318




      1318
























          1 Answer
          1






          active

          oldest

          votes


















          0














          You need to resize the DataBodyRange to fit your Array.




          Application.AutoCorrect.AutoFillFormulasInLists = False
          tbl.ListColumns(AmountCol).DataBodyRange.Resize(UBound(arrFormulas) + 1).Formula =
          Application.Transpose(arrFormulas)






          share|improve this answer
























          • Nope, that didn't work - same behavior as before with weird auto-fills.

            – Charlene Barina
            Nov 22 '18 at 8:18











          • CAn you email me the file at tinmanse@aol.com ?

            – TinMan
            Nov 22 '18 at 9:52











          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53423657%2fcopying-one-dimensional-array-of-formulas-into-a-listobject-column-in-excel-with%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          0














          You need to resize the DataBodyRange to fit your Array.




          Application.AutoCorrect.AutoFillFormulasInLists = False
          tbl.ListColumns(AmountCol).DataBodyRange.Resize(UBound(arrFormulas) + 1).Formula =
          Application.Transpose(arrFormulas)






          share|improve this answer
























          • Nope, that didn't work - same behavior as before with weird auto-fills.

            – Charlene Barina
            Nov 22 '18 at 8:18











          • CAn you email me the file at tinmanse@aol.com ?

            – TinMan
            Nov 22 '18 at 9:52
















          0














          You need to resize the DataBodyRange to fit your Array.




          Application.AutoCorrect.AutoFillFormulasInLists = False
          tbl.ListColumns(AmountCol).DataBodyRange.Resize(UBound(arrFormulas) + 1).Formula =
          Application.Transpose(arrFormulas)






          share|improve this answer
























          • Nope, that didn't work - same behavior as before with weird auto-fills.

            – Charlene Barina
            Nov 22 '18 at 8:18











          • CAn you email me the file at tinmanse@aol.com ?

            – TinMan
            Nov 22 '18 at 9:52














          0












          0








          0







          You need to resize the DataBodyRange to fit your Array.




          Application.AutoCorrect.AutoFillFormulasInLists = False
          tbl.ListColumns(AmountCol).DataBodyRange.Resize(UBound(arrFormulas) + 1).Formula =
          Application.Transpose(arrFormulas)






          share|improve this answer













          You need to resize the DataBodyRange to fit your Array.




          Application.AutoCorrect.AutoFillFormulasInLists = False
          tbl.ListColumns(AmountCol).DataBodyRange.Resize(UBound(arrFormulas) + 1).Formula =
          Application.Transpose(arrFormulas)







          share|improve this answer












          share|improve this answer



          share|improve this answer










          answered Nov 22 '18 at 6:23









          TinManTinMan

          2,196212




          2,196212













          • Nope, that didn't work - same behavior as before with weird auto-fills.

            – Charlene Barina
            Nov 22 '18 at 8:18











          • CAn you email me the file at tinmanse@aol.com ?

            – TinMan
            Nov 22 '18 at 9:52



















          • Nope, that didn't work - same behavior as before with weird auto-fills.

            – Charlene Barina
            Nov 22 '18 at 8:18











          • CAn you email me the file at tinmanse@aol.com ?

            – TinMan
            Nov 22 '18 at 9:52

















          Nope, that didn't work - same behavior as before with weird auto-fills.

          – Charlene Barina
          Nov 22 '18 at 8:18





          Nope, that didn't work - same behavior as before with weird auto-fills.

          – Charlene Barina
          Nov 22 '18 at 8:18













          CAn you email me the file at tinmanse@aol.com ?

          – TinMan
          Nov 22 '18 at 9:52





          CAn you email me the file at tinmanse@aol.com ?

          – TinMan
          Nov 22 '18 at 9:52


















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53423657%2fcopying-one-dimensional-array-of-formulas-into-a-listobject-column-in-excel-with%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Wiesbaden

          Marschland

          Dieringhausen