Link to home
Start Free TrialLog in
Avatar of Euro5
Euro5Flag for United States of America

asked on

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
Avatar of Martin Liss
Martin Liss
Flag of United States of America image

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
Avatar of Euro5

ASKER

@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"?
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
ASKER CERTIFIED SOLUTION
Avatar of Martin Liss
Martin Liss
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Euro5

ASKER

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
Let's deal with those problems later.
Avatar of Euro5

ASKER

yes, ok