VBA 300 keer copy van range naar elke keer 12 cellen lager

[trainers]

Zit met het volgende.
Een range moet 300 keer gekopieerd (en geplakt) worden.
Deze Range (A35:F46) heeft de naam "Block_Formules_Copy" en bevat alleen formules.
Dit block wil ik kopiëren: eerst naar A47, vervolgens naar A59, dan naar A71 enz. Dus telkens +12.

Wie kan mij op weg helpen.
Bij voorbaat dank.

 

[edmoor]

Uiteraard in een loop. Zoiets:

Sub CopyBlock()
    For i = 47 To 3600 Step 12
        'De kopieer code. Doelcel is Cells(i, 1)
    Next i
End Sub

 

[snb]

Sub tst()
  Cells(47, 1).Resize(12, 6).Formula = [Block_formules_copy].Formula
End Sub

 

[trainers]

Dank aan edmoor en snb.
Ik heb er dit van gemaakt;

Sub CopyBlock()
    Dim i As Integer
    For i = 47 To 3600 Step 12
        Cells(i, 1).Resize(12, 6).Formula = [Blok_formules_copy].Formula
    Next i
End Sub

Echter worden de formules exact gekopieerd i.p.v relatief. Zit dat probleem in de 'Resize'?

 

[Ginger]

Cells(i, 1).Resize(12, 6).Formula = [Blok_formules_copy].Formula(false, false)

 

[trainers]

Sorry Ginger,

Maar

Cells(i, 1).Resize(12, 6).Formula = [Blok_formules_copy].Formula(False, False)

geeft de foutmelding:




Groeten,
Trainers

 

[Ginger]

Ok, probeer 'm dan 'ns bij de eerste 'formula' in die regel?

 

[trainers]

Cells(i, 1).Resize(12, 6).Formula(False, False) = [Blok_formules_copy].Formula

Cells(i, 1).Resize(12, 6).Formula(False, False) = [Blok_formules_copy].Formula(False, False)

Beide geven dezelfde foutmelding.

 

[edmoor]

Plaats anders dat document eens.

 

[trainers]

Zal ik morgen doen. Is even een behoorlijke klus om e.e.a. uit het grote bestand te halen.

 

[Leotaxi]

Sub kopie300()
    x = 47
    For i = 1 To 300
        Range("A35:F46").Copy Destination:=Range("A" & x)
        x = x + 12
    Next
End Sub

mvg
Leo

 

[trainers]

Leo,
Dat is hem. Werkt als een zonnetje . Dank je wel.

Allen, bedankt voor jullie moeite en meedenken.

Groeten,
Trainers