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
440
Vastaukset
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Tukalaa kuumuutta
Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh433017Ensi kesänä
Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta612961- 422367
- 311863
Okei, myönnetään,
Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘251719Anne Kukkohovin karmeat velat ovat Suomessa.
Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa721684- 481586
Mihin hävisi
Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä771275- 381252
- 791080