• 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.

Tabbladen op een userform

Status
Niet open voor verdere reacties.
P

Puntdroad123

Gebruiker
Lid geworden
22 aug 2016
Berichten
30
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
 

Bijlagen

  • Test Formulier Helpmij..xlsm
    129,7 KB · Weergaven: 54
Ja dat kan, maar op basis van welke voorwaarde uit die Listbox moet welke tab geselecteerd worden?
 
Laatst bewerkt:
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
 
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?
 
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.
 

Bijlagen

  • Test Formulier Helpmij. (2).xlsm
    130,8 KB · Weergaven: 64
?
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)
 
Ok Thanks het werkt nu!!
Ik snap alleen niet waar je die perceelskeuze.value vandaan haalt.
 
Dat is jouw MultiPage,

de waarde 0 stuurt je naar Page1 de waarde 1 naar Page2 etc...
 
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 bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan