Factuurnummers automatisch laten opvolgen

Question

Beste

Ben in bezit van Windows 10 en Office 2016.   Nu heb ik een vraag over hoe men in het programma Excel een factuurnummer kan invoeren dat automatisch oploopt?

Alvast bedankt voor alle info

mvg

Rob

Answer 1

Hallo JP Ronse,

Dank voor uw respons.

Ik ga op zoek naar de door u voorgestelde boeken.

met vriendelijke groet

Richard Groeneweg

Answer 2

Hallo Rob,

Hopelijk ben je volledig hersteld.

Het is niet onmogelijk vanuit de ene applicatie de andere aan te sturen maar dit vergt toch al wat diepere kennis van VBA. Met wat je aangeeft zou ik voor Access kiezen. Academic service brengt heel goede boeken over de Office applicaties op de markt. Maar ik wil je ook aanraden om wat lectuur over relationele databases te zoeken. Zonder een goed begrip wat de do's & don'ts zijn bij relationele databases is het moeilijk starten.

Answer 3

Beste  Jeroen D.  en   JP Ronse,

Mijn welgemeende verontschuldiging voor de late reactie.

Ben namelijk onverwachts opgenomen geweest in het ziekenhuis en moest hierna de nodige periode herstellen.

Ik heb uw suggesties gelezen en ik moet spijtig genoeg erkennen dat dit me nogal ingewikkeld lijkt.

Ondanks dat ik niet ondankbaar over wil komen, denk ik dat ik er belang bij heb om een soort van leerboek/programma waarmee ik stap voor stap het gewenste resultaat kan realiseren.

Ik wil namelijk met de programma' s    Word, Excel, Acces   (Office 2016)   een administratie opzetten waarbij ik een boekhouding, facturatie, voorraadbeheer en relatiebeheer programma kan maken.  

Als u of wellicht iemand anders die dit bericht leest mij kan informeren hoe ik aan dergelijke info kan komen dan zou ik dit zeker weten te waarderen.

met vriendelijke groet

Rob van der Elburg

Answer 4

Dag Rob,

Het aantal bestanden in een folder kan je sneller (sorry Jeroen) bekomen met volgende code:

Sub FilesInFolder()

   Dim objFileSys                As Object

   Dim objFileSysFolder          As Object

   Set objFileSys = CreateObject("Scripting.FileSystemObject")

   Set objFileSysFolder = objFileSys.GetFolder("C:\Users....\Documents\Zone_1")

   Debug.Print objFileSysFolder.Files.Count

   Set objFileSysFolder = Nothing

   Set objFileSys = Nothing

End Sub

Je zal nog wel een workbook/sheet event moeten schrijven waarbij ik denk aan:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Waarbij je alleen maar 1 bepaalde cell (Target) moet checken, waarmee ik de cell bedoel die bepaalt of de factuur doorgaat of niet.

Alles hangt natuurlijk een beetje af hoe je het project (wilt) opzet(ten) maar hiervoor hebben we momenteel te weinig info.

Answer 5

Beste Rob,

Bedoel je dat het factuurnummer ophoogt met 1 en staan ze allemaal in dezelfde folder? Dat zou je middels deze code kunnen doen:

Private Sub Workbook_Open()
Dim bestandopen As String, counter As Long
 bestandopen = Dir("D:\facturen\*")
    Do Until bestandopen = ""
      If bestandopen = "" Then Exit Do
        counter = counter + 1
      bestandopen = Dir
    Loop
  Sheets(1).Range("A1") = Format(counter, "20130000") + 1
 End Sub

Graag verneem ik van je.

Met vriendelijke groet,

Jeroen