Celinhoud A1:F1 herhalen op nieuwe rijen door vermenigvuldigen met celinhoud G1

[jhhogervorst]

Ik heb records, die ik een aantal keer wil herhalen nl vermenigvuldigen met het aantal karren.
Zo heb ik een nieuwe lijst met tijden met elk 1 kar op tabblad 2.
Zie bestand, waarbij ik sheet 2 nu handmatig heb gevuld.Bekijk bijlage CellenherhalenopNieuwerijen.xlsx

Alvast bedankt.

 

[HSV]

In een standaard module.

Sub hsv()
 Dim j As Long, cl As Range
  Sheets("sheet2").UsedRange.ClearContents
    Application.ScreenUpdating = False
     With Sheets("sheet1")
      Sheets("sheet2").Range("A1:F1") = .Range("A1:F1").Value
 For Each cl In .Range("G3:G" & .Cells(Rows.Count, 7).End(xlUp).Row)
     For j = 1 To cl.Value
       Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) = .Cells(cl.Row, 1).Resize(, 6).Value
     Next j
   Next cl
  End With
End Sub

 

[jhhogervorst]

Opgelost

Bedankt.
Hij doet het ook in het originele grotere document.

Ik zal de status aanpassen.

vrgr