Excel volgnummer automatisch doornummeren

[radjin]

Beste Excel pro's !

ik heb een vraag, ik heb een werkbon in elkaar geflatseld en wil het liefst telkens een nieuw opdrachtnummer als ik de bon opsla.
Ook ik heb geeeeeeen verstand van macro's dus zou geen idee hebben hoe ik dit ook voor elkaar kan krijgen !
Ik heb wel een knopje met nieuw opdrachtnummer,
Wat ik zou willen:

Als ik op dat knopje ''Nieuw Opdrachtnummer maken'' druk dat er automatisch een volgend opdrachtnummer komt dus bijvoorbeeld van 2013-1009 naar -> 2013-1010

Wie o wie heeft een antwoord op mijn vraag en kan mij helpen.

Mvg Radjin

*ps zie bijlage Bekijk bijlage Werkbon TEST 2013-1009.xls

 

[Demies]

Dag Radjin

Maak een macro met onderstaande code:

Sub Bonnummering()
Dim BonOrg, BonNieuw, Jaar As String
Dim NummerOrg As Integer

BonOrg = Range("n8").Value
Jaar = Left(BonOrg, 5)
NummerOrg = Right(BonOrg, 4)
BonNieuw = Jaar & NummerOrg + 1
Range("N8") = BonNieuw
End Sub

en koppel deze maco aan het knopje

Succes

 

[mcs51mc]

Met deze code ben je onafhankelijk van de lengte van het volgnummer

Public Sub NextNumber()

    With ActiveSheet.Range("N8")
        .Value = Mid(.Text, 1, InStr(1, .Text, "-", vbTextCompare) - 1) & _
                 "-" & _
                 CStr(CLng(Mid(.Text, InStr(1, .Text, "-", vbTextCompare) + 1) + 1))
    End With
    
End Sub

Het "-" streepje wordt gebruikt om jaartal te scheiden van het volgnummer.
Zie ook bijlage... ...

Bekijk bijlage Radjin--Werkbon TEST 02013-1009--001.xls

 

[radjin]

Dankjewel werkt perfect !

 

[mcs51mc]

Graag gedaan!
Nu nog de vraag op opgelost zetten en we kunnen weer verder... ...

Geef toe dat groene vinkjes beter staan dan rode vraagtekens, nietwaar ?