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
    Junior Member
    Geregistreerd
    22 augustus 2016
    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
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    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 14:58
    Gr. Eric

  3. #3
    Junior Member
    Geregistreerd
    22 augustus 2016
    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
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    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
    Junior Member
    Geregistreerd
    22 augustus 2016
    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
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    ?
    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
    Junior Member
    Geregistreerd
    22 augustus 2016
    Ok Thanks het werkt nu!!
    Ik snap alleen niet waar je die perceelskeuze.value vandaan haalt.

  8. #8
    Mega Senior E v R's avatar
    Geregistreerd
    22 oktober 2008
    Dat is jouw MultiPage,

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

  9. #9
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    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 17:42
    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.

  10. Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.

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