factuurdoornummeren en daarna opslaan

[jagdinho]

Goedemorgen,

Misschien een beetje een domme vraag maar ik ben bezig om een goed werkende factuur te maken alleen wil ik dat het factuurnummer automatisch met 1 omhoog gaat wanneer ik deze opsla. Ik wil graag dat wanneer ik een factuur af heb, dat ik op een knop druk en dat de factuur weer leeg word en automatisch een hoger factuurnummer heeft en dat de oude is opgeslagen.

Kan iemand mij misschien helpen, ik ben een leek in dit soort dingen.:shocked:

Alvast bedankt!

 

[paulva]

Om een factuur op te maken is het altijd verstandig om een sjabloon te gebruiken.
Sla de bijgevoegde bestandjes op in dezelfde map, open dan het sjabloon (open!) en wijzig het pad tweemaal in de code.
Telkens als je dan dubbelklikt op het sjabloon, dan wordt je factuurnummer verhoogd.

Succes ermee.

Paul.

Bekijk bijlage nummer.txt
Bekijk bijlage Factuur.dot

 

[jagdinho]

Hartstikke bedank! alleen snap ik niet wat u bedoelt kunt wat meer vertellen.. het klinkt dom maar ik ben niet zo goed in excel

 

[paulva]

Wel, gewoonweg de bovenstaande bestandjes in eenzelfde map plaatsen en dan het sjabloon openen door er rechts op te klikken en 'openen' te kiezen.

,dan de visual basic editor te openen en het pad te wijzigen:

Private Sub Document_New()
        Open "[U]C:\[/U]nummer.txt" For Input As #1
        Input #1, a
        Close 1
        ActiveDocument.Bookmarks(1).Range.Text = a
        Open "[U]C:\[/U]nummer.txt" For Output As #1
        Write #1, a + 1
        Close 1

End Sub

Dit zou eventueel
Open "C:\Documents and Settings\jagdinho\Desktop\nummer.txt" For Input As #1
kunnen zijn.
Het spreekt vanzelf dat de hele factuur nog moet opgebouwd worden rond die veldjes. Het is slechts een voorbeeldje!
Je kan ook in het bestaande formulier op de plaats van de factuurnummer een tekstveld invoegen.

 

[HSV]

Is dit niet eenvoudiger?
Als het factuurnummer in A1 staat.
In Thisworkbook zetten.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Range("A1") = Range("A1") + 1
End Sub

 

[paulva]

Als de factuur in Excel gemaakt wordt, dan is dit mogelijk maar dan kan je niet werken met een sjabloon als je de informatie in cel A1 wil schrijven.

 

[HSV]

Dan zet je het in Thisworkbook_open toch?

Private Sub Workbook_Open()
 Range("A1") = Range("A1") + 1
End Sub

 

[paulva]

Tja, dan zie ik niet in waarom je een sjabloon zou gebruiken. De bedoeling daarvan is namelijk dat het onaangeroerd blijft. Dubbelklikken op een sjabloon opent slechts een kopie ervan. Sla dat op en het sjabloon weet er niks van! De informatie sla je enkel op in de laatst gemaakte factuur. Nee, volgens mij zijn we dan verder van huis.

 

[HSV]

Hallo Paul,

Ik moet toegeven dat ik ook helemaal niet thuis ben in een sjabloon (doe er nooit iets mee).
Maar voor een factuur als sjabloon dacht ik dat het wel moest kunnen.