Hallo,
Ik heb een Loopje in een Excel-macro staan die bepaalde leveranciersgegevens kopiëerd naar een andere sheet wanneer de leveranciersnummers matchen. Deze ziet er als volgt uit:
Sub LookupSupplierData(i)
a = 6
Do Until Trim(Left(Sheets("Supplier List").Cells(a, 1), 1)) = "" Or Trim(Left(Sheets("Supplier List").Cells(a, 1), 6)) = Trim(Left(Sheets("data").Cells(i, 12), 6))
a = a + 1
Loop
Sheets("data").Cells(i, 14) = Sheets("Supplier List").Cells(a, 17) 'Currency
Sheets("data").Cells(i, 15) = Sheets("Supplier List").Cells(a, 15) 'Delivery Condition
End Sub
De Sub werkt perfect, alleen hij is ontzettend traag! Het duurt enorm lang, aangezien zowel de data-sheet (bestemming van de gegevens) als de input sheet met het leveranciersoverzicht ongeveer 2000 regels bevat (Hij gaat bij iedere regel van de data-sheet de hele leverancierslijst af tot hij het juiste nummer vindt).
Heeft iemand enig idee hoe dit sneller kan??
Alvast bedankt!
Groeten,
Hilde
Ik heb een Loopje in een Excel-macro staan die bepaalde leveranciersgegevens kopiëerd naar een andere sheet wanneer de leveranciersnummers matchen. Deze ziet er als volgt uit:
Sub LookupSupplierData(i)
a = 6
Do Until Trim(Left(Sheets("Supplier List").Cells(a, 1), 1)) = "" Or Trim(Left(Sheets("Supplier List").Cells(a, 1), 6)) = Trim(Left(Sheets("data").Cells(i, 12), 6))
a = a + 1
Loop
Sheets("data").Cells(i, 14) = Sheets("Supplier List").Cells(a, 17) 'Currency
Sheets("data").Cells(i, 15) = Sheets("Supplier List").Cells(a, 15) 'Delivery Condition
End Sub
De Sub werkt perfect, alleen hij is ontzettend traag! Het duurt enorm lang, aangezien zowel de data-sheet (bestemming van de gegevens) als de input sheet met het leveranciersoverzicht ongeveer 2000 regels bevat (Hij gaat bij iedere regel van de data-sheet de hele leverancierslijst af tot hij het juiste nummer vindt).
Heeft iemand enig idee hoe dit sneller kan??
Alvast bedankt!
Groeten,
Hilde