Code herhalen kolommen

[helpalex]

hallo, (Wigi)

Is er ook een macro code om op het zelfde blad (of niet) een aantal kolommen 50x te herhalen?
bijv. A1t/mA20 moet vanaf cel A20 50x herhaalt worden.

Ik ben zeer benieuwd.

Groet Alex

 

[Wigi]

Alex

alstublieft:

Sub kopieren()
Dim rngCopy As Range, i As Integer
Set rngCopy = Range("A1:A20")
For i = 1 To 50
    rngCopy.Copy Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next
End Sub

Wigi

 

[helpalex]

Hartelijk dank weer.:thumb:


Groet

Alex

 

[brandernl]

Bij mij doet ie niks.
Ik zie niet wat er binnen de For > Next met i moet gebeuren

 

[Wigi]

Ik zie niet wat er binnen de For > Next met i moet gebeuren

Zonder verdere uitleg wordt het voor mij ook niet simpel om te zeggen wat er misloopt. Krijg je foutmelding? Staat er iets in A1:A20? Hang misschien je bestand even bij.

De i wordt enkel gebruikt om de actie 50 keer te laten uitvoeren.

Eventueel had ik

Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

nog kunnen vervangen door een structuur met de i erin. Iets zoals 20*i+1 dat dan de nieuwe rij wordt. Kwestie van smaak.

Wigi