Dalbos

Ik voel me een beetje....... Had het gekopieerd, begrijp niet waarom de punten ervoor zijn weggelaten. Ik ben idd bezig om een me er meer in te verdiepen. Excuus voor de overlast. Het werkt nu perfect. Nogmaals dank Mvg, peter

Beste Alpha, Ik heb de VBA code in de Marco gekopieerd, maar ik krijg een foutmelding. Compileer fout "Sub function is niet gedefineerd" en Activate is gearceerd. Wat doe ik fout? Zou je nog een keer hier naar willen kijken? Ik heb de excel sheet toegevoegd. Mvg, Peter Sticker.xlsm

Enorm bedankt, ik ga het morgen direct proberen.

inderdaad, dit zijn een paar test regels. Normaal zijn dit er 200 met elk een ander aantal. Na dupliceren worden dit dan bv 600 regels.

De Waarde in C is minimaal 1

Wat fijn dat je me wilt helpen. Het is idd de bedoeling om 4 rijen als resultaat te krijgen als aantal 4 is. Ik heb liever dat alles in TAB Verveelvoudiging komt ipv in een nieuwe tab Sheet 2. Tenminste als dat kan. Bij voorbaat dank Peter

Beste Alpha, Bedankt voor je reactie. Ik heb hier naar gekeken en alles staat correct en hij blijft dezelfde fout aangeven. Ik heb het bestand toegevoegd. INVULBLAD - In Kolom A en B kopieer ik mijn inkoopregels en de overige kolommen zijn formules om gegevens uit de order regels te halen. VERVEELVOUDIGING - Haalt de gegevens op van INVULBLAD. Hier wil ik mijn Macro starten om Kolom C (aantal) te dupliceren en in Sheet 2 te zetten. Hopelijk geeft dit meer duidelijkheid en wil je hier nog een keer naar kijken. Bij voorbaat dank. Mvg, Peter Sticker.xlsm

Goedemiddag, Ik ben op het internet volgende VBA code tegengekomen voor het kopiëren van regels. Het gaat om productregels waar ook een aantal staat aangegeven in veld H. Dit aantal is de verveelvoudiging van de regel. Echter de VBA geeft een foutmelding "Fout 13 tijdens uitvoering : type komen niet met elkaar overeen". Bij Foutopsporing is volgende regel aangeduid. timesToDuplicate = CInt(Worksheets("Sheet1").Range("H" & currentRow).Value) Wie kan mij hiermee helpen? Mvg, Peter De routine is. Sub DuplicateRows() Dim currentRow As Long Dim currentNewSheetRow As Long: currentNewSheetRow = 1 For currentRow = 1 To 32768 'The last row of your data Dim timesToDuplicate As Integer timesToDuplicate = CInt(Worksheets("Sheet1").Range("H"& currentRow).Value) Dim i As Integer For i = 1 To timesToDuplicate Worksheets("Sheet2").Range("A" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("A" & currentRow).Value Worksheets("Sheet2").Range("B" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("B" & currentRow).Value Worksheets("Sheet2").Range("C" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("C" & currentRow).Value Worksheets("Sheet2").Range("D" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("D" & currentRow).Value Worksheets("Sheet2").Range("E" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("E" & currentRow).Value Worksheets("Sheet2").Range("F" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("F" & currentRow).Value Worksheets("Sheet2").Range("G" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("G" & currentRow).Value Worksheets("Sheet2").Range("H" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("H" & currentRow).Value Worksheets("Sheet2").Range("I" & currentNewSheetRow).Value = Worksheets("Sheet1").Range("I" & currentRow).Value currentNewSheetRow = currentNewSheetRow + 1 Next i Next currentRow End Sub