Listview'de seçilen bilgilerin gösterilmesi

[muratozmenler]

iyi akşamlar....
açılan userformdaki listboxta işaretlenen bilgiler gösteriliyor; işaretler kaldırıldığında listenin ilk açıldığı gösterilmesi yani hangi seçenek işaretlenip gösterilirse kaldırıldığında hata vermeden ilk hali gibi gösterlmesini nasıl sağlarız....

 

[Orion1]

Dosyanız ektedir.
Not:Ayrıca konu başlığınıda listbox demişsiniz.Oysa kullandığınız nesne yani kastettiğiniz listview.

Private Sub CommandButton122_Click()
[B][COLOR="Red"]Dim var As Boolean[/COLOR][/B]
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Set s1 = Sheets("YAG")
ReDim deg(ListBox3.ListCount)
For A = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(A) = True Then
[B][COLOR="red"]var = True[/COLOR][/B]
ListView1.ColumnHeaders.Add , , ListBox3.List(A, 0), s1.Columns(A + 3).Width
deg(C) = A + 3
C = C + 1
End If
Next
[B][COLOR="red"]If var = False Then
    ListView1.ColumnHeaders.Clear
    ListView1.ListItems.Clear
    Me.ListBox3.Clear
    Call UserForm_Initialize
    Exit Sub
    Else
    var = False
End If

[/COLOR][/B]

 

[muratozmenler]

sağolun hocam çok teşekkür ederim.....

 

[Orion1]

sağolun hocam çok teşekkür ederim.....

Ne zaman aldığınız bilmiyorum ama ben bir değişiklik yaptım.Daha doğrusu ekleme.
Listboxta veriler alttan devam ediyordu.Aynisi.initializeyi çağırınca
onda listbox clear kodu ekledim.
Şimdi sorunsuz çalışıyor.
Kolay gelsin.