Kolommen kopieren en plakken

[mobo2018]

Hallo,

Momenteel ben ik een rapportage aan het maken op basis van aangeleverde informatie.
Uit de aangeleverde informatie moet ik een aantal kolommen kopiëren en plakken in de rapportage.
Bij de functie kopieren/plakken worden de kolommen naast elkaar gezet, hetgeen niet de bedoeling is.
Ik ben aan de slag gegaan met een macro en kom op een repeterende formule uit voor iedere kolom die gekopieerd moet worden.
Mijn vraag hierbij is, of dit eenvoudiger kan en indien er kolommen bij komen, of deze automatisch mee genomen kunnen worden?

In de bijlage heb ik een voorbeeld gedaan inclusief de betreffende macro

Alvast bedankt,

Mo

 

[AD1957]

probeer het eens zo.

Sub Analyse()
Dim i As Integer
i = Sheets("Aangeleverd").Cells(1, Columns.Count).End(xlToLeft).Column

For i = 3 To i Step 2
    With Sheets("Aangeleverd")
        .Cells(3, i).Resize(10).Copy Sheets("Rapport").Cells(6, i + 1)
    End With
Next

End Sub

 

[mobo2018]

Alleen kolom D wordt gevuld. De rest blijft blanco

 

[AD1957]

plaats eens het bestandje waarin je de code hebt toegepast.

 

[mobo2018]

Bij deze,

Gr,
Mo

 

[AD1957]

Waarom heb je Dim i as integer in de code uitgeschakeld.

 

[mobo2018]

Je hebt gelijk.

Helemaal overheen gekeken

Gr,
Mo

 

[mobo2018]

Ik ben zojuist aan de slag gegaan om dit te implementeren in mijn bestand
Hier loop ik tegen 2 dingen aan die ik niet had voorzien.

* Als er in kolom 1 lege cellen staan, stopt de bewerking en gaat hij niet meer verder in kolom 3
* Na ongeveer 100 regels worden de gegevens niet mee aangevuld.

Gr,
Mo

 

[AD1957]

Geen idee wat je nou precies bedoelt.
Waarschijnlijk dit.

Sub Analyse()
 Dim i As Integer
 Dim j As Integer
 
i = Sheets("Aangeleverd").Cells(1, Columns.Count).End(xlToLeft).Column
j = Sheets("Aangeleverd").Range("A" & Rows.Count).End(xlUp).Row

For i = 3 To i Step 2
    With Sheets("Aangeleverd")
        .Cells(3, i).Resize(j).Copy Sheets("Rapport").Cells(6, i + 1)
    End With
Next

End Sub

p.s. in jouw code stond "Dim i as integer" weer uitgeschakeld.

 

[mobo2018]

Ja, dit is inderdaad wat ik zocht.

In mijn toepassing heb ik een verkeerde aanpassingen gemaakt, waardoor de VBA code niet werkte zoals hij bedoeld was.

Bedankt voor je hulp

Gr,.
Mo