Soru Listbox çoklu aktar

[sirkülasyon]

G5 : G15 arasında çift tıklayınca açılan userformda aktif satır için
En fazla 5 çoklu seçim yaparak seçilenleri ilk seçilenden itibaren sırası ile H : L arasına kaydetmek için rica etsem yardımcı olabilir misiniz bana?

Saygılarımla

 

[ÖmerBey]

Merhaba,
Tam anladım mı bilemiyorum ama deneyiniz...

Private Sub CommandButton1_Click()
sat = ActiveCell.Row
sut = 8
For a = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(a) Then
        Cells(sat, sut).Value = ListBox1.List(a)
        sut = sut + 1
    End If
Next
End Sub

Private Sub ListBox1_Change()
For a = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(a) Then say = say + 1
Next
If say > 5 Then ListBox1.Selected(ListBox1.ListIndex) = False
End Sub

Alternatif olarak aşağıdakini de deneyebilirsiniz.

Private Sub ListBox1_Change()
For a = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(a) Then say = say + 1
    If say > 5 Then ListBox1.Selected(a) = False
Next
End Sub

 

[sirkülasyon]

Sayın ÖmerBey
ustam eline koluna sağlık. Tam anladığınız gibi.
çok teşekkür ederim

 

[ÖmerBey]

Rica ederim Hocam,
ListBox1_Change olayına bir alternatif daha eklemiştim, bir de ona bakın isterseniz.
İyi çalışmalar...

 

[sirkülasyon]

ÖmerBey
ilk önce talepte bulunmadım ama zaruret doğduğu için rica etsem sütunlara aktarma yaparken önce temizlemesini sonra aktarmasını yapacak şekilde düzenleme yapabilir misiniz?

 

[ÖmerBey]

Temizleme derken?
Listbox mu, yoksa ilgili sayfadaki veriler mi temizlenecek?

 

[sirkülasyon]

ustam sayfada ki verileri.
Örnek aktif satıra aktarırken listboxta en fazla 5 seçim ile kısıtlamıştık ya. Kullanıcı 5 değil de 3 seçim yaparsa önce sayfaya aktarılan veriyi temizlesin sonra seçilen 3 veriyi aktarsın.

 

[ÖmerBey]

Kırmızı satırı ilave ediniz.

sut = 8
Range("H" & sat & ":L" & sat).ClearContents
For a = 0 To ListBox1.ListCount - 1

 

[sirkülasyon]

Ustam Hakkını helal et.
Çok teşekkür ederim.