Copy, Find, Copy, Paste

[VAMEES]

Hallo,

Ik probeer de waarde uit een cel uit 1 tabblad te vinden in een ander tabblad.
Vervolgens de waarde die op het tweede tabblad staat te copieren naar het 1ste tabblad.
Het moeten allemaal relatieve verwijzingen zijn omdat het in een LOOP gezet gaat worden.
Maar helaas krijg ik dit stukje al niet correct

Wie o wie kan me helpen

 

[Wigi]

Sub ZoekBegroting()
'zoekt Begroting gegevens bij de Actual gegevens.
'Plakt deze vervolgens op de bijbehorende regel in Actual

    Dim r As Range

    On Error Resume Next
    For Each r In Sheets("actual").Range("A2:A7")
        Sheets("Begroting").Columns(1).Find(r.Value, LookIn:=xlValues, lookat:=xlWhole).Offset(, 1).Resize(, 4).Copy r.Offset(, 1)
    Next
    Err.Clear

End Sub

Wigi

 

[VAMEES]

WOW niet te geloven…
Elke keer al ik ermee bezig was, waren er meer regels nodig.
En zie hier het hele probleem opgelost met een paar slimme regels.
Ik denk het grotendeels te begrijpen.
Wat doen de drie commando’s hier onder eigenlijk?

LookIn:=xlValues
lookat:=xlWhole
Resize(, 4)

In ieder geval bedankt voor het oplossen van mijn probleem:thumb:

 

[Wigi]

Wat doen de drie commando’s hier onder eigenlijk?

LookIn:=xlValues
lookat:=xlWhole
Resize(, 4)

In ieder geval bedankt voor het oplossen van mijn probleem:thumb:

Klik met de muis op het woord Find, respectievelijk Resize, en druk F1.

Begrijp je het dan nog niet, vraag je maar verder.

Wigi