• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Volgende factuur met automatisch een volgend factuurnummer

Status
Niet open voor verdere reacties.

jojajupa

Gebruiker
Lid geworden
21 jan 2011
Berichten
112
Hallo,

Ik heb een leeg factuurwerkblad in Exel.
Deze open ik en daarin staat bijv. factuurnummer: 2011-01. Dit werkblad vul ik dan in en sla ik dan op als: klant 1
Als ik dan het lege factuurwerkblad weer wil openen dan moet er staan: 2011-02. Deze vul ik dan ook weer en sla deze op als klant 2.
Dan open ik weer het lege blad en dan moet er staan 2011-03, enz.

Is bovenstaande mogelijk?
 
Ja dat kan als je je factuurblad 2 x opslaat.
1 x onder de naam Klant 1 en
daarna maak je het blad leeg en slaat op
onder de naam factuur, waarin je via Before Save het factuurnummer laat verhogen.
Als je nu een nieuwe factuur maakt heb je het opgehoogde nummer voor handen.

Cobbe
 
Laatst bewerkt:
@ waarin je via Before Save het factuurnummer laat verhogen.

Betekent dit dan dat je nadat je het blad leeg gemaakt het je handmatig het factuurnummer ophoogt.
Of moet er in deze cel een code staan die dit automatisch doet?
Gr. John
 
Hoe sla je je bestand telkens op?
Als je dit handmatig doet kun je ook je nummer handmatig verhogen, niet?

Cobbe
 
Het kan ook met één keer opslaan.
Hierbij staat jouw leeg-factuurwerkblad in D:\2011. Al je facturen die je opslaat als klant sla je ook op in dezelfde map '2011'.

Elke keer als je de leeg factuurwerkblad opent, wordt in Blad1 cel A1 het factuurnummer met één verhoogd.

Het telt het aantal bestanden in de map '2011' minus 1 (je leeg factuurwerkblad)
Voor volgend jaar maak je een nieuwe map '2012' aan, en wijzigd de code naar 2012.
Misschien dat het jaartal ook nog in een variabele moet, maar dan zit je bv. in Januari 2012 facturen te maken die nog betrekking hebben op 2011.
En dan gaat het ook verkeerd.
Code:
Private Sub Workbook_Open()
Dim x, cl
x = -1
    cl = Dir("D:\2011\*")
    Do Until cl = ""
        x = x + 1
        cl = Dir
    Loop
    With [Blad1!A1]
        .Value = IIf(x > 0, x + 1, 1)
        .NumberFormat = "2011-000"
    End With
End Sub
 
Hallo Harry

IK denk dat dit het is wat ik hebben moet.
Alleen........waar moet ik die code neer zetten en hoe doe ik dat. Ik heb al redelijk vaak met exel gewerkt maar nog nooit met code's, macro's e.d
Gr. John
 
Druk Alt+F11, kopiëer de code vanaf hier en plak het in ThisWorkbook (aan de linkerkant).
Even de directory’s aanpassen in de code naar waar je wil opslaan.
 
Laatst bewerkt:
Ik heb het gevonden. Ik ga er morgen mee aan het werk.
Bedankt. Als het gelukt is, reageer ik weer.
Gr. John
 
Hallo Harry,
Het is helemaal gelukt. Hartelijk dank. Ik wist trouwens niets van This workbook. Zo leer je zomaar weer wat bij.

Bestaat er ook een code voor de datum. Elke keer als je dus het lege exelblad opent dat daar direct dan de datum van de huidige dag in komt te staan?

En zo ja, waar kan ik de opzet van deze codes vinden?

Gr. John
 
Laatst bewerkt:
Zet de rode tekst in het laatste stukje van de code zoals voorbeeld.
Code:
End With
    [COLOR="red"][blad1!B1] = Date[/COLOR]
End Sub
 
Hallo Harry,
Het is wederom gelukt. Mijn dank is zeer groot.
Gr. John
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan