Hoe krijg ik wegzenden relatief?

[PJurriaans Sr]

Hallo ik zit nog met een probleem met onderstaande oplossing van Wigi die prima werkt,
maar ik zou hem graag onderaan een lijst willen gebruiken.hoe krijg ik dat voor elkaar?

ik experimenteer met onderstaand maar die adressen veranderen niet.wie helpt mij verder

[Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select]

[Sheets(1).Range("A1") = Sheets(2).Range("A1")]

Groet Peter.
Omdat reacties uitblijven,zal ik het probleem eenvoudiger stellen ik wil graag deze procedure
[Sheets(1).Range("A1") = Sheets(2).Range("A1")] gebruiken niet in [A1] maar onderaan de rij.
maar dat adres veranderd natuurlijk steeds is er mischien iemand die mij kan helpen? bvd.mvg.Peter

 

[HWV]

Niet echt duidelijk

Beste,

Een stukje code die ik hier op het forum heb gekregen, mischien kom je hier verder mee

Sub test()
Sheets(1).Range("A1:A1").Copy
Sheets(2).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End Sub

Deze code neem de laatst gevulde cel in kolom A van sheet 1 over naar sheet 2

Sub test()
Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(0).Copy
Sheets(2).Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
End Su

Groet HWV

 

[PJurriaans Sr]

Hoe krijg ik wegzenden relatief?

HWV :thumb: geweldig een reactie!! dat helpt een als onduidelijke ziel toch verder.
Dank daar voor mvg.Peter.