Listbox veri yüklemede "Subscript out of range" hatası

[volkangandalf]

Arkadaşlar,
Ekte sunduğum dosyada bulunan userform34 benzeri asıl dosyamda 4 formum var diğerlerinde çalışan kodların daha sadeleştirilmişini kullanıyorum ama burada olmuyor. Hata nerede bir türlü çözemedim. Vakit ayırmanız ümidiyle, Saygılarımla

 

[NBATMAN]

Merhaba,

dosyanız ektedir. Dener misiniz?

 

[volkangandalf]

Merhaba,

dosyanız ektedir. Dener misiniz?

Merhaba Sayın NBATMAN,
Olmadı:frown:. Ekli dosyada çalışan formuda (userform3) ekledim burada il seçimide gözönünde bulunduruluyor.
Ama diğerinin niye çalışmadığını bulamadım.

 

[volkangandalf]

Sonunda buldum

Selam Arkadaşlar,
Aynı hatayı yapanlara çözüm olur düşüncesiyle hatamı paylaşmak istedim.
Sıkıntı list1'in satır sayısı imiş. Sayfadaki bütün verileri listbox'a listeletmek gerektiğinde yetersiz kaldığından hata veriyormuş.


sat = sh.Cells(65536, "B").End(xlUp).Row
sat = sat + 1
list1 = sh.Range("a1:ad" & sat).Value


satır sayısını 1 artırarak hatayı giderdim.