Hei vain,
yritin tässä koodata comboboxia userformiini, niin että comboboxin valinnan persuteella listboxi täytettäisiin työlehdeltä. kaikki näyttäisikin toimivan hyvin, paitsi etten saa monivalintaa toimimaan. listboxiin tulee vain yksi valitsemistani tiedoista... Varmaan joku ihan tyhmä juttu, mutten vaan näe missä ongelma piilee ja alkaa hermo mennä
Private Sub ComboBox1_click()
Dim Sisalto As Variant
Dim Numero As Integer
Dim Lasku As Integer
Dim Valinta As Integer
Dim Tieto As Variant
Numero = Worksheets("sheet1").Range("a1048567").End(xlUp).row
ListBox1.Clear
Valinta = 0
For Lasku = 2 To Numero
Sisalto = Worksheets("sheet1").Cells(Lasku, 1).Value
Tieto = ComboBox1.Value
If sisalto = Tieto Then
With Userform1.ListBox1
.AddItem
.List(Valinta) = Worksheets("sheet1").Cells(Lasku, 2).Value
End With
End If
Next
End Sub
Ongelma combo- ja listboxin suhteen
exceli-eerika
0
388
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Miksi jollain jää "talvi päälle"
Huvittaa kastoa ullkona jotain vahempaa äijää joka pukeutuu edelleen kun olisi +5 astetta lämmittä vaikka on helle keli2412132Mitä et hyväksy miehessä/naisessa josta olet kiinnostunut?
Itse en halua, että miehellä olisi lapsia!1541378Se katse silloin
Oli hetki, jolloin katseemme kohtasivat. Oli talvi vielä. Kerta toisensa jälkeen palaan tuohon jaettuun katseeseen. Tunt531270- 741025
Tiesitkö? Farmi Suomi Kirsikka Simberg on tämän julkkisnaisen tytär - Katso tyrmäävät mallikuvat!
Oho, aikamoinen ylläri. Tiesitkö?! Kirsikka Simberg on yksi tämän kauden Farmi Suomi -kisaajista. Hänellä ei ole tuttu t3999Tuhdit oluet kauppoihin. Miksi vastustaa?
8% oluet kauppoihin mutta mikä siinä on että osa politikoista vstustaa ? Kauppa kuitenkin hinnoittelee vahvan oluen ni211933- 78930
Sinua tulen kyllä ikävöimään pitkään nainen
mutta oli pakko tehdä päätös oman mielenrauhan vuoksi. Toivottavasti saat elämältä kaiken mitä haluat.45835Kärsämäki rosvojen ja tuhopolttajien kylä?
Poliisi ampui uhkaava miestä Kärsämäellä. Ja vasta joku poltti rivitalon. Mikä riivaa Kärsämäkisiä? Joko tuulimyllyjen15650Kohta me ei enää nähdä :(
En pääse enää uppoutumaan silmiisi enkä kuunnella ihanaa ääntäsi. Elämä on pstä.39649