Listbox Boş ise

[Mdemir63]

Selamlar
Arkadaşlar Listbox boş ise işlem yapmasın istiyorum.
aşağıdaki 3 seçeneği de denedim olmadı.

If Listbox1.ListCount = 0 Then Exit Sub

If Listbox1.ListCount < 0 Then Exit Sub

If Listbox1.ListCount = -1 Then Exit Sub

 

[Korhan Ayhan]

Aşağıdaki kodu çalıştırıp test edebilirsiniz.

MsgBox Listbox1.ListCount

Bu kod size nesnede bulunan veri sayısını verecektir.

 

[Mdemir63]

Aşağıdaki kodu çalıştırıp test edebilirsiniz.

MsgBox Listbox1.ListCount

Bu kod size nesnede bulunan veri sayısını verecektir.

hocam yaptım .
1 adet veri varken de tamamen boş olduğunda 1 gösterdi

 

[Korhan Ayhan]

Demek ki boş değil. Görünüm olarak boş görünüyor.

 

[Mdemir63]

Hocam listbox tamamen boş olduğunda neden 0 veya -1 göstermez de 1 gösterir

 

[Korhan Ayhan]

Örnek dosya paylaşırsanız deneme şansımız olabilir.

 

[Mdemir63]

Örnek dosya paylaşırsanız deneme şansımız olabilir.

hocam dosya ekte

 

[Korhan Ayhan]

Sorun veri yokken nesne üzerinde başlıkları göstermek istediğiniz için oluşuyor. Aşağıdaki gibi kullanabilirsiniz.

Sub stokListele()
    Dim ws As Worksheet
    Dim ss As Long
    Set ws = Sheets("Stoklar")
    ss = ws.Range("A50000").End(xlUp).Row
    lbStoklar.ColumnCount = 9
    lbStoklar.ColumnWidths = "0,60,200,60,40,40,70,70,60"
    If ss > 1 Then
        lbStoklar.RowSource = "Stoklar!A2:I" & ss
    Else
        lbStoklar.ColumnHeads = False
    End If
    
    Call StokSayisiGoster
End Sub

 

[Mdemir63]

Teşekkürler hocam