ListBox listeleme hatası (ÇÖZÜLDÜ)

[TanerSaydam]

Merhaba arkadaşlar;

Aşağıdaki form ile 3farklı sayfaya veri alıyorum. Onları liste olarak görmek içinde ListBox'a aktarım yaptım. İhracat ve Gümrük yazdığım kayıtları Optıon'a tıklayarak ulaşmama rağmen, En baştaki Optıon'a tıkladığımda hata alıyorum.

HATA:


FORM RESMİ



SORUNLU KOD

Private Sub OptionButton1_Click()
IadeGirisi.ListBox1.RowSource = ""
a = "İhraç-2017-ARALIK VD"
son = Sheets(a).Range("B65652").End(3).Row
IadeGirisi.ListBox1.ColumnCount = 12
IadeGirisi.ListBox1.ColumnHeads = True
sayfa_ad = Sheets(a).Name
IadeGirisi.ListBox1.RowSource = sayfa_ad & "!B6:N" & son + 1
End Sub

SAĞLAM ÇALIŞAN KOD

Private Sub OptionButton2_Click()
IadeGirisi.ListBox1.RowSource = ""
a = TextBox16.Value & "_ihr"
son = Sheets(a).Range("B65652").End(3).Row
IadeGirisi.ListBox1.ColumnCount = 14
IadeGirisi.ListBox1.ColumnHeads = True
sayfa_ad = Sheets(a).Name
IadeGirisi.ListBox1.RowSource = sayfa_ad & "!B6:P" & son + 1
IadeGirisi.ListBox1.ColumnWidths = "30;0;0;0;50;80;70;70;20;50;20;60;55;50;40"
End Sub

 

[halit3]

sayfa_ad & "![COLOR="Red"]B[/COLOR]6:[COLOR="red"]N[/COLOR]" & son + 1

B_N aralığındaki sutün sayısı 13

IadeGirisi.ListBox1.ColumnCount = [COLOR="red"]12[/COLOR]

burada ise 12 sutun var

 

[Orion1]

Burada hata varsa , sayfa adından kaynaklanıyor gibi geliyor bana.
Şöyle deneyin.

IadeGirisi.ListBox1.RowSource = "[B][COLOR="Red"]'[/COLOR][/B]" & sayfa_ad & "[B][COLOR="red"]'[/COLOR][/B]!B6:N" & son + 1

 

[TanerSaydam]

Cevaplar için çok teşekkürler. Orion, dediğiniz gibi yapınca hata kalktı. Ellerinize sağlık. Halit bey uyarınız için de teşekkürler. Ben eksik saymışım.