Apua kaivataan

Brontosaurus

Miten saan toimimaan seuraavan:
On luetteloruutu, jossa on lista tuotteista ja vieressä tyhjä ruutu. Kun valitsen tuotteista esim. viisi klikkaamalla ne aktiivisiksi, miten saan ne valitut siirtymään tyhjään ruutuun??
En saa painonappia toimimaan, eikä vba:n kauttakaan ole onnistunut.

1

183

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • mmm

      Private Sub Komento1_Click()
      Dim K, i
      For K = Luettelo2.ListCount - 1 To 0 Step -1
      Luettelo2.RemoveItem K
      Next
      K = 0
      For Each i In Luettelo1.ItemsSelected
      Luettelo2.AddItem Luettelo1.ItemData(i), K
      K = K 1
      Next
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      70
      3550

    2. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      148
      3503

    3. 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 teh
      Ikävä
      46
      3322

    4. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      53
      2769

    5. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      32
      2036

    6. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      30
      1962

    7. Et siis vieläkään

      Et ilmeisesti ole vieläkään päässyt loppuun asti mun kirjoituksissa täällä. Kerro ihmeessä sit, kun valmista 😁 tuskin k
      Ikävä
      40
      1695

    8. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1676

    9. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      96
      1625

    10. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      39
      1390
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt