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

180

Ää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. Mistä puhuitte viimeksi kun näitte

      Kerro yksi aiheista
      Ikävä
      80
      5659

    2. Olenko saanut sinut koukkuun?

      Hyvä. Rakastan sua.
      Ikävä
      127
      3943

    3. ROTAT VALTAAVAT ALUEITA

      Asukkaat nyt loukkuja tekemään ja kiireellä, jätehuolto kuntoon, jätteet niille kuuluville paikoille, huomioikaa yrittäj
      Äänekoski
      45
      3820

    4. Se on hyvästi

      Toivottavasti ei tavata.
      Ikävä
      66
      3504

    5. Miten minusta tuntuu että kaikki tietää sun tunteista mua kohtaan

      Paitsi suoraan minä itse, vai mitä hlvettiä täällä tapahtuu ja miksi ihmiset susta kyselee minulta 🤔❤️
      Ikävä
      26
      2888

    6. Alavuden sairaala

      Säästääkö Alavuden sairaala sähkössä. Kävin Sunnuntaina vast. otolla. Odotushuone ja käytävä jolla lääkäri otti vastaan
      Ähtäri
      7
      2419

    7. Sisäsiittosuus

      Tämän kevään ylioppilaista 90% oli sama sukunimi?
      Suomussalmi
      27
      2184

    8. Kerro todelliset motiivit

      kaivattuasi kohtaan?
      Ikävä
      204
      2091

    9. Siekkilässä ajettu ihmisten yli- mitä tapahtui? Länsi-Savo ei ole uutisoinut asiata

      Manneja, vaiko matuja?
      Mikkeli
      33
      1879

    10. Reuters: Ukraina on iskenyt Venäjän strategisia pommikoneita vastaan. Jopa 40 konetta vahingoittunut

      Ukrainan turvallisuuspalvelu SBU on iskenyt Venäjän strategisia pommikoneita vastaan, kertoo Reuters. Uutistoimiston läh
      NATO
      430
      1752
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt