volgnummer opvolgend van uit ander tabblad

[spotter71]

ik ben bezig met een storings formulier nu wil ik een bon nummer hier aan hangen.
zodat ik het later weer makkelijk kan opzoeken.
de bonnummer wordt opgeslagen in het tabel in tab "Opgeslagen gegevens"

Bekijk bijlage storingslogboek.xlsm

 

[edmoor]

Met deze functie:

Function NieuwBonNummer() As Long
    Dim LR As Long
    With Sheets("Opgeslagen gegevens")
        LR = .Cells(.Rows.Count, "A").End(xlUp).Row
        NieuwBonNummer = IIf(LR < 4, Year(Date) & "001", .Cells(LR, 1) + 1)
    End With
End Function

Die kan je o.a. in de Initialize van je Userform gebruiken voor het vullen van de textbox Bonnummer: Me.TxtID = NieuwBonNummer

 

[spotter71]

sorry ben een beetje leek hier in.
als ik die tekst er in plak ,hoe krijg ik de waarde in mijn invul formulier

 

[edmoor]

Bij deze in je eigen document:
Bekijk bijlage Storingslogboek.xlsm

Klik maar eens op: Nieuwe melding maken

 

[spotter71]

hartelijk bedankt dit is precies wat ik zocht:thumb:

 

[edmoor]

Graag gedaan

 

[spotter71]

nou begreep ik hoe je die waarde ook uit het tabel haalt.
bedankt voor deze voorbeeld.
weer wat geleerd.