selecteren met variabele rij

Goedemiddag,
Ik heb een korte vraag waar ik maar niet uit kom.
Het gaat om dit stukje code:

ActiveSheet.Range("A2:R2").Copy Destination:=ActiveSheet.Range("U2:U" & rij)

De variabele rij wordt telkens met 1 opgehoogd tot dat in kolom A de eerste lege cel wordt bereikt en dan stopt de loop.
Het laatste stukje van de code ActiveSheet.Range("U2:U" & rij) werkt wel. De Range loopt keurig door naar U2:U17 (als de eerste lege cel dan 17 is)
Ik wil dit ook toepassen op het eerste stukje van de code ActiveSheet.Range("A2:R2")
Dus A en R moeten ook telkens gelijk zijn aan de variabele rij

Ik krijg het niet voor elkaar, wie heeft de gouden tip?

Het gaat om dit stukje code:

Private Sub CommandButton1_Click()
Dim rij As Integer

' Select cell A1, *first line of data*.
rij = 1
ActiveSheet.Range("A1").Select
' Set Do loop to stop when an empty cell is reached.
Do Until IsEmpty(ActiveCell)
ActiveSheet.Range("A2:R2").Copy Destination:=ActiveSheet.Range("U2:U" & rij)
rij = rij + 1
' Step down 1 row from present location.
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Ik wil dus graag dat A en R ook opgehoogd worden zoals U.


gr hans

Ik denk dat er niemand is die iets van je vraag begrijpt.
Plaats hier eens een bestand met je macro's.

Plaats code tusssen code tags(zie voorbeeld hieronder)

Het kan met 1 regel VBA-code:


Het is zelden verstandig zoveel gegevens dubbel in een werkboek te zetten.

Hoi
Dank voor je snelle reactie
Ik ben er even mee aan het spelen geweest maar krijg dat stukje niet werkend.
Blijft mekkeren over Object vereist
Als ik Sheet 1 wijzig naar ActiveSheet is die melding verdwenen maar krijg ik fout 1004
denk dat ik wat over het hoofd zie.

en hiermee ?
zet de code in de macromodule van het aktieve werkblad.

Hoi

Die werkt als een tierelier.
Ik zal het gebruiken en je dan laten zien waarvoor ik het gebruik.

Dank voor zover.

Hoi,

Ik heb het werkend zoals ik wilde, zie bijgesloten sheet.
In tabblad 3 staat de tekst zoals ik die aangeleverd krijg.
Die tekst moet gekopieerd worden in Tabblad 1, selecteer dus A1
Klik daarna op Create PW tekst en Blad 2 wordt gevuld.
Je krijgt een melding om in de cellen Range I2 P27. Deze grootte is uiteraard afhankelijk van de grootte van het bestand die ik aangeleverd krijg.
klik daana op Create TXT en als alles gereed is wordt het in een nieuw geopend kladblok gekopieerd.
Als de excelsheet weer actief wordt met klikken op OK van de gereed melding zal de hele sheet gewist worden.
Er zal ongetwijfeld teveel code in staan maar dat heeft te maken met mijn excel ervaring en zal in de loop der tijd wel wat verbeteren.

PS. is het ook mogelijk om een PDF bestand te doorzoeken op bepaalde woorden?

gr hans

opgelost