NateW
10-19-2007, 01:07 PM
I am constantly getting "Runtime Error 9 - Subscript Out of Range" with the following code, and it's causing me to lose my mind. I have checked all the references, but I must be missing something... I'm hoping that someone with fresh eyes can check this out and see where I'm going wrong....
Please see the following code:
Sub PopulateEDM_LOADS()
Dim EDM_LOADS_Row, EDMEXPORT_Row As Integer
Application.ScreenUpdating = False
EDM_LOADS_Row = 1
EDMEXPORT_Row = 1
Sheets("EDM_LOADS").Activate
Do Until Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 1).Value = ""
Cells(EDM_LOADS_Row, 1).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 1).Value 'Order Number
Cells(EDM_LOADS_Row, 2).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 2).Value 'Status
Cells(EDM_LOADS_Row, 3).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 3).Value 'Shipping Method
Cells(EDM_LOADS_Row, 4).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 4).Value 'Shipping Instructions
Cells(EDM_LOADS_Row, 5).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 5).Value 'Order Type
Cells(EDM_LOADS_Row, 6).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 6).Value 'Request Date
Cells(EDM_LOADS_Row, 7).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 7).Value 'Ship To
Cells(EDM_LOADS_Row, 8).Value = Mid(Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 8).Value, 1, 8) 'Pool Number
EDM_LOADS_Row = EDM_LOADS_Row + 1
EDMEXPORT_Row = EDMEXPORT_Row + 1
Loop
Application.ScreenUpdating = True
End Sub
Again, I've gone over this a ton of times, but I'm getting nowhere...any suggestions? Thanks so much in advance for any help...
Please see the following code:
Sub PopulateEDM_LOADS()
Dim EDM_LOADS_Row, EDMEXPORT_Row As Integer
Application.ScreenUpdating = False
EDM_LOADS_Row = 1
EDMEXPORT_Row = 1
Sheets("EDM_LOADS").Activate
Do Until Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 1).Value = ""
Cells(EDM_LOADS_Row, 1).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 1).Value 'Order Number
Cells(EDM_LOADS_Row, 2).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 2).Value 'Status
Cells(EDM_LOADS_Row, 3).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 3).Value 'Shipping Method
Cells(EDM_LOADS_Row, 4).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 4).Value 'Shipping Instructions
Cells(EDM_LOADS_Row, 5).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 5).Value 'Order Type
Cells(EDM_LOADS_Row, 6).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 6).Value 'Request Date
Cells(EDM_LOADS_Row, 7).Value = Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 7).Value 'Ship To
Cells(EDM_LOADS_Row, 8).Value = Mid(Workbooks("EDMEXPORT").Sheets("Data").Cells(EDMEXPORT_Row, 8).Value, 1, 8) 'Pool Number
EDM_LOADS_Row = EDM_LOADS_Row + 1
EDMEXPORT_Row = EDMEXPORT_Row + 1
Loop
Application.ScreenUpdating = True
End Sub
Again, I've gone over this a ton of times, but I'm getting nowhere...any suggestions? Thanks so much in advance for any help...