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.
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.
Vastaukset 1
Vanhimmat
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