Sum of all the iterations of a variable in VBA










2















I have the following code



Dim i As Integer
For i = 3 To 10

If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
Range("I3").Value >= Cells(i, 3).Value Then

Range("J3").Value = Cells(i, 5).Value

End If

Next i


I want the value of J3 to represent the sum of all the iterations and not just the last iteration if i. Can it be done?










share|improve this question




























    2















    I have the following code



    Dim i As Integer
    For i = 3 To 10

    If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
    Range("I3").Value >= Cells(i, 3).Value Then

    Range("J3").Value = Cells(i, 5).Value

    End If

    Next i


    I want the value of J3 to represent the sum of all the iterations and not just the last iteration if i. Can it be done?










    share|improve this question


























      2












      2








      2








      I have the following code



      Dim i As Integer
      For i = 3 To 10

      If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
      Range("I3").Value >= Cells(i, 3).Value Then

      Range("J3").Value = Cells(i, 5).Value

      End If

      Next i


      I want the value of J3 to represent the sum of all the iterations and not just the last iteration if i. Can it be done?










      share|improve this question
















      I have the following code



      Dim i As Integer
      For i = 3 To 10

      If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
      Range("I3").Value >= Cells(i, 3).Value Then

      Range("J3").Value = Cells(i, 5).Value

      End If

      Next i


      I want the value of J3 to represent the sum of all the iterations and not just the last iteration if i. Can it be done?







      excel vba






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 14 '18 at 5:31









      K.Dᴀᴠɪs

      7,169112439




      7,169112439










      asked Nov 14 '18 at 5:17









      Osama MalikOsama Malik

      135




      135






















          2 Answers
          2






          active

          oldest

          votes


















          0














          While there are certainly better methods of adding up cells, for your particular method this should work.



          Dim i As long, lTotal as long 
          For i = 3 To 10

          If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
          Range("I3").Value >= Cells(i, 3).Value Then

          lTotal = Cells(i, 5).Value + lTotal

          End If

          Next i

          Range("J3").Value = lTotal


          Keep a running total of of your loop, then use the running total as your cell's value after you've finished the loop






          share|improve this answer

























          • Hi thanks it worked. Can you help me to convert this into a function?

            – Osama Malik
            Nov 14 '18 at 7:21











          • stackoverflow.com/questions/53295794/…

            – Osama Malik
            Nov 14 '18 at 8:25


















          0














          Change this line



          Range("J3").Value = Cells(i, 5).Value


          To:



          Range("J3").Value = Range("J3").Value + Cells(i, 5).Value





          share|improve this answer






















            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%2f53293608%2fsum-of-all-the-iterations-of-a-variable-in-vba%23new-answer', 'question_page');

            );

            Post as a guest















            Required, but never shown

























            2 Answers
            2






            active

            oldest

            votes








            2 Answers
            2






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            While there are certainly better methods of adding up cells, for your particular method this should work.



            Dim i As long, lTotal as long 
            For i = 3 To 10

            If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
            Range("I3").Value >= Cells(i, 3).Value Then

            lTotal = Cells(i, 5).Value + lTotal

            End If

            Next i

            Range("J3").Value = lTotal


            Keep a running total of of your loop, then use the running total as your cell's value after you've finished the loop






            share|improve this answer

























            • Hi thanks it worked. Can you help me to convert this into a function?

              – Osama Malik
              Nov 14 '18 at 7:21











            • stackoverflow.com/questions/53295794/…

              – Osama Malik
              Nov 14 '18 at 8:25















            0














            While there are certainly better methods of adding up cells, for your particular method this should work.



            Dim i As long, lTotal as long 
            For i = 3 To 10

            If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
            Range("I3").Value >= Cells(i, 3).Value Then

            lTotal = Cells(i, 5).Value + lTotal

            End If

            Next i

            Range("J3").Value = lTotal


            Keep a running total of of your loop, then use the running total as your cell's value after you've finished the loop






            share|improve this answer

























            • Hi thanks it worked. Can you help me to convert this into a function?

              – Osama Malik
              Nov 14 '18 at 7:21











            • stackoverflow.com/questions/53295794/…

              – Osama Malik
              Nov 14 '18 at 8:25













            0












            0








            0







            While there are certainly better methods of adding up cells, for your particular method this should work.



            Dim i As long, lTotal as long 
            For i = 3 To 10

            If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
            Range("I3").Value >= Cells(i, 3).Value Then

            lTotal = Cells(i, 5).Value + lTotal

            End If

            Next i

            Range("J3").Value = lTotal


            Keep a running total of of your loop, then use the running total as your cell's value after you've finished the loop






            share|improve this answer















            While there are certainly better methods of adding up cells, for your particular method this should work.



            Dim i As long, lTotal as long 
            For i = 3 To 10

            If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < Cells(i, 4).Value And _
            Range("I3").Value >= Cells(i, 3).Value Then

            lTotal = Cells(i, 5).Value + lTotal

            End If

            Next i

            Range("J3").Value = lTotal


            Keep a running total of of your loop, then use the running total as your cell's value after you've finished the loop







            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited Nov 14 '18 at 7:42

























            answered Nov 14 '18 at 5:34









            K.DᴀᴠɪsK.Dᴀᴠɪs

            7,169112439




            7,169112439












            • Hi thanks it worked. Can you help me to convert this into a function?

              – Osama Malik
              Nov 14 '18 at 7:21











            • stackoverflow.com/questions/53295794/…

              – Osama Malik
              Nov 14 '18 at 8:25

















            • Hi thanks it worked. Can you help me to convert this into a function?

              – Osama Malik
              Nov 14 '18 at 7:21











            • stackoverflow.com/questions/53295794/…

              – Osama Malik
              Nov 14 '18 at 8:25
















            Hi thanks it worked. Can you help me to convert this into a function?

            – Osama Malik
            Nov 14 '18 at 7:21





            Hi thanks it worked. Can you help me to convert this into a function?

            – Osama Malik
            Nov 14 '18 at 7:21













            stackoverflow.com/questions/53295794/…

            – Osama Malik
            Nov 14 '18 at 8:25





            stackoverflow.com/questions/53295794/…

            – Osama Malik
            Nov 14 '18 at 8:25













            0














            Change this line



            Range("J3").Value = Cells(i, 5).Value


            To:



            Range("J3").Value = Range("J3").Value + Cells(i, 5).Value





            share|improve this answer



























              0














              Change this line



              Range("J3").Value = Cells(i, 5).Value


              To:



              Range("J3").Value = Range("J3").Value + Cells(i, 5).Value





              share|improve this answer

























                0












                0








                0







                Change this line



                Range("J3").Value = Cells(i, 5).Value


                To:



                Range("J3").Value = Range("J3").Value + Cells(i, 5).Value





                share|improve this answer













                Change this line



                Range("J3").Value = Cells(i, 5).Value


                To:



                Range("J3").Value = Range("J3").Value + Cells(i, 5).Value






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Nov 14 '18 at 5:32









                chillinchillin

                1,459134




                1,459134



























                    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%2f53293608%2fsum-of-all-the-iterations-of-a-variable-in-vba%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

                    Top Tejano songwriter Luis Silva dead of heart attack at 64

                    政党

                    天津地下鉄3号線