commandbuton seçim sonucu Veri yok ise işlem yapmasın

[asterix1234]

aşağıda ki kodlarda commandbutona basılınca list sayfasındaki 21. hücredeki veriye göre listboxta süzme işlemi yapıyor.

Mümkünse eğer bakılan hücre boş ise commandbuton işlem yapmasın (hücre içeriği text)

Private Sub CommandButton43_Click()
On Error GoTo son
ListBox021.Clear
ListBox021.Column = listele(Sheets("List").Range("D21").Value)
Liste = ListBox021.List
ListBox021.List = Sirala(Liste)
Label92.Caption = Format(ListBox021.ListCount, "#,##0.00")
son:
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod bloğunu kullanabilirsiniz.

On Error GoTo son
If Sheets("List").Range("D21").Value="" Then Exit Sub
..........