Knop om gegevens te kopiëren.

[Marko1975]

Blad1 gegevens
Blad2 lijst met plaatsnamen
Blad3

Probeer al een knop te maken om alle plaatsnamen (blad2) die voorkomen in Blad1 te verplaatsen naar Blad3.

met de functie Find kan ik geen range op geven.

Kan iemand mij helpen?

 

[sylvester-ponte]

Marko, welkom op helpmij.
je vergeet een voorbeeld excelbestand te plaatsen. (geen plaatje )

 

[Marko1975]

Sub Knop1_Klikken()


With Worksheets("Blad1").Range("A2:Z4313")
Do
Set A = .Find("Blad3", LookIn:=xlValues, searchdirection:=xlNext)
If Not A Is Nothing Then
B = A.Row
Rows(B).Copy
Worksheets("Blad1").Select
With Worksheets("Blad2").Range("A1:A196")
Set Z = .Find("A1:A196", LookIn:=xlValues)
If Not Z Is Nothing Then
Z = Z.Row
Worksheets("Blad2").Range("A" & CStr(Z)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End With
Worksheets("Blad1").Select
Rows(B).Select
Selection.Delete
End If
Loop Until A Is Nothing
End With


End


gebruik excel 365

 

[sylvester-ponte]

en nu nog het bijbehorende bestandje plaatsen

 

[Marko1975]

hierbij het bestand

 

[sylvester-ponte]

vul blad 3 aan met de uitkomsten die je verwacht en waarom .
plaats het bestand dan nog een keer

 

[Marko1975]

op blad 3 de gewenste uitkomt

 

[sylvester-ponte]

waar staan de gewenste uitkomsten op blad 3 ik kan ze niet vinden.