HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Beste,
Ik gebruik verticaal zoeken al een tijd je maar met dit bestand wil het mij niet lukken.
Hij geef als hij geen waarde kan vinden de waarde van bovenliggende cel.
Hoe kan ik dit oplossen:
Bekijk bijlage Helpmij verticaalzoeken.xlsm
Alvast dank voor de aangeboden hulp.
HWV
Ik gebruik verticaal zoeken al een tijd je maar met dit bestand wil het mij niet lukken.
Hij geef als hij geen waarde kan vinden de waarde van bovenliggende cel.
Hoe kan ik dit oplossen:
Code:
Sub verticaalZoeken()
On Error Resume Next
For j = 4 To Sheets("Registratie").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Import").Columns(1).Find(Sheets("Registratie").Cells(j, 1).Value)
.Offset(, 10).Copy
Sheets("Registratie").Cells(j, 11).PasteSpecial xlPasteValues
End With
Next
End Sub
Bekijk bijlage Helpmij verticaalzoeken.xlsm
Alvast dank voor de aangeboden hulp.
HWV