Automatisch kolommen kopiëren en plakken

[Ocirne]

Hallo,

Graag zou ik de volgende handelingen willen automatiseren:
- kopieer de laatste twee met gegevens gevulde kolommen en plak die in de eerstvolgende lege kolommen.

Stel, de kolommen A en B zijn de enige twee kolommen gevuld met gegevens. De macro zou dan het volgende moeten doen:
- selecteer A:B en plak deze (met opmaak en formules) in C : D
Als de macro daarna opnieuw wordt gedraaid:
- selecteer C : D en plak in E:F
etc.

Wie kan mij op weg helpen?

Alvast bedankt.

Mvg,

Ocirne

 

[VenA]

Probeer deze eens

Sub VenA()
Columns(UsedRange.Columns.Count).Offset(, -1).Resize(, 2).Copy Columns(UsedRange.Columns.Count).Offset(, 1)
End Sub

 

[Ocirne]

Hi VenA,

Ik krijg een pop-up met de volgende compileerfoutmelding: "Een variabele is niet gedefinieerd" waarbij de tweede 'UsedRange' wordt gehighlight. Waardoor komt dat?

Thx.

Ocirne

 

[VenA]

Geen idee ik krijg het niet.

Probeer het zo eens

Sub VenA()
With Blad1
    .Columns(.UsedRange.Columns.Count).Offset(, -1).Resize(, 2).Copy .Columns(.UsedRange.Columns.Count).Offset(, 1)
End With
End Sub

of

Sub VenA()
With Blad1
    lc = .Cells(1, Columns.Count).End(xlToLeft).Column
    .Columns(lc).Offset(, -1).Resize(, 2).Copy .Columns(lc).Offset(, 1)
End With
End Sub

En anders even een voorbeeldbestandje plaatsen.

 

[Ocirne]

Hi VenA,

Het lukt me niet. Ik heb daarom een vb-bestand bijgevoegd met de kolommen die steeds moeten worden gekopieerd en geplakt zodra de macro wordt geactiveerd.

Hopelijk heb je suggesties hoe het kan worden opgelost.

Mvg,

Ocirne

 

[VenA]

Gebruik geen samengevoegde cellen. Ik begrijp niet wat dit voorbeeld met de vraag te maken heeft. Wat moet er gekopieerd worden?

 

[Ocirne]

In mijn voorbeeldbestand moet de macro de kolommen A:G gekopieerd worden naar H:N. Als de macro opnieuw wordt gedraaid: kopie van kolommen H:N naar O:U, etc.

 

[VenA]

Probeer deze dan maar eens.

Sub VenA()
With Blad1
    .Columns(.UsedRange.Columns.Count).Offset(, -6).Resize(, 7).Copy .Columns(.UsedRange.Columns.Count).Offset(, 1)
End With
End Sub

 

[Ocirne]

Dit werkt perfect! Thanks!

Toch nog een vraag: waar verwijst de '-6' naar in de eerste offset?

Mvg,

Ocirne

 

[VenA]

6 kolommen naar links.

 

[Ocirne]

Nogmaals bedankt!

Mvg,

Ocirne