Listbox selected kaldırma

[Aksuda]

Üstatlarım Merhaba,


Günlerdir uğraştığım listbox sıkıntımı sonunda çözdüm Tam anlamıyla bititince forumda paylaşacağım.

3 adet multiselect listbox'ım var. Aşağıdaki örnekte göreceğiniz gibi seçimler yapıyorum sonrasında Command buttona basarak kaydediyorum.
Butona bastığımda listboxların seçimsiz olarak gözükmesini nasıl sağlayabilirim?


Listbox2.Selected = True
Listbox2.ListIndex = -1

Bunları denedim ama başarılı olamadım.


Yardımlarınızı rica ediyorum.





Teşekkür Ederim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi denedinizmi?

Dim s As Integer

    For s = 0 To Me.ListBox1.ListCount
        Me.ListBox1.Selected(s) = False
    Next s

 

[Aksuda]

Sayın @PLİNT,

Öncelikle çok teşekkür ederim hızlı dönüşünüz için.

Aslında verdiğiniz kod çalıştı fakat benim kaydet butonumun işlevini istediğim gibi yapmamasına neden oldu. Yada ben kodları uygun yere yerleştirmedim.

CommandButton1 ile seçimime göre HATA sheet'ine kayıt yapıyorum. Sizin verdiğiniz kodları makroma göre düzenledim ama bu seferde HATA sheet'ine kayıt etmiyor.

Aşağıda kodlarımı paylaşıyorum nerede hata yapıyorum bilemedim.

Teşekkürler

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False

    Sheets("HATA").Select

            Dim s As Integer
            For s = 0 To Me.ListBox2.ListCount
                Me.ListBox2.Selected(s) = False
            Next s
    
If ListBox2.ListIndex < 0 Then GoTo devam1:
    
Dim i As Long
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
      
      Rows("2:2").Select
      Selection.Insert Shift:=xlDown
      Sheets("HATA").Range("A2").Value = Label5 'LOT
      Sheets("HATA").Range("B2").Value = Label6 'FAM
      Sheets("HATA").Range("C2").Value = Label7 'TARIH
      Sheets("HATA").Range("D2").Value = Label9  'SIRANO
      Sheets("HATA").Range("E2").Value = Label10  'TANIM
      Sheets("HATA").Range("F2").Value = Label11  'ITM_NAME
      Sheets("HATA").Range("G2").Value = Label12  'SEC20_NAME
      Sheets("HATA").Range("H2").Value = Label13  'PRM_KOD
      Sheets("HATA").Range("I2").Value = Label8 'GIRISCI
      Sheets("HATA").Range("J2").Value = Now 'TARIH-SAAT
      
      Sheets("HATA").Range("K2").Value = ListBox2.List(i, 0)
  
End If
Next i
i = Empty



devam1:

            Dim w As Integer
            For w = 0 To Me.ListBox3.ListCount
                Me.ListBox3.Selected(w) = False
            Next w

If ListBox3.ListIndex < 0 Then GoTo devam2:

For i = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(i) = True Then

    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Sheets("HATA").Range("a2").Value = Label5
    Sheets("HATA").Range("b2").Value = Label6
    Sheets("HATA").Range("c2").Value = Label7
    Sheets("HATA").Range("d2").Value = Label9
    Sheets("HATA").Range("e2").Value = Label10
    Sheets("HATA").Range("f2").Value = Label11
    Sheets("HATA").Range("g2").Value = Label12
    Sheets("HATA").Range("h2").Value = Label13
    Sheets("HATA").Range("i2").Value = Label8
    Sheets("HATA").Range("j2").Value = Now
    
    Sheets("HATA").Range("k2").Value = ListBox3.List(i, 0)
    
End If
Next i
i = Empty


devam2:

            Dim o As Integer
            For o = 0 To Me.ListBox4.ListCount
                Me.ListBox4.Selected(o) = False
            Next o


If ListBox4.ListIndex < 0 Then GoTo devam3:

For i = 0 To ListBox4.ListCount - 1
If ListBox4.Selected(i) = True Then


    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Sheets("HATA").Range("a2").Value = Label5
    Sheets("HATA").Range("b2").Value = Label6
    Sheets("HATA").Range("c2").Value = Label7
    Sheets("HATA").Range("d2").Value = Label9
    Sheets("HATA").Range("e2").Value = Label10
    Sheets("HATA").Range("f2").Value = Label11
    Sheets("HATA").Range("g2").Value = Label12
    Sheets("HATA").Range("h2").Value = Label13
    Sheets("HATA").Range("i2").Value = Label8
    Sheets("HATA").Range("j2").Value = Now
    
    Sheets("HATA").Range("k2").Value = ListBox4.List(i, 0)

End If
Next i
i = Empty

devam3:

Range("A1").Select
Sheets("Sheet1").Select

End Sub

 

[Aksuda]

Tamamdır şimdi çözdüm

CommandButton1 in sonuna aşağıdakşi şekilde ekleyince düzgün bir şekilde çalıştı.

End If
Next i
i = Empty

devam3:



            Dim s As Integer
            For s = 0 To Me.ListBox2.ListCount
            Me.ListBox2.Selected(s) = False
            Next s
            Dim x As Integer
            For x = 0 To Me.ListBox3.ListCount
            Me.ListBox3.Selected(x) = False
            Next x
            Dim z As Integer
            For z = 0 To Me.ListBox4.ListCount
            Me.ListBox4.Selected(z) = False
            Next z


Range("A1").Select
Sheets("Sheet1").Select

End Sub