2 kolommen kopiëren

[don42]

beste helpers,

is het mogelijk om de waarde van 2 kolommen te kopiëren

bv uit kolom A van A2 t/m A51
en Kolom D van D2 t/m D51

en dan dit naar een 1 kolom te kopiëren (andere sheet) bv kolom P P2 t/m P100

Don

 

[SjonR]

ja, met vba moet dat wel lukken.

 

[don42]

ik had iets als:

Range("a2:a51 , d2:d51").Copy
    Range("p2").PasteSpecial xlValues
    Application.CutCopyMode = False

maar hoe verder

 

[SjonR]

letterlijk genomen kom je dan hierop, maar het is vast niet zo simpel:

Sub SjonR()
Range("P1:P50").Value = Range("A2:A51").Value
Range("P51:P100").Value = Range("D2:D51").Value
End Sub

 

[don42]

Oke dit is een stap verder,
het is de bedoeling dat de 2 kolommen gekopieerd worden
en dan als 1 kolom geplakt in sheet "invoer" vanaf de eerste lege cel in rij 4
met onderstaande code selecteer ik de cel

Range("A4").End(xlToRight).Offset(0, 1).Select

en dan ....

 

[SjonR]

We kunnen het stap voor stap doen, of je plaatst een voorbeeldbestand .

 

[don42]

een voorbeeldje

Bekijk bijlage db2.xlsm
tabblad Tellijst-kaslichten kolom C en D worden bedragen ingevuld
deze wil ik dus kopiëren en naar tabblad invoer (in dit geval de kolom AH waar 2 okt staat)

 

[emields]

je bedoeld dan niet 2 kolommen kopiëren maar de som van 2 kolommen?

 

[don42]

Nee ik had graag alle waardes in 1 kolom dus de waardes van c2 t/m c49 en D2 t/m d49 in kolom AH van tabblad invoer van AH2 tot AH 97