Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: variable labels uit lijst  (gelezen 8959 keer)

0 leden en 1 gast bekijken dit topic.

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
variable labels uit lijst
« Gepost op: 25 april 2018, 22:15:22 »
Beste oplossers,
Is het mogelijke een variabel aantal labels te maken aan de hand van een lijst. De labels worden per 6 afgedrukt op een A4 blad.
Het aantal rijen in de lijst kan verschillen. Het zou de bedoeling zijn de labels te laten volgen op elkaar om het economisch te houden.
In bijlage een poging van wat het zou moeten worden maar ik geraak er echter niet uit. ;) Indien er overflow staat in de lijst moet er geen label zijn. Dit kan ik echter ook door een filter weg werken.

Offline JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #1 Gepost op: 27 april 2018, 21:53:59 »
Test mijn macro eens

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: variable labels uit lijst
« Reactie #2 Gepost op: 27 april 2018, 23:18:25 »
Mijn voorstel zou zijn om in Excel met een macro je lijst met codes aan te maken.  Ik weet niet met wat voor labels jullie werken, maar als die van Avery zijn kan je daar dus prima het gratis programma Avery Design Pro voor inzetten. Dit programma kan een Excellijst omzetten naar een database en die dus gebruiken voor het afdrukken van je labels. Die labels kan je in een paar tellen opmaken zoals je wilt. Tot aan bijvoorbeeld barcodes aan toe.

Ik werk daar persoonlijk al jaren op die manier mee.

[EDIT] ...heb 't ff voor je nagezocht op Google... Van Avery heb je A4 vellen met 6 labels: Avery Inkjet/Laser Compatible Labels 6 per sheet J8166 / L7166 - 100 Sheets. Ofwel, dit zou je zó kunnen oppakken met Avery Design Pro.
______________________________

Groet, Leo

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #3 Gepost op: 28 april 2018, 21:15:03 »
Beste oplossers,
Dank voor jullie reactie.
@jeanpaul
Heb even een test gedaan en er zijn sorteercodes die meer terug komen dan verwacht en andere reeksen zijn dan weer perfect. Ik had ook na iedere printout een blanko pagina. Ik zoek nog even of de fout hiervan bij mij ligt. Ik ga dit even  bekijken in PDF voor ik hier al mijn papier er door jaag. Ik hoop hier nog op mogen terug te komen we zitten al in de goede richting. Maar de tip van Redhead zal ik ook eens bekijken.

@redhead
Het zijn niet echt sticker vellen maar kan misschien in die richting ook eens zoeken. Hoe zie jij dan die lijst voor je? Is dit door het aantal sorteercodes te vermenigvuldigen met aantal stickers en die op te sommen in een lijst dan?

Mvg
Strop2

Offline JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #4 Gepost op: 28 april 2018, 22:21:46 »
Sub etiketten()
Columns("AA").ClearContents
For Each cl In Sheets("lijst").Range("E2:E" & Sheets("lijst").Range("E" & Rows.Count).End(xlUp).Row)
If IsNumeric(cl) Then Aant = cl: Ccode = cl.Offset(, -4).Value
Cells(Rows.Count, "AA").End(xlUp).Offset(1).Resize(Aant).Value = Ccode
Next
Mysom = Int(Application.WorksheetFunction.CountA(Columns("AA")) / 6)

For I = 0 To Mysom
With Sheets("etiketten")
.[A2] = Sheets("lijst").Cells((I * 6) + 2, "AA")
.[B2] = Sheets("lijst").Cells((I * 6) + 3, "AA")
.[A6] = Sheets("lijst").Cells((I * 6) + 4, "AA")
.[B6] = Sheets("lijst").Cells((I * 6) + 5, "AA")
.[A10] = Sheets("lijst").Cells((I * 6) + 6, "AA")
.[B10] = Sheets("lijst").Cells((I * 6) + 7, "AA")


End With
Sheets("etiketten").FitToPagesWide = 1
Sheets("etiketten").FitToPagesTall = 1
Sheets("etiketten").Range("A1:B16").PrintOut Copies:=1, Collate:=True
Next I
End Sub

test deze aanpassing eens

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #5 Gepost op: 28 april 2018, 22:53:18 »
Beste Jeanpaul,
Dank voor je snelle reactie.
Heb je nieuwe VBA ingebracht maar krijg foutmelding op " Sheets("etiketten").FitToPagesWide = 1 " "deze eigenschap/methode wordt niet ondersteund"
Had ondertussen ook een test gedaan naar PDF en krijg ook de blanko pagina.

Strop2

Offline JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #6 Gepost op: 28 april 2018, 23:04:20 »
Sub etiketten()
Columns("AA").ClearContents
For Each cl In Sheets("lijst").Range("E2:E" & Sheets("lijst").Range("E" & Rows.Count).End(xlUp).Row)
If IsNumeric(cl) Then Aant = cl: Ccode = cl.Offset(, -4).Value
Cells(Rows.Count, "AA").End(xlUp).Offset(1).Resize(Aant).Value = Ccode
Next
Mysom = Int(Application.WorksheetFunction.CountA(Columns("AA")) / 6)

