Listbox'ta hata ( Veri yoksa hata veriyor )

[DeliBalta58]

Arkadaşlar,
Userform açıldığında önce soy isme göre sıralama yaptırıp sıralı şekilde listbox'a veri aldırıyorum.

Eğer sayfaya veri girişi yapılmamış ise hata veriyor.
Bunu nasıl engellerim acaba.
Dosya ekte. Teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

kodların başına ekleyiniz

On Error GoTo ERR

kodların en sonuna ekleyiniz

ERR:
If ERR Then
MsgBox "Sayfada veri olup olmadığını kontrol ediniz.", vbInformation
End If

 

[Orion1]

Userformun Initialize olayında ilgili kodları aşağıdakilerle değiştiriniz.

sy = Cells(65536, "B").End(xlUp).Row
If sy > 1 Then
    ListBox1.RowSource = "sayfa3!B2:FG" & sy
End If

 

[DeliBalta58]

Hocam kastım bu değildi.

Ama işimi gördü teşekkürler

 

[Orion1]

Hocam kastım bu değildi.

Ama işimi gördü teşekkürler

Benim yazdığım kodlar içinmi diyorsunuz?
Hata veriyor demiştiniz.Şimdi hata veriyormu?
Konuyu biraz dağa açarmısınız?

 

[DeliBalta58]

Sayın Evren uzmanımın önerisi çözüm oldu.
Her ikinizede ayrıca teşekkürler

 

[DeliBalta58]

Evren Hocam

Hocam kastım bu değildi.

Ama işimi gördü teşekkürler

bu mesajı yazdığımda sizin cevap yoktu henüz.
Sizin verdiğiniz çözüm oldu. Teşekkürler

 

[Orion1]

bu mesajı yazdığımda sizin cevap yoktu henüz.
Sizin verdiğiniz çözüm oldu. Teşekkürler

Rica ederim.
İyi çalışmalar.