laatste factuur nummer

[beeksplace]

hallo

heb de volgende code en dat werkt perfect.

Sub VolgFact()
Range("K3").NumberFormat = "20150000"
Range("K3").Value = Range("K3").Value + 1
Range("C2:C6").ClearContents
Range("B9:J31").ClearContents
Range("K2").Value = Date
End Sub

wat ik graag zou willen is dat de volgen keer dat ik de factuur weer open het naar de laatse factuurnummer kijkt en dan +1 doet.

Is het ook mogelijk om bij het numberformat het eerste deel uit een cell te laten komen.
dus het jaartal in een cell te zetten zodat je dan de factuurnummers niet meer hoeft aan te passen volgend jaar


Erik

 

[edmoor]

Je kan gewoon de cel waar het laatst gebruikte factuurnummer staat lezen en er dan 1 bij optellen. Het jaar gedeelte vervang je dan door Year(date).

 

[beeksplace]

Je kan gewoon de cel waar het laatst gebruikte factuurnummer staat lezen en er dan 1 bij optellen. Het jaar gedeelte vervang je dan door Year(date).

Edmoor bedankt voor de snelle reactie

Kan dat nummer niet vanuit een txt gehaald worden
de facturen worden als pdf opgeslagen

factuurnummer


Kan er bij NumberFormat niet een cell worden toegevoegd waar het jaartal of datum staat en dat doornummer ergens anders staat
zeg in cell K3 staat 0000 en in cell N2 staat 2015

 

[beeksplace]

factuurnummers opslaan en uitlezen

Is dit iets, alleen zou ik het dan aan moet passen naar mijn workbook
heb het toegevoegd maar krijg het niet werkend of ontbreekt er nog iets

gebruik excel 2007

Public Sub LeesFactuurnummer()
    pad$ = Application.DefaultFilePath
    controle = Dir(pad$ + "\Factuurnummer.txt")
    If controle = "" Then
        FactuurNummer1 = "1000"
        Call Bewaarfactuurnummer
    End If
    Open pad$ + "d:\Faturen\Factuurnummer.txt" For Input As #10
    Input #10, FactuurNummer1
    Close #10
End Sub
    
Public Sub Bewaarfactuurnummer()
    Open pad$ + "\FactuurNummer.txt" For Output As #10
    Print #10, FactuurNummer1
    Close #10
End Sub
    
Public Sub NoteerFactuurnummer()
'Noteer nu het opgehaalde factuurnummer in het werkblad
    Application.GoTo Reference:="Factuurnr."
    ActiveCell.FormulaR1C1 = FactuurNummer1
    Application.GoTo Reference:="EersteArtikel"
    DoEvents
End Sub

erik

 

[edmoor]

Waarom sla je dat laatst gebruike nummer niet gewoon ergens in je document op? Dat hoef je alleen maar die cel te lezen.
De waarde van die cel hoog je dan op met 1 en het geheel plak je vast aan Year(Date).

 

[beeksplace]

het document word niet opgeslagen nadat de factuur gemaakt is, vandaar de vraag of het in een tt document kan.

 

[edmoor]

Natuurlijk kan dat. Maar je kan ook de factuur informatie m.u.v. het factuurnummer leeg maken en dan het document opslaan.

 

[beeksplace]

ok dat kan ook, maar ondertussen iets anders gevonden

Private Sub Workbook_Open()
    Sheets(1).Range("K3") = Format(CreateObject("scripting.filesystemobject") _
        .getfolder("C:\Facturen2013\").Files.Count, "20130000") + 1
End Sub

moet alleen het nog ff testen

 

[edmoor]

Er zijn meerdere manieren voor maar het probleem ermee vind ik dat je het document afhankelijk maakt van zaken buiten het document.

 

[beeksplace]

klopt dat het beter is om alles vanuit de sheet te regelen.
wat ook nog zou kunnen is een autosave bij afsluiten van de sheet

zal wel is ff kijken voor wat code

heb deze code gevonden en nu ff testen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.Close True
End Sub

 

[edmoor]

Wat ik zelf altijd doe voor dat soort dingen is een blad maken met de naam Administratie om daar gegevens bij te houden.
Dit blad verberg ik dan. Gegevens die weg kunnen bij het opslaan van het document verwijder ik dan in de ThisWorkbook.BeforeSave of, in dit geval, op het moment dat de factuur gereed en opgeslagen is.

 

[beeksplace]

heb de save functie ingebouwd.

bedankt voor alle hulp en zal daar later nog is verder over nadenken als ik een tweede versie ga bouwen

:thumb: