Avatar of Seamus2626
Seamus2626Flag for Ireland asked on

Amend Code


I have a sub below that deals with sheets calculation D1 & D2 &d3 before it deals with  calculation variance d2 & d3

Can someone amend so it deals with calculation variance d2 & d3 first and then the rest

Many thanks


Sub PrepTool()

' Macro expands sheet for use with required number of records
' Be aware that many aspects of this macro are hard coded (e.g. the lengths of the lines to be copied down)
' and, as such, can be easily broken if the tool is amended

Dim Records As Long
Dim Selection As Integer
Dim x As Integer ' counter

On Error GoTo Finish

Selection = MsgBox("You are about to be asked how many records you will need in the tool. Be aware that choosing a large number of records will inflate the size of the tool markedly. You should save a new version of the tool before choosing to expand for your records as this cannot be undone.  Choose 'Cancel' to go back and save", vbOKCancel)

If Selection = vbCancel Then Exit Sub

Records = InputBox("How many records are you planning to input?", "Sample", 2)

Application.ScreenUpdating = False

'Turns off auto-calculate
Application.Calculation = xlCalculationManual

For x = 1 To 2

    With Sheets("Input - D" & x)
    End With
        Range("B8:DW8").AutoFill Range("B8:DW" & (Records + 7))
    With Sheets("Calculation - D" & x)
    End With
        Range("A14:BJ14").AutoFill Range("A14:BJ" & (Records + 13))

Next x

    With Sheets("Calculation - variation - D2")
    End With
        Range("A12:FE12").AutoFill Range("A12:FE" & (Records + 11))

    With Sheets("Input - D3")
    End With
        Range("B8:DW8").AutoFill Range("B8:DW107")
    With Sheets("Calculation - D3")
    End With
        Range("A14:BJ14").AutoFill Range("A14:BJ113")
    With Sheets("Calculation - variation - D3")
    End With
        Range("A12:FE12").AutoFill Range("A12:FE111")


Sheets("Instructions for use").Activate

Application.ScreenUpdating = True

MsgBox "Your Tool is now ready for use", vbOKOnly, "Ready"

End Sub
Microsoft Excel

Avatar of undefined
Last Comment

8/22/2022 - Mon
Saqib Husain

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question

Thanks ssaqibh!
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes