Birden fazla veri secip bunlari birbirine baglamak..

[xrolexx]

Merhaba arkadaslar,

Bir listbox'tan ayni anda birden fazla veri secip bunlari 2. bir listbox'ta nasil birbirine baglayabiliriz?

Mesela; ilk listbox'tan (100'den fazla veri var diyelim) istedigim 4 veriyi sectim..

aktar tusuna basinca 2. listbox'ta bu tek satirda (X1 / X2 / X3 / X4) seklinde gözüksün istiyorum..

Bunu nasil yapabiliriz?

Örnek calismayi ekli dosyada bulabilirsiniz..

Simdiden tesekkürler..

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim i As Long
ListBox3.Clear
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        ListBox3.AddItem ListBox1.List(i, 0)
    End If
Next
End Sub

 

[xrolexx]

Evren abi tesekkürler ancak istedigim tam olarak su; secilen verilerin tek satirda "(x1 / x2)" seklinde gözükmesidir.

 

[Orion1]

Evren abi tesekkürler ancak istedigim tam olarak su; secilen verilerin tek satirda "(x1 / x2)" seklinde gözükmesidir.

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim i As Long, a As Long, sut As Long
ListBox3.Clear
ListBox3.Height = 177
ReDim myarr(1 To 1, 1 To 1)
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        a = a + 1
        ReDim Preserve myarr(1 To 1, 1 To a)
        myarr(1, a) = ListBox1.List(i, 0)
    End If
Next
ListBox3.ColumnCount = a
ListBox3.Column = Application.Transpose(myarr)
End Sub

 

[xrolexx]

Emegin icin cok tesekkürler..

 

[Orion1]

Emegin icin cok tesekkürler..

Rica ederim.
İyi çalışmalar.