Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: Laatst ingevoerde kenteken op label

  1. #1
    Senior Member
    Geregistreerd
    4 december 2014
    Vraag is niet opgelost

    Laatst ingevoerde kenteken op label

    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.
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Bedoel je dit?
    Bijgevoegde bestanden Bijgevoegde bestanden

  3. #3
    Senior Member
    Geregistreerd
    4 december 2014
    Nee,dit is niet goed. Excel geeft niet het laatst ingegeven kenteken al ik het bestand open.

  4. #4
    2 de poging, had niet gezien dat de recentste ingaven bovenaan stonden.
    Bijgevoegde bestanden Bijgevoegde bestanden

  5. #5
    Senior Member
    Geregistreerd
    4 december 2014
    Werkt nog steeds niet. De meest recente invoer staat onderaan. Zowel in de tabel als Listbox

  6. #6
    Wat is dan de laatst ingevoerde nummerplaat volgens jou?

  7. #7
    Senior Member
    Geregistreerd
    4 december 2014
    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.

  8. #8
    Senior Member
    Geregistreerd
    16 december 2016
    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
    Bijgevoegde bestanden Bijgevoegde bestanden

  9. #9
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  10. #10
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Code:
    With ListBox1
      TextBox6 = .List(.Listcount-1,6)
      TextBox1 = .List(.Listcount-1, 0)
    End With
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  11. #11
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Zo kan het ook nog.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  12. #12
    Senior Member
    Geregistreerd
    4 december 2014
    Je hebt helemaal gelijk Harry vwb #9. #10 moet ik nog testen maar jou kennende zal ook dat zeker werken.

    Jos

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren