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

204

Ää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. Mitkä asiat

      tekevät vaikeaksi kohdata kaivattusi?
      Ikävä
      74
      934

    2. Miltä se tuntuu

      Miltä se tuntuu havahtua, että on ollut ihmistä kohtaan, joka on rakastanut ja varjellut, täysi m*lkku? Vai havahtuuko s
      Ikävä
      104
      788

    3. Mikä jäi sanomatta kaivatullesi?

      Ja milloin?
      Ikävä
      60
      772

    4. Rakas

      Eihän se tietysti minulle kuulu, mutta missä sinä olet? 😠
      Ikävä
      44
      734

    5. Pidit itseäsi liian

      Vanhana minulle? Niinkö?
      Ikävä
      46
      670

    6. Haluaisitko oikeasti

      Vakavampaa välillemme vai tämäkö riittää
      Ikävä
      49
      664

    7. En mahda sille mitään

      Olet ihanin ja tykkään sinusta todella paljon.
      Ikävä
      31
      629

    8. Mitä se olisi

      Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?
      Ikävä
      34
      577

    9. Joko olet luovuttanut

      Mun suhteen?
      Ikävä
      50
      570

    10. Sinunkin pitää jättää

      Se kaivattusi rauhaan.
      Ikävä
      38
      516
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt