Euro5
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
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
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"?
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
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
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
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
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.
ASKER
yes, ok
Should there be an "Enter" button on all three sheets like there is on the "Intl" sheet?
28694615.xlsm