celinhoud rijen kopieren naar kolommen

[gjvv]

Hallo,

Ik wil graag verschillende types data uit 1 kolom kopieren naar gescheiden data in 2 kolommen.
Zie voorbeeld.

Daarvoor moet er telkens een rij overgeslagen worden voor de volgende waarde.
Is hier een code voor?


Groeten! GJ

 

[snb]

Gebruik de macrorecorder:

Sub M_snb()
    Range("C6:C12").Copy Range("D5")
    Range("C6:D6,C8:D8,C10:D10,C12").Delete -4162
End Sub

 

[gjvv]

Bedankt voor de reactie

Ik had een voorbeeld met maar een paar gegevens. Wat als dit er meer dan 1000 zijn?

Groeten, GJ

 

[snb]

Dan moet je de code aanpassen.