Need a Loop for this code Sub EstBatch ( ) 'Declared variables Dim inputSheet As Worksheet Dim outputSheet As Worksheet Dim PPBR As Double Dim EHP As Double ' Set references to input and output sheets Set inputSheet Sheets ( Batch Input ) Set outputSheet Sheets ( Batch Output ) ' Get values from user input PPBR Sheets ( User Form ) Range ( C 2 2 ) Value EHP Sheets ( User Form ) Range ( C 2 3 ) Value 'Copy info from Batch Input to User Form Sheets ( User Form ) Range ( C 6 ) Value inputSheet Range ( A 1 ) Value Sheets ( User Form ) Range ( C 7 ) Value inputSheet Range ( B 1 ) Value Sheets ( User Form ) Range ( C 9 ) Value inputSheet Range ( A 2 ) Value Sheets ( User Form ) Range ( C 1 0 ) Value inputSheet Range ( A 3 ) Value ' Run the single estimate subroutine EstSingle ' Copy results to Batch Output tab outputSheet Range ( A 2 ) Sheets ( User Form ) Range ( C 6 ) outputSheet Range ( B 2 ) Sheets ( User Form ) Range ( C 7 ) outputSheet Range ( C 2 ) Sheets ( User Form ) Range ( C 9 ) outputSheet Range ( D 2 ) Sheets ( User Form ) Range ( C 1 0 ) outputSheet Range ( E 2 ) Sheets ( User Form ) Range ( C 2 2 ) outputSheet Range ( F 2 ) Sheets ( User Form ) Range ( C 2 3 ) outputSheet Range ( G 2 ) Sheets ( User Form ) Range ( C 1 3 ) outputSheet Range ( H 2 ) Sheets ( User Form ) Range ( C 1 4 ) outputSheet Range ( I 2 ) Sheets ( User Form ) Range ( C 1 5 ) outputSheet Range ( J 2 ) Sheets ( User Form ) Range ( C 1 6 ) outputSheet Range ( K 2 ) Sheets ( User Form ) Range ( C 1 7 ) outputSheet Range ( L 2 ) Sheets ( User Form ) Range ( C 1 8 ) 'Copy info from Batch Input to User Form Sheets ( User Form ) Range ( C 6 ) Value inputSheet Range ( A 6 ) Value Sheets ( User Form ) Range ( C 7 ) Value inputSheet Range ( B 6 ) Value Sheets ( User Form ) Range ( C 9 ) Value inputSheet Range ( A 7 ) Value Sheets ( User Form ) Range ( C 1 0 ) Value inputSheet Range ( A 8 ) Value ' Run the single estimate subroutine EstSingle ' Copy results to Batch Output tab outputSheet Range ( A 3 ) Sheets ( User Form ) Range ( C 6 ) outputSheet Range ( B 3 ) Sheets ( User Form ) Range ( C 7 ) outputSheet Range ( C 3 ) Sheets ( User Form ) Range ( C 9 ) outputSheet Range ( D 3 ) Sheets ( User Form ) Range ( C 1 0 ) outputSheet Range ( E 3 ) Sheets ( User Form ) Range ( C 2 2 ) outputSheet Range ( F 3 ) Sheets ( User Form ) Range ( C 2 3 ) outputSheet Range ( G 3 ) Sheets ( User Form ) Range ( C 1 3 ) outputSheet Range ( H 3 ) Sheets ( User Form ) Range ( C 1 4 ) outputSheet Range ( I 3 ) Sheets ( User Form ) Range ( C 1 5 ) outputSheet Range ( J 3 ) Sheets ( User Form ) Range ( C 1 6 ) outputSheet Range ( K 3 ) Sheets ( User Form ) Range ( C 1 7 ) outputSheet Range ( L 3 ) Sheets ( User Form ) Range ( C 1 8 ) 'Copy info from Batch Input to User Form Sheets ( User Form ) Range ( C 6 ) Value inputSheet Range ( A 1 0 ) Value Sheets ( User Form ) Range ( C 7 ) Value inputSheet Range ( B 1 0 ) Value Sheets ( User Form ) Range ( C 9 ) Value inputSheet Range ( A 1 1 ) Value Sheets ( User Form ) Range ( C 1 0 ) Value inputSheet Range ( A 1 2 ) Value ' Run the single estimate subroutine EstSingle ' Copy results to Batch Output tab outputSheet Range ( A 4 ) Sheets ( User Form ) Range ( C 6 ) outputSheet Range ( B 4 ) Sheets ( User Form ) Range ( C 7 ) outputSheet Range ( C 4 ) Sheets ( User Form ) Range ( C 9 ) outputSheet Range ( D 4 ) Sheets ( User Form ) Range ( C 1 0 ) outputSheet Range ( E 4 ) Sheets ( User Form ) Range ( C 2 2 ) outputSheet Range ( F 4 ) Sheets ( User Form ) Range ( C 2 3 ) outputSheet Range ( G 4 ) Sheets ( User Form ) Range ( C 1 3 ) outputSheet Range ( H 4 ) Sheets ( User Form ) Range ( C 1 4 ) outputSheet Range ( I 4 ) Sheets ( User Form ) Range ( C 1 5 ) outputSheet Range ( J 4 ) Sheets ( User Form ) Range ( C 1 6 ) outputSheet Range ( K 4 ) Sheets ( User Form ) Range ( C 1 7 ) outputSheet Range ( L 4 ) Sheets ( User Form ) Range ( C 1 8 ) 'Copy info from Batch Input to User Form Sheets ( User Form ) Range ( C 6 ) Value inputSheet Range ( A 1 6 ) Value Sheets ( User Form ) Range ( C 7 ) Value inputSheet Range ( B 1 6 ) Value Sheets ( User Form ) Range ( C 9 ) Value inputSheet Range ( A 1 7 ) Value Sheets ( User Form ) Range ( C 1 0 ) Value inputSheet Range ( A 1 8 ) Value ' Run the single estimate subroutine EstSingle ' My Code is correct however I need to do a loop with the information I have and I don't know how Could someone help me create a loop for the part in EstBatch ( ) so my code is not so long Its gets the info from the worksheet and the worksheets skips some lines before getting to the next information as you will see from my code Its the VBA 1 3 5 Project but I dont know how to loop my code Sub EstBatch ( ) 'Declared variables Dim inputSheet As Worksheet Dim outputSheet As Worksheet Dim PPBR As Double Dim EHP As Double ' Set references to input and output sheets Set inputSheet Sheets ( Batch Input ) Set outputSheet Sheets ( Batch Output ) ' Get values from user input PPBR Sheets ( User Form ) Range ( C 2 2 ) Value EHP Sheets ( User Form ) Range ( C 2 3 ) Value 'Copy info from Batch Input to User Form Sheets ( User Form ) Range ( C 6 ) Value inputSheet Range ( A 1 ) Value Sheets ( User Form ) Range ( C 7 ) Value inputSheet Range ( B 1 ) Value Sheets ( User Form ) Range ( C 9 ) Value inputSheet Range ( A 2 ) Value Sheets ( User Form ) Range ( C 1 0 ) Value inputSheet Range ( A 3 ) Value ' Run the single estimate subroutine EstSingle ' Copy results to Batch Output tab outputSheet Range ( A 2

The Answer is in the image, click to view ...

Question: Need a Loop for this code. Sub EstBatch ( ) 'Declared variables Dim inputSheet As Worksheet Dim outputSheet As Worksheet Dim PPBR As Double Dim

Need a Loop for this code.

Sub EstBatch

()

'Declared variables

Dim inputSheet As Worksheet

Dim outputSheet As Worksheet

Dim PPBR As Double

Dim EHP As Double

'

Set references to input and output sheets

Set inputSheet

=

Sheets

("

Batch Input"

)

Set outputSheet

=

Sheets

("

Batch Output"

)

'

Get values from user input

PPBR

=

Sheets

("

User Form"

) .

Range

("

22 ") .

Value

EHP

=

Sheets

("

User Form"

) .

Range

("

23 ") .

Value

'Copy info from Batch Input to User Form

Sheets

("

User Form"

) .

Range

("

6 ") .

Value

=

inputSheet.Range

("

1 ") .

Value

Sheets

("

User Form"

) .

Range

("

7 ") .

Value

=

inputSheet.Range

("

1 ") .

Value

Sheets

("

User Form"

) .

Range

("

9 ") .

Value

=

inputSheet.Range

("

2 ") .

Value

Sheets

("

User Form"

) .

Range

("

10 ") .

Value

=

inputSheet.Range

("

3 ") .

Value

'

Run the single estimate subroutine

EstSingle

'

Copy results to Batch Output tab

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

6 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

7 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

9 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

10 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

22 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

23 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

13 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

14 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

15 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

16 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

17 ")

outputSheet.Range

("

2 ") =

Sheets

("

User Form"

) .

Range

("

18 ")

'Copy info from Batch Input to User Form

Sheets

("

User Form"

) .

Range

("

6 ") .

Value

=

inputSheet.Range

("

6 ") .

Value

Sheets

("

User Form"

) .

Range

("

7 ") .

Value

=

inputSheet.Range

("

6 ") .

Value

Sheets

("

User Form"

) .

Range

("

9 ") .

Value

=

inputSheet.Range

("

7 ") .

Value

Sheets

("

User Form"

) .

Range

("

10 ") .

Value

=

inputSheet.Range

("

8 ") .

Value

'

Run the single estimate subroutine

EstSingle

'

Copy results to Batch Output tab

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

6 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

7 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

9 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

10 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

22 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

23 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

13 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

14 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

15 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

16 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

17 ")

outputSheet.Range

("

3 ") =

Sheets

("

User Form"

) .

Range

("

18 ")

'Copy info from Batch Input to User Form

Sheets

("

User Form"

) .

Range

("

6 ") .

Value

=

inputSheet.Range

("

10 ") .

Value

Sheets

("

User Form"

) .

Range

("

7 ") .

Value

=

inputSheet.Range

("

10 ") .

Value

Sheets

("

User Form"

) .

Range

("

9 ") .

Value

=

inputSheet.Range

("

11 ") .

Value

Sheets

("

User Form"

) .

Range

("

10 ") .

Value

=

inputSheet.Range

("

12 ") .

Value

'

Run the single estimate subroutine

EstSingle

'

Copy results to Batch Output tab

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

6 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

7 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

9 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

10 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

22 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

23 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

13 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

14 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

15 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

16 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

17 ")

outputSheet.Range

("

4 ") =

Sheets

("

User Form"

) .

Range

("

18 ")

'Copy info from Batch Input to User Form

Sheets

("

User Form"

) .

Range

("

6 ") .

Value

=

inputSheet.Range

("

16 ") .

Value

Sheets

("

User Form"

) .

Range

("

7 ") .

Value

=

inputSheet.Range

("

16 ") .

Value

Sheets

("

User Form"

) .

Range

("

9 ") .

Value

=

inputSheet.Range

("

17 ") .

Value

Sheets

("

User Form"

) .

Range

("

10 ") .

Value

=

inputSheet.Range

("

18 ") .

Value

'

Run the single estimate subroutine

EstSingle

'

My Code is correct however I need to do a loop with the information I have and I don't know how. Could someone help me create a loop for the part in EstBatch

()

so my code is not so long. Its gets the info from the worksheet and the worksheets skips some lines before getting to the next information as you will see from my code. Its the VBA

13.5

Project but I dont know how to loop my code.

Sub EstBatch

()

'Declared variables

Dim inputSheet As Worksheet

Dim outputSheet As Worksheet

Dim PPBR As Double

Dim EHP As Double

'

Set references to input and output sheets

Set inputSheet

=

Sheets

("

Batch Input"

)

Set outputSheet

=

Sheets

("

Batch Output"

)

'

Get values from user input

PPBR

=

Sheets

("

User Form"

) .

Range

("

22 ") .

Value

EHP

=

Sheets

("

User Form"

) .

Range

("

23 ") .

Value

'Copy info from Batch Input to User Form

Sheets

("

User Form"

) .

Range

("

6 ") .

Value

=

inputSheet.Range

("

1 ") .

Value

Sheets

("

User Form"

) .

Range

("

7 ") .

Value

=

inputSheet.Range

("

1 ") .

Value

Sheets

("

User Form"

) .

Range

("

9 ") .

Value

=

inputSheet.Range

("

2 ") .

Value

Sheets

("

User Form"

) .

Range

("

10 ") .

Value

=

inputSheet.Range

("

3 ") .

Value

'

Run the single estimate subroutine

EstSingle

'

Copy results to Batch Output tab

outputSheet.Range

("

2 " Step by Step Solution There are 3 Steps involved in it 1 Expert Approved Answer Step: 1 Unlock Question Has Been Solved by an Expert! Get step-by-step solutions from verified subject matter experts View Solution Step: 2 Unlock Step: 3 UnlockStudents Have Also Explored These Related Databases Questions! Q: This is the question: Your company operates in both North America and Europe and wishes to determine an appropriate price for a particular product that is sold in the European market. Obviously this... Q: Towards the bottom is where I need help (at the end of the SubEstBatch routine). I need to be able to write a loop (I was thinking a do/while) that would complete the code. Please and thank you!... Q: This VBA code only brings up 1 row of results in the "Batch Output" sheet. How do I change this code to output all of the rest of the data? Sub RunBatch ( ) ' Declarations Dim P As Integer Dim H As... Q: So I can make the flowchart but not sure how to make the VBA code. It's all super foreign to me 13.5 VBA Project: Olympus Tours You have just been hired by Olympus Tours (OT), a bus rental company... Q: I have already done the part of Estsingle, but I don't know how to write the EstBatch. I JUST NEED THE VBA CODE FOR THIS QUESTION. Please help me . You have just been hired by Olympus Tours ( OT ) ,... Q: Create a script in Excel VBA that loops through all the stocks for one year and outputs the following information: -The ticker symbol -Yearly change from the opening price at the beginning of a given... Q: Add Excel VBA code to create three new columns to the existing code listed below. Add Standard deviation for X army in Column, add Standard deviation for Y army in Column K, add Number of runs in... Q: Solver (SOLVER.XLAM) VBAProject (AM FYP.xlsm) -Microsoft Excel Objects Sheet1 (Applicant Inform Sheet2 (Sensitivity Testin Sheet3 (Sheet1) Sheet4 (CF illustrative tal Sheets (Model Points) Sheet6... Q: SDEV 140 / Introduction to Software Development S12 Software Development Lab 3 / INTRODUCTION : In this assignment, you will develop the logic for, and then create, the Order Input form for the... Q: 13.4 VPA Project: Olympus Tours help me out please I will rate high! Chp 13 - 13.4 VBA Project: Olympus Tours Assume you have just been hired by Olympus Tours (OT), a bus-rental company located in... Q: What is the cost flow assumption? What is meant by the physical flow of goods? What relationship exists between cost flows and the physical flow of goods in a company? To place the proper valuation... Q: What is the purpose of using layers in GIS applications? Q: Define Resilienke? It ineanis to resill mat attacis, tolarate attacks that can not be sesisted I means to resist mant aftacks. tolerate athacks that can not be resistad fail warnely it actacks can... Q: Please answer the following questions in a Word document: 1. What is exchange rate risk? 2. What are the different types of exchange rate risk? 3. What is political risk? 4. What are some ways of... Q: 4. The next time you read somethinga magazine article, a political blog, a work of nonfiction, a chapter in a textbooktake time to think about the research presented in it. What kinds of research did... Q: 2 Was Viswanathans apology statement appropriate? What kinds of steps could Tivya take to address her mistake? Should she tell her instructor? Should you? Q: 2. Tune in to a few news punditsfor example, Bill OReilly, Rachel Maddow, Randi Rhodes, or Rush Limbaughon the radio or on television. Listen carefully to what they say, and consider how they back up... Previous Question Next QuestionRecommended Textbook Databases Theory And Applications 33rd Australasian Database Conference Adc 2022 Sydney Nsw Australia September 2 4 2022 Proceedings Lncs 13459 Authors: Wen Hua ,Hua Wang ,Lei Li 1st Edition 3031155114, 978-3031155116 Ask a Question and Get Instant Help! Get AnswerStudy Help Open in AppServices Sitemap Fun Definitions Become Tutor Used Textbooks Study Help Categories Recent Questions Expert Questions Campus Wear Sell Your Books Company Info Security Copyrights Privacy Policy Terms & Conditions SolutionInn Fee Scholarship Online Quiz Give Feedback, Get Rewards Get In Touch About Us Contact Us Career Jobs FAQ Student Discount Campus Ambassador Secure Payment Download Our App © 2026 SolutionInn. All Rights Reservedwindow.addEventListener("load",function(){jQuery(document).ready(function(t){

        // Clarity tracking
        (function(c,l,a,r,i,t,y){
            c[a]=c[a]||function(){(c[a].q=c[a].q||[]).push(arguments)};
            t=l.createElement(r);t.async=1;t.src="https://www.clarity.ms/tag/"+i;
            y=l.getElementsByTagName(r)[0];y.parentNode.insertBefore(t,y);
        })(window, document, "clarity", "script", "sjv6tuxsok");

        // Helper to read a cookie by name
        function getCookie(name) {
            return document.cookie
                .split('; ')
                .map(v => v.split('='))
                .reduce((acc, [k, val]) => (k === name ? decodeURIComponent(val || '') : acc), '');
        }

                 // Read cookies
         var si  = getCookie('si_u_id');
         var uid = getCookie('u_id');
         var zen = getCookie('zenid');
         // Send to Clarity
         if (si)  clarity('set', 'si_u_id', si);
         if (uid) clarity('set', 'u_id', uid);
         if (zen) clarity('set', 'zenid', zen);
         clarity('set', 'ip_address', '216.73.216.28');

        t.ajax({type:"POST",url:"/",data:{trackUserActivity:!0,reqUri:document.URL,referer:document.referrer},success:function(t){}})})},!1),window.addEventListener("load",function(){jQuery(document).ready(function(t){t.ajax({type:"POST",url:"/",data:{insertCrawler:!0,reqUri:document.URL,parseTime:"0.056",queryTime:"0.01654768548584",queryCount:"30"},success:function(t){}})})},!1),window.addEventListener("load",function(){jQuery(document).ready(function(){function t(t="",n=!1){var i="itms-apps://itunes.apple.com/app/id6462455425",e="openApp://action?"+t;isAndroid()?(setTimeout(function(){return window.location="market://details?id=com.solutioninn.studyhelp",!1},25),window.location=e):isIOS()?(setTimeout(function(){return window.location=i,!1},25),window.location=e):(i="https://apps.apple.com/in/app/id6462455425",n&&(i="https://play.google.com/store/apps/details?id=com.solutioninn.studyhelp"),window.open("about:blank","_blank").location.href=i)}jQuery("#appModal").modal("show"),jQuery(".download-app-btn").click(function(){t(jQuery(this).attr("data-question-open-url"))}),jQuery(".redirection").click(function(){var n=jQuery(this).attr("data-question-open-url"),i=jQuery(this).attr("data-id");void 0!=n?1==i?t(n,!0):t(n,!1):1==i?t("",!0):t("",!1)}),jQuery(".app-notification-close").click(function(){jQuery(".app-notification-section").css("visibility","hidden");var t=new FormData;t.append("hide_notification",!0),jQuery.ajax({type:"POST",url:"/",data:t,cache:!1,contentType:!1,processData:!1,beforeSend:function(){},success:function(t){location.reload()}})})})},!1);