Invoer listbox naar tabblad

[kabebanaan]

Hallo,

Ik heb een userform gemaakt met daarin een listbox.
Hoe krijg ik de gegevens die worden ingevoerd in de listbox in de laatste lege cel van mijn tabblad?

Iemand een code of voorbeeldbestandje?

 

[LucB]

Hallo Karel,

De laatste lege cel is IV65536.
Dat zal je niet bedoelen.
Ik neem aan de eerste lege na de laatste volle.
En stel dat je kolom B bedoelt.
Dan:
Dit stukje code opnemen in bv Private Sub CommandButton1_Click()

Dim x As Long
x = Cells(rows.Count, "B").End(xlUp).Row
Range("B" & x).Offset(1, 0) = ListBox1.Value

 

[kabebanaan]

Begrijp ik het goed dat je eerst op het vak moet klikken voor de actie wordt uitgevoerd?
Kan het ook zo dat de waarde zonder erop te klikken wordt ingevoerd op het tabblad?

 

[jpvs]

Hier staat een mooi vb om zelf te maken stap voor stap (wel in het Engels) :



http://www.fontstuff.com/downloads/index.htm

VBA04-UserForms.xls Excel VBA Notes: 4


Word-bestand is de beschrijving.


Pierre

 

[kabebanaan]

Hier staat een mooi vb om zelf te maken stap voor stap (wel in het Engels) :



http://www.fontstuff.com/downloads/index.htm




Pierre

Dankje voor de link, maar kan daar niet zo snel vinden hoe je nu een listbox, waarin een vaste tekst komt te staan kunt uitlezen naar je tabblad zonder te klikken .

 

[jpvs]

Open het vorige voorbeeld eens.

Ga naar de VB Editor --> Alt F11
Onder "Project - VBAProject" zie je 3 knoppen klik op de eerste als het Userform zichtbaar is?

zet de cursor eens in de listing van
"Private Sub UserForm_Initialize()"
Druk nu op F8
Eerst worden alle tekstboxen geledigd en sommige gevuld met bv Sales, Marketing enz
Als je bij de laatste regel bent nl. txtName.SetFocus gaat
het UserForm open.
Vul enkele waarden in en klik op OK .

Nu kom je in de listing van de knop OK terecht druk verder op F8
Zie nu wat er gebeurd,
ActiveWorkbook.Sheets("Course Bookings").Activate het blad "Course Bookings" word actief
Range("A1").Select A1 word geselecteerd
If IsEmpty(ActiveCell) = False Then Als de actieve cel niet leeg is
(ActiveCell.Offset(1, 0).Select) één cel naar beneden
Loop Until IsEmpty(ActiveCell) = True ga zo door tot je een lege cel tegen komt

Terug naar "If IsEmpty(ActiveCell) = False Then"



Pierre

Dit is dezelfde Loop als LucB voorsteld, wel korter en voor kolomB.

Dim x As Long
x = Cells(rows.Count, "B").End(xlUp).Row
Range("B" & x).Offset(1, 0) = ListBox1.Value

Zie ook eens de site van Ingrid B.
http://users.pandora.be/ingrid/excel/vbalaatstecel.htm

 

[kabebanaan]

Ik ben nu zover dat de gegevens op de gewenste positie terechtkomen.
Alleen dien ik nu op het Userform in het veld waar de waarde staat die ik heb toegewezen te klikken op deze waarde zodat deze wordt toegevoegd aan het tabblad.

Om het te verfraaien wilde ik het zo hebben dat ik niet hoef te klikken op het invoervak, maar dat deze waarde "automatisch" worden ingevuld op het tabblad.

 

[Wigi]

Kijk eens hier, ik denk dat dat dezelfde methode vraagt.

 

[kabebanaan]

Kijk eens hier, ik denk dat dat dezelfde methode vraagt.

Ik denk dat je een link vergeten bent ???

 

[Wigi]

Ik denk dat je een link vergeten bent ???

Ja. Hier is hij wel.

Wigi

 

[kabebanaan]

Wigi,

Mijn vraag om cellen onderaan 't blad te krijgen is inmiddels opgelost.
Alleen wil ik nog het veld "datum" naar het werkblad uitlezen zonder erop te moeten klikken.

Heb een bestand als voorbeeld toegevoegd.
Na het selecteren in het eerste veld "map" moet ik nu klikken op datum om deze uit te lezen naar het werkblad. En dat wil ik nu zonder klikken.

Ik begrijp even niet wat de oplossing is in jouw voorbeeld "Velden.xls"

Groet,

Karel

 

[Wigi]

Voor het niet klikken, verander

ListBox3.Value

door

Date

Wigi

 

[Wigi]

Ik begrijp even niet wat de oplossing is in jouw voorbeeld "Velden.xls"

Vul een getal in in de 2 bovenste velden en zie wat er gebeurt.

Wigi

 

[Wigi]

Heb ik gedaan, maar ik moet wel klikken.

- Open Voorbeeld zonder klik.xls
- verander ListBox3.Value door Date
- open de userform, kies een blauwe map (bijv) en het wordt in de kolom geplaatst

Of mis ik hier iets?

Wigi

 

[kabebanaan]

Nee klopt Wigi, ik had 'm in "Private Sub ListBox3_Change()" veranderd.
Goed gevonden deze oplossing, voor mij werkt 't en kan weer verder.

Maar even uit nieuwsgierigheid, stel dat er in het keuzevak geen datum staat, maar bijvoorbeeld tekst of een getal die uit een cel op 't werkblad gehaald worden.
Is het dan ook uitvoerbaar zonder te hoeven klikken?

 

[Wigi]

Maar even uit nieuwsgierigheid, stel dat er in het keuzevak geen datum staat, maar bijvoorbeeld tekst of een getal die uit een cel op 't werkblad gehaald worden. Is het dan ook uitvoerbaar zonder te hoeven klikken?

Ja. Zie bijlage met een TextBox en cel A1.

Wigi

 

[kabebanaan]

Bedankt voor de hulp ..... 't werkt !!!!
:thumb:

 

[Wigi]

Graag gedaan Karel

Zet je de vraag op opgelost aub? Dankuwel

Wigi

 

[kabebanaan]

Done !