Macro automatisch invoegen rijen op basis van waarde

[Ikkemii]

Hallo iedereen die dit leest.

Ik zit met een probleem

Wanneer ik een bestelling heb geplaatst bij een leverancier krijg ik de volgende info :

Kolom A | Kolom B
1 art1 | 4
2 art2 | 2
3 art3 | 1

Kolom B zijn de aantallen die binnen zijn gekomen en kolom A als vanzelfsprekend het artikelnummer.
Nu komt het eigenlijke probleem:

Wanneer ik de bestelling plaats zijn het over het algemeen 1500 unieke artikelnummers en de aantallen verschillen van 1 tot 90 artikelen.

Om deze weg te werken in de loods maken we gebruik van labels nu is het namelijk nog zo dat een ik of mijn collega elk artikel handmatig moeten afdrukken via de Dymo Label Writher
Maar je kunt ook excel bestanden inlezen met de Dymo lekker makkelijk. Alleen print deze elke label 1 keer uit.

De oplossing die ik daarvoor had bedacht maar waar ik dus simpelweg niet uitkom is het volgende

Heb al verschillende macro's gebruikt en getracht deze aan te passen maar bij de een kan ik alleen wanneer er een verschil is in de rij 1 lege regel toevoegen en bij de andere komt er niets in beeld.

Zelf ben ik geen beginner met excel maar in deze kom ik er echt niet uit

Een macro of formule die aan de hand van Kolom B het volgende doet

| Kolom A | Kolom B ( aantal )
1 | art1 | 4
2 | art1 | 4
3 | art1 | 4
4 | art1 | 4
5 | art2 | 2
6 | art2 | 2
7 | art3 | 1

Wie kan me hierbij helpen let wel het gaat om een best wel lange lijst.

Kolom A kan verwisseld worden met Kolom B het maakt niet uit waar het artikelnummer staat het gaat erom dat de Dymo het juiste aantal stickers uitdraait.

Vriendelijke groet,
Robin

 

[sylvester-ponte]

Robin, jij als gevorderd excel man, begrijpt natuurlijk wel dat een voorbeeld bestandje geen overbodige luxe is.

 

[Ikkemii]

Robin, jij als gevorderd excel man, begrijpt natuurlijk wel dat een voorbeeld bestandje geen overbodige luxe is.

Sorry Sylvester iets niet lekker gegaan met het uploaden.
Hierbij alsnog een deel van het bestand waar het om gaat.Bekijk bijlage voorbeeldbestand.xlsx

 

[HSV]

Zie het resultaat op blad2.

Sub hsv()
Dim sq, i As Long, j As Long, n As Long
With Sheets("Blad1")
sq = .cells(1).CurrentRegion
ReDim arr(UBound(sq) * Application.Max(.Columns(2)), 1)
     For i = 1 To UBound(sq)
     For j = 1 To sq(i, 2)
                arr(n, 0) = sq(i, 1)
                arr(n, 1) = sq(i, 2)
                        n = n + 1
          Next j
       Next i
   Sheets("Blad2").Cells(1).Resize(n, 2) = arr
  End With
End Sub

 

[Ikkemii]

HSV ontzettend hartelijk bedankt je hebt me knetter goed op weg geholpen hier ben ik al 2 maand mee bezig geweest en heeft de baas veel uren gekost.

Zie het resultaat op blad2.

Sub hsv()
Dim sq, i As Long, j As Long, n As Long
With Sheets("Blad1")
sq = .cells(1).CurrentRegion
ReDim arr(UBound(sq) * Application.Max(Columns(2)), 1)
     For i = 1 To UBound(sq)
     For j = 1 To sq(i, 2)
                arr(n, 0) = sq(i, 1)
                arr(n, 1) = sq(i, 2)
                        n = n + 1
          Next j
       Next i
   Sheets("Blad2").Cells(1).Resize(n, 2) = arr
  End With

End Sub

 

[HSV]

Graag gedaan, ik heb nog wel een puntje gezet achter "max("; neem die ook nog even over.