• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

rijen meermaals kopiëren volgens gegevens in cel

Status
Niet open voor verdere reacties.
B

Baddeboy

Gebruiker
Lid geworden
11 aug 2013
Berichten
8
Beste collega's,

Heb het volgende probleem.

Om etiketten af te drukken maak ik een verzendlijst die ik dan gebruik om via Word etiketten te drukken.

Nu moeten sommige etiketten meerdere keren afgedrukt worden.

Dacht iedere rij te kopiëren in een nieuw tabblad maar dan meerdere malen indien in een cel op die rij het aantal staat.

Heb een voorbeeld bestand en hoop dat dit iets duidelijk maakt.

Mvg
 

Bijlagen

  • exampleBaddeboy.xlsx
    15,3 KB · Weergaven: 15
zo?
 

Bijlagen

  • exampleBaddeboy.xlsm
    23,6 KB · Weergaven: 24
Een loop minder
Code: 
Sub Maybe()
Dim i As Long, sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("Bron")
Set sh2 = Worksheets("Etiketten")
Sheets("Etiketten").UsedRange.Offset(1).ClearContents
    For i = 2 To Sheets("Bron").Cells(Rows.Count, 1).End(xlUp).Row
        sh2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(sh1.Cells(i, 7), 12).Value = sh1.Cells(i, 1).Resize(, 12).Value
    Next i
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan