Autonummering

[karimba]

Hallo ,

De autonummering in mijn bestand stopt bij 10 ik wil het graag tot onbepaalde nummering afhankelijk van het jaar datum.
voorbeeld:
20-01
20-02
20-03
21-01
21-02
Wie kan mij hierbij helpen?
Alvast bedankt

 

[HSV]

Ik begrijp helaas niet veel van het verhaal.
Wees eens wat duidelijker.

 

[Enigmasmurf]

't Zal aan mijn vreemde manier van denken liggen, maar vermoedelijk zie ik het wel...
Stap gewoon af van het (erg bizarre) principe dat "incident n°" een datum is !

 

[robdgr]

"incident n°" is tekst zoals je in de bijlage kunt zien en als ik de cel doorvoer naar beneden wordt het gewoon 11.

 

[Enigmasmurf]

Op het werkblad wel, ja. Mijn stelling is: behandel die dan ook zo bij het initialiseren van het userform.
Herbekijk dus deze vreemde benadering:

T_00.Value = Format(Date, "yy-") & IIf(Len(a) > 0, Mid(a, 3), 0) + 1

En wat je net daarvoor met "sv" en met "a" doet is zo mogelijk nog vreemder.
Pak de laatste waarde uit "knrs" die niet leeg is (je doorloopt nu bijna 5000 keer een nutteloze lus) en tel 1 op bij het gedeelte na "-".

 

[HSV]

Private Sub UserForm_Initialize()
Dim sv, a
sv = Split(Replace(Join(Application.Transpose([knrs])), "-", ""))
For i = 0 To UBound(sv)
  If sv(i) = "" Then Exit For
   If Left(sv(i), 2) = Format(Date, "yy") Then If CLng(a) < CLng(sv(i)) Then a = sv(i)
 Next i
T_00.Value = Format(Date, "yy-") & IIf(Len(a) > 0, Mid(a, 3), 0) + 1

 

[Enigmasmurf]

Ik heb ook niet gezegd dat er op deze wijze niet uit te komen was.
Maar waarom zo complex en zo'n omweg via die lus.
Het kan bijvoorbeeld ook zo:

Private Sub UserForm_Initialize()

laatste = [knrs].Cells(WorksheetFunction.CountA([knrs]), 1)
T_00.Value = Left(laatste, 3) & Mid(laatste, 4) + 1

 

[HSV]

Dat komt uit het verleden als ik me niet vergis.
De data in de tweede kolom staat door elkaar (jaartallen).

Het gaat om het jaartal van nu met de hoogste waarde + 1.

Zie:https://www.helpmij.nl/forum/showthread.php/954614-Registratie-nummers-opvolgen

 

[karimba]

dank voor jullie moeite en reacties.!

HSV jou code geeft exact aan wat ik bedoel en wat ik wou. super dank daarvoor. het is gelukt
en telt tot onbepaalde nummering.

toch nog een vraag? stel dat de laatste incident van 2020 (20-50) is.
verschijnt dan in het begin van 2021 de incident nummer 21-01???

want ik wil in 2021 dat het nummering weer op 21-01 springt!!!

 

[karimba]

HSV oke top dankjewel.!
:thumb::thumb::thumb:

 

[HSV]

Test dit eens.

[COLOR=#3E3E3E]T_00.Value [/COLOR] = Format(Date, "yy-") & [sumproduct((left(knrs,2)=mid(year(now()),3,2))*1)+1]

 

[karimba]

YES !!!!! deze code werkt ook.je bent een master :thumb: