Auto Nummering

[puppie]

Hoi.

in een werkblad wil ik een automatische nummering hebben.
Zoals ook een automatische datum in beeld komt.

dus ik begin met werkblad 0001 en sluit dit af.
de volgende keer als ik dit blad open moet er dan automatisch 0002 komen te staan afsluiten blad weer openen dan 0003 enz enz .
Hoe pak ik dit op een eenvoudige manier aan.

 

[Roncancio]

Zet onderstaande code in de VBE bij ThisWorkbook:

Private Sub Workbook_Open()
Blad1.Name = Format(Blad1.Name + 1, "0000")
End Sub

Met vriendelijke groet,


Roncancio

 

[puppie]

perfect....
en waar vind ik die vbe?
ik ben maar een leek op het gebied van excel.

 

[gast0224]

Alt+F11

 

[puppie]

waar plaats ik dat bij A, B of C

 

[gast0224]

In B plaatsen.

 

[puppie]

dan krijg ik een foutmelding.
doe ik de foutopsporing dan krijg ik het bovenstaande.

tijdens het invoeren sta ik in cel d1

 

[puppie]

ik heb het al.
Ik had het tabblad nog niet naar 0000 vernoemd.

is dit nu ook mogelijk in bijvoorbeeld cel D1

 

[Roncancio]

Wat wil je van cel D1?
Wil je dat de code verwijst naar cel D1 of dat in cel D1 de naam van het werkblad komt te staan?

Met vriendelijke groet,


Roncancio

 

[puppie]

In cel D1 zou de autonummering dan komen te staan.
hetzelfde wat nu op het tabblad staat.

 

[Roncancio]

Private Sub Workbook_Open()
With Blad1
    .Name = Format(.Name + 1, "0000")
    With .Range("D1")
        .NumberFormat = "0000"
        .Value = Blad1.Name
    End With
End With
End Sub

Met vriendelijke groet,


Roncancio

 

[puppie]

Ik sta steeds weer versteld van dit soort antwoorden.
Ben dus een echte leek hierin.
Deze plaats ik op dezelfde plaats als de vorige van het tabblad.?

 

[puppie]

Dit werkt perfect.
Heeeeeel hartelijk bedankt.
Hier kan ik mijn formulier mee afmaken.
nogmaals bedankt.

 

[puppie]

De vraag staat al wel als opgelost en werkt zeer zekers zoals ik in gedachten had.
Maar er is nu een vervolg vraag.

Als je het blad niet opslaat en je sluit het gewoon af en daarna open je het weer dan begint het met het laatst opgeslagen nummer.
Dit is voor de administratie vervelend omdat ik nu bijvoorbeeld steeds blad 24 uitprint.

zou het mogelijk zijn dat voordat je kunt printen je het blad eerst moet opslaan en daarna pas kunt printen?
Zo ja hoe zou dat dan opgelost kunnen worden.

 

[Roncancio]

Voeg onderstaande code toe aan ThisWorkbook.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWorkbook.Save

End Sub

Voordat er geprint wordt, wordt het bestand opgeslagen.

Met vriendelijke groet,


Roncancio

 

[puppie]

Bedankt voor je snelle reactie.
begrijp ik het goed dat als ik een print opdracht geef dat dit bestand dan eerst wordt opgeslagen.

 

[Roncancio]

Ja, maar dat is niet de bedoeling?

Met vriendelijke groet,


Roncancio

 

[puppie]

ja dat is de bedoeling.....
Ga ik nu even het werkblad ophalen en uitproberen.
je hoort zo of dit lukt.

 

[puppie]

zo heb ik het geplaatst.
Volgens mij werkt het zo.

 

[puppie]

upload werkt nu dus plaatje staat er.