Listboxla birden fazla seçim yapıp diğer listboxa ve diğer sayfaya aktarma.

[Galus]

Listboxla birden fazla seçim yapıp diğer listboxa ve diğer sayfaya aktarmak istiyorum. Kodları bulduğum dosyada birden fazla satır seçilebiliyordu. Örnekteki dosyada ise tek tek seçebiliyorum. Birden fazla satırı seçerek diğer sayfaya nasıl aktarabilirim.

Saygılarımla...

 

[fedeal]

merhaba,

Private Sub CommandButton1_Click()
Dim c, iL1, sut, iL1Sut As Integer
    c = 0
        For iL1 = [COLOR="Red"]0[/COLOR] To ListBox1.ListCount - 1
    If ListBox1.Selected(iL1) = True Then
        c = c + 1
iL1Sut = ListBox1.ColumnCount - 1
    With ListBox1
         ListBox2.AddItem .List(iL1, 0), 0
    For sut = 1 To iL1Sut
        ListBox2.List(0, sut) = .List(iL1, sut)
    Next sut
    End With
        End If
    Next iL1
End Sub

kırmızı olan sayı 0 olmalı sizde 1 (sizdeki gibi liste başlık içermiyorsa)
properties ayarlarından multiselct ayarını 1 yapın
iyi çalışmalar.

 

[Galus]

Hocam, ilgi , bilgi ve desteğinize minnettarım. Bir de bu seçilerek Listbox2 ye gelen verileri Sipariş sayfasına nasıl aktarırım?

Saygılar...

 

[fedeal]

Private Sub CommandButton3_Click()
For i = 1 To ListBox2.ListCount
d = Sheets("Siparis").Range("A65536").End(xlUp).Row + 1
For s = 1 To 4
Sheets("Siparis").Cells(d, s) = ListBox2.List(i - 1, s - 1)
Next
Next
End Sub

iyi çalışmalar.

 

[Galus]

Hocam çok teşekkürler..

 

[Galus]

Private Sub CommandButton3_Click()
For i = 1 To ListBox2.ListCount
d = Sheets("Siparis").Range("A65536").End(xlUp).Row + 1
For s = 1 To 4
Sheets("Siparis").Cells(d, s) = ListBox2.List(i - 1, s - 1)
Next
Next
End Sub

Üstadım bu kodlar süper çalışıyorda benim işime uymuyor. Veriler siliniyor. Yarın öbürgün raporlama yapamam. İstediğim , butona bastığımda sipariş sayfasına yeni 20 satır eklensin. Verileri ikinci satırdan sonra yazmaya başlasın.

Fazla masraflı olduysam bağışla .

saygılar...

 

[fedeal]

o kodlar sipariş sayfası ilk boş satırdan sonra eskileri silmeden ekliyor.raporlama yapmak için her sipariş için liste numarası olmalı diye düşünüyorum.

 

[Galus]

Hocam haklısınız. Zaten diğer yaptığınız programcık işlerimi görüyor.

Saygılar..