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?
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: