serienummers printen

[Haarie]

hallo,

ik heb een excel-sheet waarin op een bepaalde plek een serienummer komt te staan. Nu wil ik deze sheet 960 keer afdrukken waarbij het serienummer steeds met 1 verhoogd wordt. Hoe kan ik dit doen?

gr.

 

[Justes]

hallo,

ik heb een excel-sheet waarin op een bepaalde plek een serienummer komt te staan. Nu wil ik deze sheet 960 keer afdrukken waarbij het serienummer steeds met 1 verhoogd wordt. Hoe kan ik dit doen?

gr.

Hallo Haarie,
In je printcode b.v.

Range("A1")=Range("A1")+1

Gr Justes

 

[Haarie]

waar definieer ik dan die printcode?

 

[Justes]

waar definieer ik dan die printcode?

Hallo Haarie,

Zie bijlage

Gr Justes

 

[Haarie]

Ik heb het geimplementeerd in mijn file, maar het printen gaat niet goed, hij print 4 keer nummer 102 als ik 101 invul. Er wordt dus maar 1 keer opgeteld.

gr

 

[Justes]

Hallo Haarie,

Deze is dus aangepast aan je wensen, tevens heb ik de printknop verplaatst want die hoeft er niet op neem ik aan, ook print hij nu liggend uit als dat niet de bedoeling is moet je dat maar weer terug zetten en kolom F is verder uitgelijnd.

Gr Justes

 

[Haarie]

oke, dankjewel. Maar wat had ik nu fout gedaan? Zodat ik dat weet voor een volgende keer...

 

[Justes]

Hallo Haarie,

Jij had niets fout gedaan, de formule moest gewoon aangepast worden, vergelijk ze maar.
Wat mij niet verstandig lijkt is om in een keer 960 uit te printen, begin eerst met 50 stuks.
De code wordt dan.

Sub Printen()
    Dim i      As Long
    For i = 1 To 50
        Range("D7") = Range("D7") + 1
        Range("A1:G34").Select
        ActiveSheet.PrintOut
        Range("D7").Select
    Next i
End Sub

Gr Justes