eerstvolgende lege cel rechts vullen

[pdekoning]

Hallo,
ik gebruik
sheets(1).rows(5).copy sheets(2).rows(Range("Blad2!B65536").End(xlUp).Row + 1)
om te kopieeren naar de eerst volgende lege cel.

Weet iemand hoe ik er voor kan zorgen dat steeds de eerst volgende RECHTSE lege cel genomen wordt om te vullen.
Nu wordt alles onder elkaar gezet.
Ik wil graag dat bv alleen rij 3 gevuld worden.
A3, B3, C3, D3 enz enz.
Weet iemand raad?
Groeten Peter

 

[HSV]

Misschien kun je deze even testen Peter.

Sheets(1).Rows(5).Copy Sheets(2).Rows(Range("Blad2!A256").End(xlUp).Column + 2)

 

[Roncancio]

Hallo,
ik gebruik
sheets(1).rows(5).copy sheets(2).rows(Range("Blad2!B65536").End(xlUp).Row + 1)
om te kopieeren naar de eerst volgende lege cel.

Weet iemand hoe ik er voor kan zorgen dat steeds de eerst volgende RECHTSE lege cel genomen wordt om te vullen.
Nu wordt alles onder elkaar gezet.
Ik wil graag dat bv alleen rij 3 gevuld worden.
A3, B3, C3, D3 enz enz.
Weet iemand raad?
Groeten Peter

Wil je nu 1 cel kopiëren of een hele rij?

Met vriendelijke groet,


Roncancio

 

[pdekoning]

het werkt!

Het werkt geweldig Harry.
Hartelijk dank
Groeten Peter

 

[HSV]

Graag gedaan Peter.
Misschien kun je het als opgelost zetten.
B.v.d.

 

[pdekoning]

oke doe ik direct.
Groeten Peter

 

[trucker10]

@ pdekoning Ik snap het niet al te goed , volgens mij wil je gewoon Row5 kopieren naar blad2 op Row3 ( A3,B3,C3 ...... ) Hier had ik toch graag een voorbeeldje van gezien , kan ik misschien nog iets uit leren . Ook altijd handig voor de mensen die hetzelfde zoeken hebben ze er meteen de oplossing met bestandje bij

 

[HSV]

Bij deze Daniël, allias Trucker10.

Al kan er ook best een kolom worden overgesprongen merk ik nu.
Maar Peter was tot nu toe nog tevreden.

 

[trucker10]

Bij deze Daniël, allias Trucker10.

Al kan er ook best een kolom worden overgesprongen merk ik nu.
Maar Peter was tot nu toe nog tevreden.

@ Harry , tot zolang de TS tevreden is zijn wij dat ook :thumb: ik krijg hetzelfde resultaat met

Sub Daniël()
Sheets(1).Rows(5).Copy Sheets(2).Rows(4)(Range("Blad2!A256"))
End Sub

 

[HSV]

Weer een stukkie korter Daniël. :thumb:

Klein vraagje toch van mijn kant.
Hoe kan er Copy Sheets(2).Rows(4) staan, en het kopiëeren naar rij 3.
Als ik er .Rows (5) van maak, komt het op rij 4.

 

[Warme bakkertje]

Dan doet deze mi toch exact hetzelfde en is er niet meer nodig

Sheets(1).Rows(5).Copy Sheets(2).Rows(3)

 

[trucker10]

Weer een stukkie korter Daniël. :thumb:

Klein vraagje toch van mijn kant.
Hoe kan er Copy Sheets(2).Rows(4) staan, en het kopiëeren naar rij 3.
Als ik er .Rows (5) van maak, komt het op rij 4.

Het is dat stukje van excel dat we nooit gaan begrijpen waarom we Rows(4) zetten en het op rij 3 terecht komt

 

[HSV]

Dan doet deze mi toch exact hetzelfde en is er niet meer nodig

Sheets(1).Rows(5).Copy Sheets(2).Rows(3)

Nah, da’s ja nog korter Rudi. :thumb:

Jij ook bedankt Daniël.

 

[snb]

Of

[Blad1!4:4].Copy [Blad2!6:6]

of

[Blad2!9:9] = [Blad1!4:4].Value