Excel vba macro om rijen te kopiëren gebaseerd op de waarde van een cell

[alpha]

Omdat het niet mogelijk is mijn vorig bericht te wijzigen of verwijderen, een neiuw bericht om een aangepaste code te kunnen plaatsen. Verder nog twee opmerkingen:

1. In het invulblad heb je vanaf rij 9  de kolommen A en B in ALLE rijen (dat zijn meer dan 1 miljoen rijen) groen gemaakt, hierdoor wordt je bestand 40 keer zo groot als wanneer je dat niet had gedaan. Het is niet verstandig van veel meer rijen gebruik te maken dan je nodig hebt.

2. Verder heb je in het invulblad twee rijen geplaatst die identiek zijn aan een andere rij. Voor de macro maakt dat niets uit, maar als je dat niet weet kan het resultaat anders zijn dan je had gedacht. Daar rekening mee houdend, doet de macro wat je wil.

Sub kopieer()

Dim a As Integer, p As Integer, q As Integer, x As Integer

Application.ScreenUpdating = False

Sheets("Verveelvoudiging").Cells.ClearContents

With Sheets("Invulblad")

p = .Range("a1").CurrentRegion.Rows.Count

q = WorksheetFunction.Match("", .Range("c1:c" & p), 0) - 1

.Range("c1:p" & q).Copy

End With

With Sheets("Verveelvoudiging")

.Activate

With .Range("a1")

.PasteSpecial Paste:=xlPasteValues

.Select

End With

x = q

Do While x > 1

a = .Range("c" & x).Value

If a > 1 Then

.Rows(x + 1 & ":" & x + a - 1).Insert

.Rows(x & ":" & x + a - 1).FillDown

End If

x = x - 1

Loop

.Columns("a:n").AutoFit

End With

Application.ScreenUpdating = True

End Sub

[Dalbos]

Enorm bedankt, ik ga het morgen direct proberen.

[Dalbos]

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

[alpha]

De macro is ok, maar je hebt hem niet goed overgenomen.

Er zijn een aantal regels waar een punt voor staat en die heb jij weggehaald.

Die punten zijn enorm belangrijk.

Best om je eens te verdiepen in de elementaire beginselen van vba voordat je het wil gebruiken.

[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