Aantal rijen kopiëren op basis van berekende celwaarde

[Henri232]

Goedemiddag,
Ik heb het volgende probleem:
Graag zou ik een stukje vba-code willen hebben om een aantal
rijen in een excel-sheet te kopiëren op basis van een berekende
celwaarde in diezelfde rij. Met andere woorden: als de celwaarde
4 bedraagt moet die rij gekopiëerd worden tot er 4 rijen zijn.
Een voorbeeld-bestandje is bijgevoegd. In werkelijkheid kan het
gaan om duizenden records.
Alvast bedankt,
Henri

 

[VenA]

Een iets andere insteek. Van jouw tabelletje wordt een nieuwe tabel gemaakt.

 

[Henri232]

VenA Geweldig bedankt.
Werkt perfect.
Groeten,
Henri

 

[Henri232]

Hoi VenA,

Enige tijd geleden kreeg ik van je onderstaande code en hierover heb ik 2 vragen:
- Moeten i, j, k en ak eigenlijk niet worden gedeclareerd?
- Waar staat 'ak' voor?
Alvast bedankt.
Henri

Sub kopieer()
dr = 18
For i = 4 To 12
k = Cells(i, 7)
For ak = 1 To k
For j = 3 To 7
Cells(dr, j) = Cells(i, j)
Next j
dr = dr + 1
Next ak
Next i
End Sub