labels printen

[HarmenD]

Beste experts,

Mogelijk dat iemand hier een oplossing voor weet (het is mij nog nooit overkomen dat ik geen oplossing kreeg );
Ik heb een aantal gegevens uit tabblad pakbon m.b.v. de macro etiket_tmp overgezet naar tabblad etiket-tmp;
En dan nu de vraag: wanneer er meerdere colli zijn dan zou het heel mooi zijn wanneer ook dat aantal voor hetzelfde adres werd gemaakt;
De kleuren in het tabblad etiket zijn alleen ter verduidelijking;
Het mag gewoon platte tekst zijn;
Dit tabblad wordt dan in een nieuw bestand geplaatst en naar een bepaalde map gekopieerd en geïmporteerd in het softwareprogramma van DymoLabel

Alvast bedankt voor een mogelijke oplossing

mvg
HarmenD

 

[VenA]

Sub VenA()
  Dim j As Long, jj As Long, t As Long, ar
  ar = Sheets("pakbon").ListObjects(1).DataBodyRange
  ReDim ar1(6, 0)
  For j = 1 To UBound(ar)
    If ar(j, 14) > 0 Then
      For jj = 1 To ar(j, 14)
        ar1(0, t) = ar(j, 3)
        ar1(1, t) = ar(j, 4)
        ar1(2, t) = ar(j, 5)
        ar1(3, t) = ar(j, 6)
        ar1(4, t) = ar(j, 7)
        ar1(5, t) = ar(j, 8)
        ar1(6, t) = jj & "/" & ar(j, 14)
        t = t + 1
        ReDim Preserve ar1(6, t)
      Next jj
    End If
  Next j
  With Sheets("etiket")
    .Cells(1).CurrentRegion.Offset(1).ClearContents
    .Cells(2, 1).Resize(t, 7) = Application.Transpose(ar1)
  End With
End Sub

 

[HarmenD]

Beste VenA,

Dit gaat mijn pet te boven.
Het probleem is nu dan ook dat ik niet zie waarom de macro bij mij niets doet.
Ik probeer in de editor met F5 jouw macro te starten, maar er gebeurt (nog) niets.
Tussen 2 ()-jes: ik heb het geprobeerd vanuit alle tabbladen
Heb je een idee wat er mogelijk mis is.

mvg
HarmenD

 

[VenA]

Je ziet niets omdat het razendsnel is Wijzig .ClearContents maar eens in .Clear en probeer het nog eens.

 

[HarmenD]

Beste VeA,

Ik heb iets te snel geroepen;
Nadat ik mijn gegevens op tabblad etiket had verwijderd werd er wel e.e.a. overgezet :d;
Ga er even verder op studeren!

mvg
HarmenD

# Je ziet niets omdat het razendsnel is Wijzig .ClearContents maar eens in .Clear en probeer het nog eens.

Dat was het !!

 

[HarmenD]

Beste VenA,

Echt perfect!

Ik heb tabblad etiket-tmp al verwijderd evenals 'mijn' macro etiket-tmp;

Nog 1 vraag: is het ook mogelijk om in tabblad etiket ook de bijbehorende koptekst te plaatsen?

In de software van DymoLabel kun je namelijk aan de hand van de koptekst een vaste indeling maken en opslaan;
M.a.w. dat zou wel heel handig zijn.

Nogmaals bedankt voor je geboden oplossing!

mvg
HarmenD

 

[VenA]

Je had de koptekst in de tab 'etiket' moeten laten staan. Alles wat eronder staat wordt verwijderd.

 

[HarmenD]

Weer te snel!
Ga ik doen!
Was dit hier onder niet nodig geweest;
Laat het nu maar ff staan;
Bedankt!

Misschien nog even ter verduidelijking:



mvg
HarmenD

 

[VenA]

Kan de software van DymoLabel dit zelf niet? Lijkt mij een redelijk basale functie en heb je geen 'geknutsel' in Excel nodig.

 

[HarmenD]

Ga hier vanavond en/of morgen nog even naar kijken.
M.a.w. kom hier nog op terug en zet het onderwerp daarna 'op slot'.

mvg
HarmenD

 

[HarmenD]

Beste VenA,

Voor zover ik kan nagaan is wat jij 'geknutseld' hebt in Excel in de software van DymoLabel (nog) niet mogelijk.
Je kunt bijvoorbeeld wel met velden werken, maar wat voor mij o.a. belangrijk is dat wanneer je meerdere colli voor één adres hebt je ook voor alle colli voor dat adres de labels kunt uitprinten.
En ... op het label staat dan ook 1/n, 2/n enz.

Zoals ik al opmerkte: het is dus (nog) niet mogelijk ..... ik kan ze wel iemand 'warm' aanbevelen die dat wel kan :d

mvg
HarmenD