Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: Volgende factuur met automatisch een volgend factuurnummer

  1. #1
    Senior Member
    Geregistreerd
    21 januari 2011
    Vraag is opgelost

    Volgende factuur met automatisch een volgend factuurnummer

    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?

  2. #2
    Giga Honourable Senior Member †
    Geregistreerd
    19 mei 2007
    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 aangepast door Cobbe : 21 maart 2011 om 19:57
    Mvgr. & succes, Cobbe


    En denk er aan: Zorgen moet je doen, niet maken.

  3. #3
    Senior Member
    Geregistreerd
    21 januari 2011
    @ 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

  4. #4
    Giga Honourable Senior Member †
    Geregistreerd
    19 mei 2007
    Hoe sla je je bestand telkens op?
    Als je dit handmatig doet kun je ook je nummer handmatig verhogen, niet?

    Cobbe
    Mvgr. & succes, Cobbe


    En denk er aan: Zorgen moet je doen, niet maken.

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  6. #6
    Senior Member
    Geregistreerd
    21 januari 2011
    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

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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 aangepast door HSV : 22 maart 2011 om 18:27
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  8. #8
    Senior Member
    Geregistreerd
    21 januari 2011
    Ik heb het gevonden. Ik ga er morgen mee aan het werk.
    Bedankt. Als het gelukt is, reageer ik weer.
    Gr. John

  9. #9
    Senior Member
    Geregistreerd
    21 januari 2011
    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 aangepast door jojajupa : 23 maart 2011 om 16:23

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Zet de rode tekst in het laatste stukje van de code zoals voorbeeld.
    Code:
    End With
        [blad1!B1] = Date
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  11. #11
    Senior Member
    Geregistreerd
    21 januari 2011
    Hallo Harry,
    Het is wederom gelukt. Mijn dank is zeer groot.
    Gr. John

  12. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren