Beginnersvraag

[guidobothmer]

Dag mensen

Zoals vele begin ik net met vba in exel.
Ik zal wel met een hele domme beginnersvragen komen

Ik heb voor de duidelijkeheid een voorbeeldje bijgevoegd.

Vraag 1
Ik wil graag weten hoe ik de waardes die ik op blad 1 heb 1 tm 10 in de combobox te zien krijg en wanneer ik een waarde aanklik de uitkomst op blad 2 te zien is.

Vraag 2
Ik heb een tekst vak ingevoegd en als ik daar iets invul hoe komt het dat op blad 2.

Wellicht zullen vele denken wat simpel maar dat is alles in het begin.
Graag zou ik de meest simpele code willen hebben voor deze 2 en dan ben ik enorm geholpen.

Gr GuidoBekijk bijlage 234079

 

[edmoor]

Dat is lastig uitleggen zonder combobox in je voorbeeld document. En welk tekstvak en tijdsvak heb je het over?

 

[guidobothmer]

Sorry dit bestand moet wel goe zijn

Hoi bedankt voor je snelle reageren.
Had eigenlijk niet door dat het zoooo snel ging.

Ik heb het bestand aangepast en goed opgeslagen

Ik had het over een tijdsvak maar dat moeten gewoon cijfers zijn.
In de combobox wil ik de cijfers 1 t/m 10 zien die bij aanklikken gelijk op het 2e blad word weergegeven.

Ik hoop dat ik nu duidelijk ben.

Gr Guido.
Bestand nog maar eens bijgevoegd.

Bekijk bijlage Vrije tekst in document en combobox.xlsm

 

[HSV]

Zo vul je de combobox in het form.

Private Sub UserForm_Initialize()
 ComboBox1.List = Sheets("Blad1").Cells(1).CurrentRegion.Value
End Sub

Voor je tweede vraag zou ik nog een commandbutton toevoegen aan het form.

Private Sub CommandButton1_Click()
 Sheets("Blad2").Range("B1:B2") = Application.Transpose(Array(ComboBox1.Value, TextBox1.Value))
End Sub

Beide codes behoren in module van het formulier.

 

[guidobothmer]

50 % gelukt

Hoi

Mijn tekstvak werkt zoals wil.

De combobox laat nog niets zien.
Kan dat ook in een simpele code zonder te werken met een exelblad?

Gr Guido.

 

[guidobothmer]

aanvulling

ik bedoel met werkblad waar ik van tevoren 1 tm 10 opgeef.

Gr Guido

 

[HSV]

De vraagstelling begrijp ik helaas niet.
Hier werkt het overigens 100%.

 

[VenA]

Als je de cobobox wil vullen zonder gegevens uit een werkblad kan je bv dit gebruiken:

ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

 

[HSV]

Dat kan simpeler.

 ComboBox1.List = [Row(1:10)]

 

[guidobothmer]

combo codes

Als ik een van de codes voor de comboboxen gebruik geeft hij geen getal weer.

De volgende 2 codes heb ik geprobeerd.

Private Sub Comboxobsafd1_Change()
Comboxobsafd1 = [Row(1:10)]
End Sub


Private Sub Comboxobsafd1_Change()
ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
End Sub

Gr Guido.

 

[VenA]

Zet het dan eens op de goede plaats.

Private Sub UserForm_Initialize()
 ComboBox1.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
End Sub

 

[guidobothmer]

eigen document

Het betreft hier de code die ik in mijn eigen document gebruik.

 

[HSV]

De code hoort ook niet thuis in de Change gebeurtenis, maar in de 'Initialize' van het form

 

[VenA]

Dan kan je het beste even een voorbeeldje plaatsen die wel aansluit met de vraag. De naam van de combobox is anders dan in jouw eerste voorbeeldje en zo zal er wel meer anders zijn.

 

[guidobothmer]

Bedankt voor de hulp.

Dag mensen,

Ik denk dat ik VBA iets heb onderschat.
Ik heb maar eens vba voor dummies aangeschaft om te zorgen dat er in ieder geval een basis kennis tot stand komt.
Als ik op deze manier doorvraag wordt het een te lang verhaal om daar jullie steeds mee lastig te vallen.

Ik kom zeker nog terug als ik wat meer onderleg bent met het VBA schrijven.

In ieder geval alsvast bedankt voor de moeite

Vena ik denk dat ik mijn bestand niet openbaar kan maken o veiligheidsredenen.

Gr Guido.

 

[HSV]

Niet te gauw opgeven Guido.
Kijk in het bestand wat ik heb meegezonden in één van mijn vorig schrijven.
De codes staan in de module van het userform.
Lijkt me niet zo moeilijk om het over te nemen en of aan te passen naar de andere antwoorden om het te verwerken in jouw echte bestand.

Lukt het je niet, leg ik het nog een keer uit.

 

[guidobothmer]

bedankt hsv

bedankt voor de leuke reactie.
ik wil eigenlijk niemand echt tot last zijn vandaar dat ik zoiets had van eerst even beter inlezen.

ik zal het bestand morgen een beetje verbouwen en kan ik die dan privé naar je sturen?

gr Guido.

 

[HSV]

Je bent hier niemand tot last Guido.
Het is allemaal vrijwillig helpen, en ben hier gelukkig niet de enige.
Degenen die geen zin hebben of het niet voor elkaar kunnen krijgen haken vanzelf af.
Jij zit met een vraag, niet geschoten is altijd mis.
Ze kennen je niet persoonlijk, dus er is geen man overboord.

Verbouw het zo dat er geen gevoelige info instaat en je kunt het hier dan plaatsen.

 

[edmoor]

Daar sluit ik me volledig bij aan. En mocht de nood aan de man komen mag je mij dat document ook wel mailen als HSV er geen tijd voor mocht hebben.

 

[guidobothmer]

ander beter bestandje

Dag mensen,

Ik alles even verwekt in een ander bestand die mij, denk ik wel verder gaan helpen.
Ik heb de opmerking in het bestand verwerkt.

Ik ben heel benieuwd.

Gr Guido.