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

Textboxen scrollen

Status
Niet open voor verdere reacties.
E

Excelvbas01

Gebruiker
Lid geworden
7 apr 2020
Berichten
114
Beste,
Userform met een aantal texteboxen en een scrolbar.
De bedoeling is om deze texteboxen te vullen vanuit excel bestand. Daarna met scrollbar navigeren naar boven/beneden.
Ik heb zitten zoek kan helaas niets vinden wat erop lijkt.
Hopelijk kunnen jullie mij opweg helpen.
 

Bijlagen

  • Map1a.xlsm
    13,5 KB · Weergaven: 20
Kijk eens in de eigenschappen van het Userform.
Scrollbar en Scrollheight
 
Waarom niet met een Listbox?
Zo van internet geplukt:
 

Bijlagen

  • Map1a.xlsm
    15,9 KB · Weergaven: 42
In Userform zijn een aantal teksvelden deze worden gevuld vanuit Userform (arrays).
Ik zou graag dat deze velden gevuld worden vanuit een tabblad. In dit geval tabblad "Test".
Kan iemand mij vertellen/helpen hoe ik Arrays kan vervangen door tabblad.
 

Bijlagen

  • Test.xls
    81,5 KB · Weergaven: 20
bedoel je dit ?
Code: 
With Sheets("Test")
    vaNames = Array(.[A2], .[A3], .[A4], etc)
End With
 
Bedankt voor je reactie. Zo iets bedoel ik ongeveer.
Als ik jouw code wil gebruiken krijg ik fout melding.

Foutmelding: het subscript valt buiten het bereik.
 
Die etc. staat er omdat ik te lui was om de code helemaal uit te tikken.
Waarschijnlijk de fout.
 
Die had ik weggehaald en aangepast aan tabblad test en toch krijg in die foutmelding.
 
Zo kan ook

Code: 
vaNames = [transpose(A2:A27)]
 
Bedankt allemaal voor het meedenken.
Ik heb beiede oplossingen geprobeerd maar ik krijg nog steeds die foutmelding.
 
Leg eens goed uit wat je wilt dat er gebeurt met die gegevens uit het blad test.
Je hebt 3 verschillende objecten in dat Userform.
Een tekstbox, een Combobox en een Checkbox.
Wat moet waarin komen, wat ga je er dan mee doen en wat moet er daarna mee worden gedaan.
 
Wat ik wil is dat de textboxen gevuld worden met de text vanuit kolom 1 (tabblad Test) en dat ik daarna de textboxen kan scrollen zoals in dit voorbeeldje.
Alleen dit voorbeeldje haalt gegevens uit de code.
Code: 
    vaNames = Array("Alpha", "Bravo", "Charlie", "Delta", "Echo", "Foxtrot", _
        "Golf", "Hotel", "India", "Juliet", "Kilo", "Lima", "Mike", _
        "November", "Oscar", "Papa", "Quebec", "Romeo", "Sierra", "Tango", _
        "Uniform", "Victor", "Whiskey", "Xray", "Yankee", "Zulu")

Deze gegevens wil ik vervangen door gevens van de Tabblad Test.

In plaats van listbox wil ik textboxen gebruiken.

Combobox en Checkbox wil ik voorlopig niet gebruiken.
Ik hoop dat dit duidelijk is.
 
Dus de Comboboxen ga je eerst vervangen door Textboxen?
De gegevens uit de kolommen A en B komen dan in 2 textboxen die dan naast elkaar staan?
Enzovoort voor de volgende regels uit die kolommen?
 
probeer dit eens.
Code: 
vaNames = WorksheetFunction.Transpose(Sheets("Test").Range("A2:A27"))
 
Waarom een Textbox per cel?
Daarmee maak je het jezelf alleen maar lastig.
 
edmoor.
Jij hebt dit bestand gemaakt en is opzich wel goed alleen zou mooi zijn als je met spinbutton de textboxen kan scrollen of iets in die richting.
Bv Amsterdam heeft best veel rijen. Als ik die aanklik dan geeft dit een foutmelding dit komt door dat er te weining textboxen zijn, dank ik.
Zou mooi zijn als de texboxen automatisch aangepast worden aan de geselecteerde rijen.

Het bestand wat ik heb bijgevoegd komt van hier. Ik heb alleen geprobeerd spinbutton toegevoegd.
https://www.helpmij.nl/forum/showth...Userform-Textboxen?highlight=userform+textbox

De beste oplossing is het bestand wat ik eerder heb gepost samen tevoegen met het bestand van edmoor.
 

Bijlagen

  • Plaats1 (2).xlsb
    119,2 KB · Weergaven: 12
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan