Bonnummers aanmaken

[vrouw]

Hallo Excel-experts.

Als bijlage een werkblad waarop de bonnetjes staan.
Nu is het de bedoeling dat ieder bonnetje een eigen nummer krijgt (kolom D1 etc), van 1 naar laatste bonnetje.

Hoe is dat het beste te doen want vulgreep lukt hier niet en 1000 keer door kopieren lijkt mij ook geen optie :shocked:\

 

[Mde]

Waarom maak je niet 1 bon en elke keer dat je deze print dat je het nummer met 1 erbij m.b.v. een macro?

 

[vrouw]

Hmm, ik dacht doe er een stuk of 6 op 1 vel papier en dan kan ik ze snijden

 

[JEC.]

Haal de eerste drie voorbeeldgetallen uit je bonnen en run deze

Sub jec()
Dim ar, r, a As Long
 For Each ar In Sheets(1).UsedRange.SpecialCells(2).Areas
   Set r = ar.CurrentRegion.Cells(1, 3)
   If r.Value = "" Then
     r.Value = a + 1
     a = a + 1
   End If
 Next
End Sub

 

[vrouw]

WAUW, thanks @JEC.

Dat werkt perfect, thanks :thumb:

 

[JEC.]

Alstu!

 

[jverkerk]

Hoi JEC
Ook weer mooi en snel gemaakt, maar bij mij slaat hij het derde bonnetje over en gaat met nummer 3 naar bon 4 voor de rest perfect.
Misschien mijn fout maar toch.

Groetjes johan

 

[JEC.]

Hi Johan, thanks.
Klopt, die bon heeft geen titel. Als je die eerst invult zou het moeten werken.

 

[vrouw]

Bij mij werkt het perfect maar zit nu ongeloofelijk te klooien met de print earea.

Krijg de bonnetjes niet netjes verdeeld over 6 per pagina

 

[jverkerk]

Hoe klein kan het verschil zijn, bedankt.
En weer wat geleerd!
Bedankt,

Misschien met paginaeinden en rijen verborgen.
Johan

 

[AHulpje]

Maar zo kan het ook:

 

[jverkerk]

Wat een mooie opties allemaal weer, prachtig!

@AHulpje ook een pracht optie, één dingetje, kun je het zo maken dat hij er 1 pdf van maakt?
Is geen kritiek maar leek mij makkelijker als het gaat tenminste.

Groetjes
Johan

 

[AHulpje]

@jverkerk
Dat zou kunnen door de bonnen allemaal te kopiëren naar één sheet en die dan te printen naar PDF.
Maar omdat het uiteindelijk om papieren bonnetjes gaat heb ik dat niet gedaan.
Om te testen kun je ook één pagina (dus 8 bonnetjes) naar PDF printen.

 

[jverkerk]

AHulpje
Duidelijk.