• 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 NR met letter vanaf lege factuur

Status
Niet open voor verdere reacties.
8

88Gamer88

Gebruiker
Lid geworden
17 sep 2017
Berichten
44
EDIT: titel verkeerd ingevuld -
Factuur NR automatisch met letter opstellen vanaf lege factuur
Klik om te vergroten...

Hallo allemaal,

Ik ben bezig met het opbouwen van een factuur bestand.
Wil iedere keer een lege factuur bestand openen, deze invullen/bewerken en dan opslaan als factuurnummer.

Nu ben ik bezig en heb ik een mooi script gevonden die iedere keer +1 opstelt in de nummering als ik de script uitvoert.
En automatisch de datum veranderd.

Code: 
Sub VolgFact()
Range("D4").Value = Range("D4").Value + 1
Range("A17:D30").ClearContents
Range("D5").Value = Date
End Sub

Alleen is het geval dat ik me factuur nummering begint met de letter F als in "F181001", "F181002" enzovoort
Hier mee kan het script echter niet mee overweg, Alleen met cijfers ipv een letter er in.

Vroeg me af of iemand het script kan aanpassen zo dat het ook werkt met de letter F er in ?


Ook vroeg ik me af of het mogelijk is dit te gebruiken in combinatie met een leeg factuur bestand (Wat beveiligd is tegen opslaan) ?
Dat wanneer ik het wilt "opslaan als" automatisch het factuur nummer veranderd.

Dit is nog even bijzaak zou eerst het bovenste regelt willen hebben.
 
Laatst bewerkt:
Denk dat de eerste geplaatste topic iets uitgebreider / anders is dan dan ik zelf nodig zou hebben ?

Me eerder geplaatste topic ging over een ander onderwerp :rolleyes:
(Betreft het inladen van alle facturen in een overzicht)


Hier bij het factuur bestandje, script staat gekoppeld via Ctrl + Shift + N
Werkt alleen niet omdat er een F in het factuur NR staat,

Bekijk bijlage Beta Factuur.xlsm
 
Laatst bewerkt:
Zo misschien
Code: 
Range("B16").Value = "F" & Right(Range("B16").Value, 6) + 1
 
@88Gamer88

Kijk even op mijn website staat een compleet factuurprogramma
dat ik zelf gemaakt heeft, misschien dat je hiermee gelijk mee aan de slag kan.
 
Zet in D4 het getal 1000.
Code: 
Sub VolgFact()
  Range("D4").Value = Range("D4").Value + 1
 [COLOR=#0000ff] range("d4").numberformat = "F" & format(date, "yy") & "0000"[/COLOR]
  Range("A17:D30").ClearContents
  Range("D5").Value = Date
End Sub
 
Kijk of het zo naar wens werkt.
 

Bijlagen

  • Beta Factuur_2.xlsm
    25,9 KB · Weergaven: 52
Top dit werkt in ieder geval mooi :)

Alleen vroeg ik me het volgende af.

Bij iedere factuur pak ik het "lege" factuur bestand en vul deze in en sla het onder een andere naam op (Factuur NR).
Nu vroeg ik me af of het mogelijk is om de factuur nummering voor te laten tellen ondanks ik iederekeer de het "lage" bestand gebruikt.
 
Ik weet niet aan wie je het vraagt maar op mijn voorbeeld #8, zit een knop die het nummer verhoogd.
 
Laatst bewerkt:
Zie.
https://www.helpmij.nl/forum/showthread.php/942398-Automatisch-doornummeren-excel

En dan kan het ook nog wel zonder loop.
Code: 
Sub hsv()
 Range("B11") = Format(CreateObject("scripting.filesystemobject") _
       .getfolder(Environ("userprofile") & "\documents\facturen\").Files.Count, "0000") + 1
       Range("B11").NumberFormat = "F" & Format(Date, "yy") & "0000"
       ThisWorkbook.SaveCopyAs Environ("userprofile") & "\documents\facturen\" & Format(Now, "ddmmyyyyhhmmss")
End Sub
 
Laatst bewerkt:
@ExcelAmateur.

Zal het nog keer uit leggen voor u.

Ik vul me gegevens in vanaf een leeg factuur bestand
Dat is een bestand die ik open, invult maar nooit "opsla" alleen "opslaan als" zodat het er een nieuw bestand bij geschreven wordt

Vervolgens klik ik alles weg, als dan paar dagen later met een nieuwe factuur bestand het geheel weer over nieuw... enzo door...

Dus omdat ik werk vanaf leeg bestand werkt de optelling niet omdat het deze optelling niet opgeslagen word.
 
@88Gamer88,

Nu werkt het zoals je wil.
 

Bijlagen

  • Kopie van Beta Factuur_2.xlsm
    26,2 KB · Weergaven: 39
Dit werkt alleen als ik het excel bestand opslaat.
En vervolgens weer opent.

Maar sla het bestand nooit op, alleen "Opslaan als" onder een andere naam.
En blijft het lege bestand dus leeg.
 
Als ik het goed begrijp, staat het altijd open.
Dan druk je toch even op de knop en word het getal verhoogd.

Anders zou bij het opslaan het getal verhoogd moeten worden.
Dan moet het opslaan met VBA gedaan worden met daarin de verhoging na het opslaan.
 
Laatst bewerkt:
Mis ik iets? zondag 28-10-2018 16:54 uur.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan