• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Laatst ingevoerde kenteken op label

Status
Niet open voor verdere reacties.

JosEindhoven

Gebruiker
Lid geworden
4 dec 2014
Berichten
431
Goede morgen allemaal.

Ik heb een bestand waarbij ik de autokosten bij hou. Bij het wisselen van auto geef ik het kenteken opnieuw in. Dit komt dan op een label te staan. Ik kan natuurlijk op het label een vast gegeven zetten. Is het ook mogelijk het laatst ingevoerde kenteken automatisch op het label te zetten. De kentekens bevinden zich op het tabblad Database kolom A (Id). Ik heb al overal gezocht maar krijg het niet voor elkaar.
 

Bijlagen

  • Autokosten.xlsm
    91,6 KB · Weergaven: 20
Bedoel je dit?
 

Bijlagen

  • Autokosten.xlsm
    92,6 KB · Weergaven: 17
Nee,dit is niet goed. Excel geeft niet het laatst ingegeven kenteken al ik het bestand open.
 
2 de poging, had niet gezien dat de recentste ingaven bovenaan stonden.
 

Bijlagen

  • Autokosten(v2).xlsm
    92,6 KB · Weergaven: 13
Werkt nog steeds niet. De meest recente invoer staat onderaan. Zowel in de tabel als Listbox
 
Wat is dan de laatst ingevoerde nummerplaat volgens jou?
 
Als ik het bestand open en een nieuw kenteken invoer met gegevens en vervolgens opsla dan geeft hij niet het laatst ingevoerde kenteken weer wanneer ik het bestand weer open.
 
Hallo Jos,

weer gevonden.

De oplossing staat in de events van Initialize en de LEEG button.

Deze luidt:
Code:
Me.TextBox1.Value = Blad2.Cells(Blad2.Rows.Count, 1).End(xlUp).Value
Doe er je voordeel mee
 

Bijlagen

  • AutokostenNieuw.xlsm
    93,2 KB · Weergaven: 48
Waarom blijf je niet in de With van het istobject.

Me is ook overbodig.
Code:
Private Sub UserForm_Initialize()
BackColor = RGB(247, 247, 247)
   With Blad2.ListObjects(1)
     ListBox1.List = .DataBodyRange.Value
     x = .HeaderRowRange
    For j = 2 To 27
      Controls("label" & j).Caption = x(1, j)
    Next j
'Inlezen Headers in ListBox2
   TextBox2.SetFocus
   TextBox6 = .DataBodyRange(.ListRows.Count, 7)
   TextBox1 = .DataBodyRange(.ListRows.Count, 1)
 End With
End Sub
 
Code:
With ListBox1
  TextBox6 = .List(.Listcount-1,6)
  TextBox1 = .List(.Listcount-1, 0)
End With
 
Zo kan het ook nog.
 
Je hebt helemaal gelijk Harry vwb #9. #10 moet ik nog testen maar jou kennende zal ook dat zeker werken.

Jos
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan