HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Beste,
Ik gebruik de code verticaal zoeken om bestanden te zoeken in een ander bestand en dan de waarde te plaatsen in mijn bestand import.
Het werkt,......
Maar duurt erg lang.
Ik heb veel regels denk aan 40.000 die ik gebruik om klanten kaarten te maken, en hiermee de huidige voorraad er bij te zetten.
Is er een mogelijkheid om dit sneller te laten verlopen.
alvast erg bedankt voor de suggesties.
HWV
Ik gebruik de code verticaal zoeken om bestanden te zoeken in een ander bestand en dan de waarde te plaatsen in mijn bestand import.
Het werkt,......
Maar duurt erg lang.
Ik heb veel regels denk aan 40.000 die ik gebruik om klanten kaarten te maken, en hiermee de huidige voorraad er bij te zetten.
Is er een mogelijkheid om dit sneller te laten verlopen.
Code:
Sub VerticaalZoeken()
On Error Resume Next
For j = 3 To Sheets("import").Cells(Rows.Count, 1).End(xlUp).Row
With Workbooks("901-Artikelen ZNP incl voorraad.xls").Sheets("Data1").Columns(1).Find(Sheets("import").Cells(j, 1).Value)
.Offset(, 5).Copy
Sheets("Import").Cells(j, 18).PasteSpecial xlPasteValues
.Offset(, 14).Copy
Sheets("Import").Cells(j, 19).PasteSpecial xlPasteValues
End With
Next
End Sub
alvast erg bedankt voor de suggesties.
HWV