For I = 0 To Mysom
With Sheets("etiketten")
.[A2] = Sheets("lijst").Cells((I * 6) + 2, "AA")
.[B2] = Sheets("lijst").Cells((I * 6) + 3, "AA")
.[A6] = Sheets("lijst").Cells((I * 6) + 4, "AA")
.[B6] = Sheets("lijst").Cells((I * 6) + 5, "AA")
.[A10] = Sheets("lijst").Cells((I * 6) + 6, "AA")
.[B10] = Sheets("lijst").Cells((I * 6) + 7, "AA")


End With
Sheets("etiketten").PageSetup.FitToPagesWide = 1
Sheets("etiketten").PageSetup.FitToPagesTall = 1
Sheets("etiketten").Range("A1:B16").PrintOut Copies:=1, Collate:=True
Next I
End Sub


Iets tussen vergeten

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.128
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: variable labels uit lijst
« Reactie #7 Gepost op: 28 april 2018, 23:18:13 »
voor ik hier al mijn papier er door jaag.....

Hallo strop2,

Ik vang dat steeds op door alle tekst Wit te zetten vooraleer af te drukken. Ik laat dan enkel een punt als referentie voor elke sticker staan.
Lijnen moet je natuurlijk ook Wit maken...  ;)

:) SoftAid :)             

Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: variable labels uit lijst
« Reactie #8 Gepost op: 29 april 2018, 14:38:11 »
@redhead
Het zijn niet echt sticker vellen maar kan misschien in die richting ook eens zoeken. Hoe zie jij dan die lijst voor je? Is dit door het aantal sorteercodes te vermenigvuldigen met aantal stickers en die op te sommen in een lijst dan?

Aan de hand van Avery Design Pro kán je stickers gebruiken (dat was mijn directe vertaling van jouw "labels"), maar hoeft natuurlijk niet. Als je een blanco A4 in de printer stopt, ben je er ook. Geef dan in Avery aan dat je de bijsnijdlijnen wilt tonen. In de bijlage vind je mijn oplossing voor je vraag. Een sheet met tabel met daarin alle regels die je in je bron-sheet hebt opgevraagd. Daarbij heb ik ook nog een "vertaling" gemaakt van het aantal label wat je nodig hebt voor een record naar per record een X van N aantal. Zo kan je nooit een item vergeten te orderpicken. Die extra sheet kan je dus uploaden in Avery Design Pro.
______________________________

Groet, Leo

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #9 Gepost op: 29 april 2018, 15:36:36 »
Beste oplossers,
@softaid
het omzetten naar wit is inderdaad een oplossing maar heb het toch gemakshalve naar pdf gezet.
@Redhead
Heb ondertussen de software gedownload (noemt ondertussen "Avery design Print") en hou dit open als laatste poging omdat het nogal omslachtig is. Het werkt wel en zo had ik het me ook voorgesteld in de lijst.
@JeanPaul
Je oplossing werkt wel goed op één uitzondering na de blanko pagina na iedere pagina labels. Misschien zie je hier nog een oplossing voor.
Allen hartelijke dank voor jullie bijdrage. :thumbsup:

Offline JeanPaul

  • Volledig lid
  • **
  • Berichten: 116
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #10 Gepost op: 29 april 2018, 16:57:02 »
heeft waarschijnlijk met je printer instelling te maken, zet de marges eens iets midder

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #11 Gepost op: 29 april 2018, 21:31:41 »
Beste JeanPaul

Als ik de print preview bekijk in excel is er maar 1 pagina dus ik dacht dat dit in orde was.
Maar heb nog een lijntje toegevoegd nl "Sheets("etiketten").PageSetup.Zoom = False" en het probleem was opgelost.
Ik moet je wel dankbaar zijn eigenlijk voor de eigenlijke oplossing van het geheel. \o/
En al de andere die meedenken uiteraard.
Mvg
Strop2

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: variable labels uit lijst
« Reactie #12 Gepost op: 30 april 2018, 08:22:08 »
@Redhead
Heb ondertussen de software gedownload (noemt ondertussen "Avery design Print") en hou dit open als laatste poging omdat het nogal omslachtig is. Het werkt wel en zo had ik het me ook voorgesteld in de lijst

Dat "omslachtig" gaat op een gegeven moment meevallen. Je moet heel even de tijd nemen om je label op te maken, maar daarna kan je los. Wat ik natuurlijk niet weet, is met welke regelmaat je deze labels moet hebben. Als dit elke dag een paar keer is (of misschien zelfs vol continu), dan kan ik me voorstellen dat afdrukken vanuit Excel sneller voor je is.
______________________________

Groet, Leo

Offline strop2

  • Lid
  • *
  • Berichten: 62
  • Geslacht: Man
  • Oplossing.be
Re: variable labels uit lijst
« Reactie #13 Gepost op: 01 mei 2018, 22:53:56 »
Beste Redhead,

"Omslachtig" is inderdaad een begrip, maar ik gebruik het dan ook vaak. Ik was al tijdje aan het prutsen met manueel maken van de etiketten en nu ik de mogelijk heden van VBA heb leren kennen vroeg ik mij af of het niet eenvoudiger kon. En die oplossing is mij perfect aangeboden door Jeanpaul. Zo heb ik nog maar eens ondervinden wat de kracht van VBA is. :)

 


www.combell.com