automatische nummering

Status
Niet open voor verdere reacties.
S

Schipper1994

Gebruiker
Lid geworden
10 mrt 2021
Berichten
158
hallo,

aangezien mijn eerste vraag zosnel opgelost was wil ik er nog eentje stellen.

ik ben al lang aant zoeken maar het lukt me echt niet.

ik wil een automatsiche nummering doen.
ik bedoel hiermee.

ik moet uit een worksheet (database) de laatse rij kunnen vinden, en daaruit een volgnummer vinden.
deze moet automatisch ingevuld worden in het formulier dat dan openstaat.

als er meer info nodig is laat het maar weten.
 
als alles goed gaat zit er een bestand bij nu.

de bedoeling is dus dat het factuurnummer een automatische nummering krijgt en dat dit niet aanpasbaar is. (aanpasbaar en niet aanpasbaar weet ik hoe ik moet doen)
ook de reisnummer zou automatisch moeten zijn maar die moet ik dan nog wel kunnen aanpassen.

dit zal waarschijnlijk niet het mooiste/duidelijkste bestand zijn maar ik ben trots dat ik dit enkel en alleen met behulp van google en youtube heb kunnen waarmaken.
 
ik heb deze ooit gevonden misschien kun je hier wat mee?
 

Bijlagen

  • Offerte en Facturen Origineel1.xlsm
    737,2 KB · Weergaven: 55
dat bestandje gaat men petje te boven denk ik :D

ik vind het niet echt. ik heb misschien een stuk gevonden (blad11) die snap ik wel maar vind het deel niet om de nummer te verhogen.
 
ik zal dit misschien anders verwoorden.

ik moet in een kolom de laatste rij vinden. daar de waarde van nemen +1
dit kan denk ik geen moeilijke regel zijn maar ik vind hem niet.
 
Code: 
LR=Sheets("DATABASE FACTUREN").UsedRange.Rows.Count
factenr= cells(lr,1).value +1

niet getest en hoogste offertenummer staat onderaan
 
Code: 
MsgBox Application.Max(Sheets("DATABASE FACTUREN").ListObjects(1).Range.Columns(1)) + 1
 
VenA,

ik heb die van jou geprobeerd.
zoals de code zegt krijg je hem in een messagebox.
hij werkt in ieder geval wel. nu zou ik hem eigenlijk in 1 van de tekstvakken willen laten verschijnen.
ik heb wat geprobeerd ermee maar het lukt me niet.
 
ondertussen zelf gevonden.

hieronder de code
Code: 
 TextBox8.Value = Sheets("DATABASE FACTUREN").Columns(1).End(xlDown) + 1
 
Er valt nog wel wat te verbeteren. Als je iets verder gezocht had dan was je vast betere code tegengekomen.

  • Gebruik geen Rowsource;
  • Maak gebruik van de tabellen die je toch al hebt;
  • Als je formules gebruikt in en tabel zet deze dan achteraan. Je kan de gegevens dan eenvoudig in 1 keer wegschrijven. De berekeningen via het formulier kan natuurlijk ook;
  • Voor het controleren of een verplicht veld ingevuld is kan je beter een lusje gebruiken;
  • De tabvolgorde zal je zelf even aan moeten passen. Deze is nu nogal onlogisch.
 

Bijlagen

  • Factuurprogramma V2.2 (leeg) (1).xlsm
    102,1 KB · Weergaven: 62
woow.. dit ziet er al helemaal anders uit haha.

ik heb dit allemaal een beetje van youtube en forums geleerd dus waarvoor ik op begin al waarschuwde dat dit niet de best ineenzittende VBA is blijkt correct te zijn. :D

ondertussen had ik al gevonden hoe hij er automatisch inkomt.

bedankt om jou input en wijzigingen te geven in de excelfile maar nu kloppen alle verwijzingen niet meer naar het afdruksjabloon. ik ga deze file wel bijhouden en proberen te ontleden om eventueel andere dingen wel over te nemen.

de foutmeldingen zijn wel beter etc.

bedankt.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan