ListBox -frmMultiSelectMulti

[Yakut]

slm,


burada frmMultiSelectMulti secdiklerim, form kapattiktan sonra veya herhangi bir sayfaya gecis

yaptigimda secilenler siliniyor. Bunlari devamli hale getirmek mümkün mü ? Sadece dosyadan ciktigim zaman silinsin

checkBox da bunun oldugunu formda gördüm.

 

[ozgretmen]

Formunuzun çıkış olayı...Olabilir gibi geldi bana...Bir deneyiniz...

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Kodları yazın
End Sub

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Dim ElemanSay As Integer, SutunSay As Integer
Dim Satir As Integer
Dim Baslangic As Range
Set Baslangic = Sayfa2.Range("A65536").End(xlUp).Offset(1, 0)
  For ElemanSay = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(ElemanSay) = True Then  'User has selected
     Cells(ElemanSay + 2, "e") = "*"
'      ListBox1.Selected(ElemanSay) = False
      Satir = Satir + 1
      For SutunSay = 0 To Range("MyRange").Columns.Count - 1
       Baslangic.Cells(Satir, SutunSay + 1).Value = _
       ListBox1.List(ElemanSay, SutunSay)
      Next SutunSay
      Else
           Cells(ElemanSay + 2, "e") = ""
   End If
Next ElemanSay
Set Baslangic = Nothing
End Sub

Private Sub UserForm_Initialize()
    son = [a65536].End(3).Row
    For i = 2 To son
        If Cells(i, "e") = "*" Then
        ListBox1.Selected(i - 2) = True
        End If
    Next
End Sub

 

[Yakut]

ozgretmen ve hamitcan cevaplariniz icin tesekkürler.

hamitcan hocam, verdiginiz kodlar yerini oturdu. ilac gibi geldi bana bu.

saygilar

 

[Yakut]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
Dim ElemanSay As Integer, SutunSay As Integer
Dim Satir As Integer
Dim Baslangic As Range
Set Baslangic = Sayfa2.Range("A65536").End(xlUp).Offset(1, 0)
  For ElemanSay = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(ElemanSay) = True Then  'User has selected
     Cells(ElemanSay + 2, "e") = "*"
'      ListBox1.Selected(ElemanSay) = False
      Satir = Satir + 1
      For SutunSay = 0 To Range("MyRange").Columns.Count - 1
       Baslangic.Cells(Satir, SutunSay + 1).Value = _
       ListBox1.List(ElemanSay, SutunSay)
      Next SutunSay
      Else
           Cells(ElemanSay + 2, "e") = ""
   End If
Next ElemanSay
Set Baslangic = Nothing
End Sub

Private Sub UserForm_Initialize()
    son = [a65536].End(3).Row
    For i = 2 To son
        If Cells(i, "e") = "*" Then
        ListBox1.Selected(i - 2) = True
        End If
    Next
End Sub

hamit hocam, burda secilenler tekrar listeye aktariyor.yani bunlari ayri ayri yaptigimda herbirini tekrar listeye yazdiriyor. yazilanlar tekrar yazilmamasi icin ne yapmam lazim.

saygilar