Rijen naar beneden kopieren met variabele waarde

[Skip66]

Ik ben op zoek naar een stukje VBA (Macro) om rij 2 naar beneden te kopiëren.
Rij 2 bestaat uit 5 kolommen (A t/m E. Deze cellen worden gevuld met informatie uit een andere tabblad en rij.
Echter het aantal X dat naar beneden moet worden gekopieerd is afhankelijk van het aantal rijen uit het andere tabblad en aantal aanwezige rijen.

Het aantal rijen weet ik door de formule aantalarg.

Deze actie moet worden uitgevoerd als desbetreffende tabblad wordt geopend.

Graag een oplossing.

Walter Bouwman

 

[Timshel]

Deze vraag schreeuwt om een voorbeeldbestand.

 

[Skip66]

Voorbeeld bestand

Hierbij het voorbeeld van het bestand.
In tabblad 2 dient rij twee een x aantal naar beneden te worden gekopieerd.

Skip66

 

[JEC.]

Bijvoorbeeld

Private Sub Worksheet_Activate()
Cells(2 + Range("I1"), 1).Resize(, 5) = Array([A2], [B2], [C2], [D2], [E2])
Range(Cells(2, 1), Cells(2, 5)) = ""
End Sub

 

[Skip66]

JVeer,

Alvast bedankt voor je acties.

Het is echter niet helemaal wat ik bedoel. Maar we zitten in de richting.
De bedoeling is: Cel A2 t/m E2 door te kopieren naar A3 t/m E12.
Op deze manier krijg ik de data uit tabblad 1

Skip66

 

[VenA]

En dan heb je dezelfde data op 2 tabjes staan wat vaak niet handig is.

Sub VenA()
  Sheets("Blad2").Cells(2, 1).Resize(Sheets("Blad1").Range("L1"), 5) = Sheets("Blad1").Cells(2, 2).Resize(Sheets("Blad1").Range("L1"), 5).Value
End Sub

 

[Skip66]

Dit is ook niet helemaal wat ik wil.

De macro kopieert niet de juiste kolomgegevens?
In tabblad twee staan alleen formules (Verwijzingen naar tabblad 1) die gekopieerd moeten worden.
Het is van belang dat de formules blijven bestaan, want de invoer in tabblad 1 kan wijzigen.

Selecteer in tabblad 2 rij 2 A2 t/m E2
Kopieer naar A3 t/m E? (?=variabel)

Ik hoop hiermee nog iets duidelijker te zijn.

Skip66

 

[VenA]

Formules kan je toch gewoon doorslepen naar beneden? Wat is het nut van een macro dan? En wat is het nut van dezelfde gegevens op 2 tabjes? Ik denk dat je beter een draaitabel kan gebruiken.

Sub VenA()
  Sheets("Blad2").Range("A2:E2").AutoFill Sheets("Blad2").Range("A2:E" & Sheets("Blad1").Range("L1") + 1)
End Sub

of

Sub VenA()
  Sheets("Blad2").Range("A2:E" & Sheets("Blad1").Range("L1")) = Sheets("Blad2").Range("A2:E2").Formula
End Sub

Zal de formules doortrekken.

 

[Skip66]

Dit is de oplossing.
Bedankt allemaal voor het meedenken en helpen.

prettig weekend.

mvg

Skip66