Listboxta çoklu seçim

[harziyan]

Merhabalar;
Sorumu daha kısa bir şekilde revize etmek istedim.
Çoklu seçim yapılabilen bir listboxta;
1. seçilen değer "tge" sayfasında "a8" hücresine,
2. seçilen değer "tge" sayfasında "a9" hücresine,
3. seçilen değer "tge" sayfasında "a10" hücresine,
4. seçilen değer "tge" sayfasında "a11" hücresine aktarılacak.
Seçilen bir değer yoksa boş kalacak.
Teşekkürler.

 

[Orion1]

Kodları kaydet butonuna yazdım.
Dosyanız ektedir.

s1.Range("A8:A11").Value = Empty
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        say = say + 1
        If say > 4 Then Exit For
        If say = 1 Then s1.Range("A8").Value = ListBox1.List(i, 0)
        If say = 2 Then s1.Range("A9").Value = ListBox1.List(i, 0)
        If say = 3 Then s1.Range("A10").Value = ListBox1.List(i, 0)
        If say = 4 Then s1.Range("A11").Value = ListBox1.List(i, 0)
    End If
Next i

 

[kemal turan]

Merhaba Sn Orıon
Formdaki takvimi kendime uyarladım.
Sorunum; günü seçip SATIS.TEXTBOX.87 ye aktardıktan sonra alttaki SATIS userformu da kapatıyor.
Bunu nasıl engelleriz.

 

[kemal turan]

Merhaba Sn Orıon,
Sorun kendi kendine çözüldü.
Anlayamadım ama

 

[harziyan]

Sayın Orion1 elleriniz dert görmesin, çok teşekkür ederim.

Kodları kaydet butonuna yazdım.
Dosyanız ektedir.

s1.Range("A8:A11").Value = Empty
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        say = say + 1
        If say > 4 Then Exit For
        If say = 1 Then s1.Range("A8").Value = ListBox1.List(i, 0)
        If say = 2 Then s1.Range("A9").Value = ListBox1.List(i, 0)
        If say = 3 Then s1.Range("A10").Value = ListBox1.List(i, 0)
        If say = 4 Then s1.Range("A11").Value = ListBox1.List(i, 0)
    End If
Next i

 

[Orion1]

Sayın Orion1 elleriniz dert görmesin, çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.