VBA enter data for multiple sheets

1. I need the form to enter the data into the spreadsheet Dom Ex starting at line 3.
I believe that it is starting at row 6 now?
2. An updated form that included all the input would be perfect.
3. I will need this for 3 worksheets Dom Ex, Ground, & Intl
4. using a hidden sheet to copy the formats would be preferable to using line 50, etc.
28692983a.xlsm
Euro5Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Martin LissOlder than dirtCommented:
Currently this works for only the Dom Ex sheet and it doesn't use the hidden sheet idea. Let we know if this works so far.

Should there be an "Enter" button on all three sheets like there is on the "Intl" sheet?
28694615.xlsm
Euro5Author Commented:
@Martin
Yes, each sheet should have a button.

1. Zones are not required
2. For the Ex Dom sheet only FO, SO, PO, E2AM, E2, ESP
3.For the Ground sheet GR, HD, PRP
4. For the Intl sheet IE, IP, IEF, IPF
5. For the Intl sheet - zones are A - O
6. Can we default to "Box"?
Roy CoxGroup Finance ManagerCommented:
have you actually run Debug on your code before posting?

There's a missing End Sub

An unqualified reference in Zone_Change

A missing End If in the same Procedure

I've corrected these problems and will look at the UserForm yomorrow if you want
28694615.xlsm
Exploring SharePoint 2016

Explore SharePoint 2016, the web-based, collaborative platform that integrates with Microsoft Office to provide intranets, secure document management, and collaboration so you can develop your online and offline capabilities.

Martin LissOlder than dirtCommented:
I had already corrected the missing "End Sub" but I didn't know what you wanted to do in Zone_Change. The problem involves there lines. Please tell me in English what you are trying to do.

For i = 1 To n
    Select Case UCase(vF(i, 1))
    Case "FO", "PO", "SO", "E2", "EAM", "ESP"
        Select Case vBD(i, 1)

Open in new window


Anyhow I've attached an updated workbook.
28694615.xlsm

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Euro5Author Commented:
Sorry, right.

For the Zone_change, I have to use the zone for a vlookup.
So, I need to convert the zones that are characters to numbers.
I don't need all the cases.
I only need two:

    Case "IE", "IP", "IPF", "IEF"
    If .Cells(i, "Q") = "US" And .Cells(i, "AG") <> "US" Then

AND

   ElseIf .Cells(i, "Q") <> "US" And .Cells(i, "AG") = "US" Then

I found another problem.
My FillEx() FillGR() FillInt()
It puts in a formula that is not relative.
So the formula is not calculating the row it is in, but the same row 3 over and over.
28694615b.xlsm
Martin LissOlder than dirtCommented:
Let's deal with those problems later.
Euro5Author Commented:
yes, ok
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.