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.
Apua kaivataan
Brontosaurus
1
174
Vastaukset
- 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ä.
Luetuimmat keskustelut
- 2043998
Tekisi niin mieli laittaa sulle viestiä
En vaan ole varma ollaanko siihen vielä valmiita, vaikka halua löytyykin täältä suunnalta, ja ikävää, ja kaikkea muuta m921906Miksi ihmeessä?
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek301592- 1651402
Erika Vikman diskattiin, tilalle Gettomasa ja paluun tekevä Cheek
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek https://www.rumba.fi/uut251276Pitääkö penkeillä hypätä Martina?
Eivätkö puistonpenkit ole istumista varten.Ei niitä kannata liata hyppäämällä koskaa likaantuvat eikä siellä kukaan niit2121150- 391132
Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?941109Maikkarin tentti: Orpo jälleen rauhallinen ja erittäin hyvä, myös Purra oli hyvä
Lindtman ja Kaikkonen oli kohtalaisia, sen sijaan punavihreät Koskela ja Virta olivat taas heikkoja. Ja vastustavat jalk1291093Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell1971026