Kolommen toevoegen aan ander kolom

[janss028]

Hallo Ik heb het volgende probleem:
De volgende stituatie:
Kolom a Kolom b kolom c kolom d
aaa1 bbb1 ccc1 ddd1
aaa2 bbb2 ccc2 ddd2
Einde

Nu wil ik het volgende resultaat
Kolom a Kolom b
aaa1 bbb1
aaa2 bbb2
Einde
ccc1 ddd1
ccc2 ddd2

Is iemand die me kan vertellen hoe ik het bereik van kolom c en d kan betalen
en dan die rijen kan kopieren onder kolom a en kolom b

Alvast bedankt
Ron

 

[richard1970]

Mmmmm, kost een tientje.

Is het een éénmalige handeling? Dan kun je toch het bereik vanaf C1 tot onderaan D.... selecteren en via Ctrl+C en Ctrl+V onder kolommen en B plakken?

Of in kolom A onder de laatste rij zetten:

=C1

en deze formule een cel naar rechts doortrekken en helemaal naar beneden totdat er alleen maar nullen staan.

Of is het een terugkerende handeling? Dan kan VBA je helpen.

Richard

 

[janss028]

Hallo Richard,

Is iets wat steeds terugkomt en de aantal rijen zijn niet bekend. Dus zal via een VBA script moeten om eerst het bereik van kolom c en te bepalen en de in houd hier vanvolgens te kopieren in kolom a en b onder het woord Einde. Hopelijk kun je me hiermee helpen. Alvast bedankt

 

[richard1970]

Helaas. ben geen VBA'er. Dat kunnen anderen veel beter, eleganter en sneller dan ik.

Richard

 

[Cobbe]

O.a. met deze lukt dat:

Sub onderplakken()
Range("C1:D" & Range("C65000").End(xlUp).Row).Copy
Range("A" & Range("a65000").End(xlUp).Row + 1).PasteSpecial
Range("C1:D" & Range("C65000").End(xlUp).Row).ClearContents
End Sub

Mvgr.
Cobbe

 

[janss028]

Hallo Cobbe

Bedankt. Het is gelukt

Met vriendelijke groet
Ron