Uniek nummer meegeven aan userform opdracht

Status
Niet open voor verdere reacties.

kattenbe

Gebruiker
Lid geworden
12 jan 2016
Berichten
56
Besturingssysteem
Windows
Office versie
365
Heren,

Na het invullen van gegevens via een userform save ik deze naar Sheet(“Data”).
Aan het einde van de dag worden deze gegevens overgezet van Sheet(“Data”) naar Sheet(“DataTot”).
Sheet(“DataTot”) is waar uiteindelijk het totaal van de gegevens wordt opgeslagen.
En zeg dat er de volgende dag dan weer met een leeg Sheet(“Data”) gewerkt kan gaan worden.

Nu mijn vraag:
Wanneer ik een nieuwe opdracht invoer wil ik graag dat daar dan automatisch aan die opdracht een uniek nummer (gewoon beginnend met 1 en dan 2 enz.) wordt mee gegeven.
Dat unieke nummer moet dan ook weer aansluiten aan de nummers die al Sheet(“DataTot”) staan.

Een uniek nummer alleen via Sheet(“Data”) lukt wel met deze code:
Me.txtItemNo = Application.WorksheetFunction.Max(Range("A:A")) + 1

Maar er moet ook naar het laatste unieke nummer van Sheet(“DataTot”) gekeken worden
De code “kijkt” alleen naar gegevens van Sheet(“Data”).

Nu heb ik via onderstaande code “geprobeerd” maar dat gaat mij niet lukken.

Kunt u mij helpen?

Code:
Private Sub cmdNew_Click()
blnNew = True
    
Dim Dt1 As Worksheet
Set Dt1 = Sheets("Data")
Dim DtTt As Worksheet
Set DtTt = Sheets("Data")

Dim Lr1 As Long
Dim Lr1Tt As Long

Dim x As Integer

Lr1 = Dt1.Cells(Rows.Count, 1).End(xlUp).row
LrTt = DtTt.Cells(Rows.Count, 1).End(xlUp).row

On Error Resume Next
For x = 1 To Lr1
    
If Application.WorksheetFuncton.Max(Dt1.Range("A:A")) <= 0 Then
Me.txtItemNo.Value = Application.WorksheetFunction.Max(Dt1.Range("A:A")) + 1
Else: Me.txtItemNo.Value = Application.WorksheetFunction.Max(DtTt.Range("A:A")) + 1

End If

Next x
End Sub
 
Laatst bewerkt door een moderator:
Graag even een voorbeeldbestand uploaden. We gaan niet het wiel opnieuw uitvinden natuurlijk.
 
Een uniek volgnummer, onafhankelijk van een bestand:

Code:
Sub M_uniek()
  c00 = Dir("G:\OF\uniek*")

  If c00 = "" Then
    c00 = "uniek000"
    CreateObject("scripting.filesystemobject").CreateTextFile "G:\OF\" & c00
  End If

  Name "G:\OF\" & c00 As "G:\OF\uniek" & Format(Val(Right(c00, 3)) + 1, "000")
End Sub
 
Is mijn vraag misschien niet duidelijk genoeg?
Ik krijg geen reacties.
 
Beschouw je de code van snb niet als een valide reactie? Zal hij leuk vinden :).
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan