Oplopende teller bij afdrukken document

Status
Niet open voor verdere reacties.
J

jeepeeke

Gebruiker
Lid geworden
29 nov 2017
Berichten
14
Bekijk bijlage oplopende nummering.xlsm

Hoi allen,

Ik heb onderstaande vraag om een probleem op te lossen in een bestand waarmee ik genummerde waardebiljetten dien af te drukken.
Ik heb een A4 pagina ontworpen en deze bevat drie bons (die ik na afdrukken op maat snij). Elke bon heeft dan een zelfde layout, en dient voorzien te zijn van een uniek nummer. Vandaar dat ik dacht met drie tekstboxen te werken die dan vanuit vba met data kunnen gevuld worden.

Mijn idee, of wat ik graag zou hebben is een automatisatie waarbij gevraagd wordt naar een begin en eindnummer (bestaande uit zes digits) en dat dan afdrukken herhaald wordt en nummers oplopen tot het eindnummer. Bij elke afdruk komen dus drie opeenvolgende nummers aan bod.

Ik heb alvast een bestandje toegevoegd die als voorbeeld kan dienen.

bedankt voor jullie hulp
 
Laatst bewerkt:
ik heb deze voor je, maar gewoon met de nummers in de cellen C6, C13 en C19.
Code: 
Sub nummers()
Dim Begin, Eind As Long
Begin = InputBox("Voer beginnummer in!")
Eind = InputBox("Voer eindnummer in!")

    For i = Begin To Eind Step 3

        [C6].Value = i
        [C13].Value = i + 1
        [C19].Value = i + 2

        Range("A1:H26").PrintOut
    Next i
End Sub
 
Hello SjonR,

Verder als ik de celnummers verander door het label van de tekstboxen zou ik er moeten geraken of zijn er nog tussenstappen te nemen?

Merci :)
 
Laatst bewerkt door een moderator:
SVP niet quoten/citeren.
Gebruik de gewone knop:
 

Bijlagen

  • reageer.bmp
    13,3 KB · Weergaven: 134
Laatst bewerkt:
Ik gebruik zoiets voor de club.
Druk je 10 keer op de knop Print dan heb je 30 waardebonnen met oplopende nummering.
 

Bijlagen

  • oplopende nummering.xlsm
    36,9 KB · Weergaven: 43
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan