• 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.

Factuur nummer automatisch verhogen

Status
Niet open voor verdere reacties.
T

tennapel

Gebruiker
Lid geworden
5 mei 2016
Berichten
32
Hallo allemaal,

Ik heb de onderstaande code gebruikt:

Private Sub Workbook_Open()
Dim bestandopen As String, counter As Long
bestandopen = Dir("C:\Gebruikers\Leeuwenburg\Mijn documenten\facturen2013\*")
Do Until bestandopen = ""
If bestandopen = "" Then Exit Do
counter = counter + 1
bestandopen = Dir
Loop
Sheets(1).Range("D9") = Format(counter, "20130000") + 1
End Sub

NU is mijn vraag, bij deze code gebruiken ze een nummer als: 20130000.

Is deze code ook mogelijk met de volgende factuur nummering: VF-2017-0 ---> + 1
Dus dat de 0 gaat doortellen ??
 
Voorbeeldjes:

Bij getal:
Code: 
Sheets(1).Range("D9") = Sheets(1).Range("D9") + 1
Bij samengestelde string:
Code: 
Sheets(1).Range("D9") = "VF-2017-" & Format(Int(Right(Sheets(1).Range("D9"), 4) + 1), "000#")
 
Factuur verhoging

Hallo,

Heb de code nu veranderd in onderstaand maar hij geeft een foutmelding:

Sub factuurnummer()
Dim bestandopen As String, counter As Long
bestandopen = Dir("C:\Users\Jan Marten\Desktop\factuur1\*")
Do Until bestandopen = ""
If bestandopen = "" Then Exit Do
counter = counter + 1
bestandopen = Dir
Loop
Sheets(1).Range("O26") = "VF-2017-" & Format(Int(Right(Sheets(1).Range("026"), 4) + 1), "000#")
End Sub

De regel Sheets geeft hij geel aan als ik fout opsporing doe.

Weet U wat dit probleem is ??
 
Bij de 2e Range staat 026 in plaats van O26.

NB:
Als je zegt een foutmelding te krijgen, vertel er dan bij wat deze is.
Gebruik tevens codetags bij het plaatsen van code.
 
Heb nu de code veranderd in onderstaand en deze werkt alleen:
Heb nu 1 factuur opgeslagen in inderstaande map, maar hij geeft niet 2 aan.
Verder telt hij ook niet door als ik de eerste factuur open.
Hij geeft bij mij factuur 5 aan.

Weet iemand hoe ik deze automatisch krijg als je de factuur opent??


Code: 
Sub factuurnummer()
Dim bestandopen As String, counter As Long
 bestandopen = Dir("C:\Users\Jan Marten\Desktop\factuur1\*")
    Do Until bestandopen = ""
      If bestandopen = "" Then Exit Do
        counter = counter + 1
      bestandopen = Dir
    Loop
 Sheets(1).Range("O26") = "VF-2017-" & Format(Int(Right(Sheets(1).Range("O26"), 4) + 1), "0#")
End Sub
 
Sla het laatste factuurnummer op in een .txt of een .watjijwil dan hoef je de hele toestand niet te doorlopen.

Over hoe je dat kan doen is voldoende te vinden...
 
Maak cel O26 leeg en zet de eigenschap op standaard.
Code: 
Sub hsv()
With Sheets(1)
    .Range("O26").NumberFormat = "VF-" & Year(Date) & "-00000"
    .Range("O26") = CreateObject("scripting.filesystemobject") _
       .getfolder(Environ("userprofile") & "\Desktop\factuur1\").Files.Count + 1
   End With
End Sub
 
Laatst bewerkt:
factuur nummer verhogen

Goedemorgen,

Heb bovenstaande code erin gezet en krijg de juiste factuur nummer als ik de macro uitvoer bij de eerste.
Als ik daarna weer de factuur open waarmee wij de factuur maken en er staan bijvoorbeeld 2 facturen in de map factuur 1 dan springt hij niet automatisch naar 3.
Dan moet ik eerst weer de macro uitvoeren en dat telt hij wel door.

Is dit mogelijk dat waneer wij het bestand openen waarmee we de factuur maken dat hij dan kijkt in map factuur 1 en dat dan het factuurnummer automatisch op het goede nummer springt??

Misschien doe ik iets verkeerd met de macro toevoegen ??

Hoor graag van jullie

Alvast bedankt.
 
Plaats onderstaande code in Thisworkbook.

Vanaf nu zal het automatisch gaan bij het openen van het bestand.
Code: 
private sub workbook_open()
With Sheets(1)
    .Range("O26").NumberFormat = "VF-" & Year(Date) & "-00000"
    .Range("O26") = CreateObject("scripting.filesystemobject") _
       .getfolder(Environ("userprofile") & "\Desktop\factuur1\").Files.Count + 1
   End With

End Sub
 
Goedenavond,

Heb bovenstaande code gekopieerd in this workbook.
Als ik daarna naar macro's ga komt hij daar niet te staan, kan hem dus ook niet uitvoeren.

Heeft U een idee wat ik verkeerd doe??

Alvast bedankt
 
Sla het document op als Document met macro's (.xlsm)
 
vergogen

heb de factuur afgesloten, en sla hem ook op als macro.

Alleen dit werk niet.

Ik vergeet wat
 
Heb je die code wel in de ThisWorkbook sectie gezet?
Dubbelklik daar dan eens op.
 
Je mag het ook zo als onderstaand in een module plaatsen (zie je het bij je macro's, en gaat automatisch bij het openen).
Code: 
Sub auto_open()
With Sheets(1)
   .Range("O26").NumberFormat = "VF-" & Year(Date) & "-00000"
    .Range("O26") = CreateObject("scripting.filesystemobject") _
       .getfolder(Environ("userprofile") & "\Desktop\factuur1\").Files.Count + 1
   End With
End Sub
 
Werkt het al?

Misschien dit bestandje wel?
 

Bijlagen

  • Test Map1.xlsm
    15,4 KB · Weergaven: 197
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan