Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: Tabbladen op een userform

  1. #1
    Vraag is niet opgelost

    Tabbladen op een userform

    Hallo,

    Korte vraag, is het mogelijk om te verwijzen naar een tabblad op een userform.
    Als de listbox waarde (de rechter listbox in het bestand) in aangeklikt word zou ik het namelijk handig vinden dat meteen het juiste tabblad opent.

    Groet Rick
    Attached Files Attached Files

  2. #2
    Ja dat kan, maar op basis van welke voorwaarde uit die Listbox moet welke tab geselecteerd worden?
    Laatst aangepast door E v R : 20 maart 2017 om 15:58
    Gr. Eric

  3. #3
    Ok dat zou geweldig zijn.

    Ik zat te denken om een onzichtbare textbox op elk tabblad te maken. Blad 1 wordt dan 1 ; blad 2 krijgt 2 enz.
    Deze waarde wordt dan ook opgeslagen bij de verwerkte data en kan via deze waarde weer in het juiste tabblad gezet worden. O

  4. #4
    Zet dit eens onderaan in jouw "Private Sub ListOfData_click()"

    Code:
    Perceelskeuze.Value = ListOfData.List(ListOfData.ListIndex, 2) - 1
    Nu loopt hij mee met het nummer wat staat bij aanvulling, zoiets bedoel je?
    Gr. Eric

  5. #5
    Dank voor het voorbeeldje maar er gebeurd nog niets.

    Ik heb het bestand iets aangepast. Als je het nu bestand opent sta je op tabblad 2 en als je dan op de bovenste 3 in de listbox zou klikken zou die naar tabblad 1 moeten gaan maar dat gebeurt nog niet.
    Attached Files Attached Files

  6. #6
    ?
    ipv :
    Code:
    If Me.ListOfData.Column(43) = "1" Then
    texbox26.Value = ListOfData.List(ListOfData.ListIndex, 43) - 1
    
    end if
    Code:
    Perceelskeuze.Value = ListOfData.List(ListOfData.ListIndex, 43) - 1
    Overigens net als vorig voorbeeld...., dan wordt de Page geselecteerd welke overeenkomt in kolom 44 (Het nut van die Textbox26 ontgaat me)
    Gr. Eric

  7. #7
    Ok Thanks het werkt nu!!
    Ik snap alleen niet waar je die perceelskeuze.value vandaan haalt.

  8. #8
    Dat is jouw MultiPage,

    de waarde 0 stuurt je naar Page1 de waarde 1 naar Page2 etc...
    Gr. Eric

  9. #9
    Ik zou nog even wachten met de aanduiding 'klaar' in de procedrues:

    gebruik

    Code:
    Private Sub UserForm_Initialize()
       ListBox1.List = Array(1, 2, 3, 4, 5, 6, 7)
       ListBox1.ListIndex = 0
    
       ListOfData.List = Sheets("Verwerkte Data").Cells(1).CurrentRegion.Value
    
       ComboBox1.List = Sheets("klanten").Cells(1).CurrentRegion.Value
       Text_Jaar = Year(Date)
    End Sub
    en
    Code:
    Private Sub ComboBox1_Change()
        with Combobox1
        Text_Klant.text = .Column(1)
        Text_Aanhef.text = .Column(2)
        Text_Adres.text = .Column(3)
        Text_Postcode.text = .Column(4)
        Text_Woonplaats.text = .Column(5)
        Text_ID.text = .Column(6)
       end with
    End Sub
    of
    Code:
    Private Sub ComboBox1_Change()
        For j = 1 To 6
           Me("Text_" & Choose(j, "Klant", "Aanhef", "Adres", "Postcode", "Woonplaats", "ID")).text = ComboBox1.Column(j)
        Next
    End Sub
    NB. benoemde gebieden zijn een hulpmiddel in de User Interface van Excel. In VBA zijn ze overbodig.
    Laatst aangepast door snb : 20 maart 2017 om 18:42
    VBA voor smarties

    VBA is een taal die je moet leren met een grammatica- en een woordenboek.
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
    overmorgen

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 en business

Partners
Sponsoren
Aanbiedingen