Listbox ta boş olamayan hücre ve karşılığını görme

[hassan26]

Selam arkadaşlar
Cevabını aradığım soruyu Ekteki örnek dosyada (aslı çok karışık) açıklamaya çalıştım. Bu listbox sadece göstermek amaçlı kapsamlı değil. aranacak bir veri olmayıp sadece gerekli kolonu listeleyip verinin aynı satırında sol başta A (sabit) kolonundaki ismide yanında gösterecek. Aynı excel tablosundaki listele komutunda "boş olmayanlar" olduğu gibi Makro kaydet ile takip ettim ama listbox sa işleyemedim.
Saygılar.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton83_Click()

Set HS = Sheets("anasayfa")
    Son = HS.Cells(65536, 6).End(xlUp).Row
       For i = 2 To Son
           If HS.Cells(i, 6) = "BOŞ" Or HS.Cells(i, 6) = "" Then: GoTo Devam
           ListBox2.AddItem
           ListBox2.Column(0, x) = HS.Cells(i, "A").Value
           ListBox2.Column(1, x) = HS.Cells(i, 6).Value
           x = x + 1
Devam: Next

End Sub

 

[hassan26]

Evren bey teşekkür ederim bir şeyi atlamışım butona herbasmada döngü artarak devam ediyor bunu nasıl engellerim. Yani tek basmada sonuç.
Saygılar.

 

[Orion1]

Kodların en başına Listbox2.clear yazın.

 

[hassan26]

Sayın Evren Bey ilginize tekrar teşekkür ederim.

 

[Orion1]

Sayın Evren Bey ilginize tekrar teşekkür ederim.

Rica ederim.