Listbox kullanımıyla ilgili...

[cemsultan]

Arkadaşlar, aşağıda sayfa1'den listbox'a veri almak için bir kod var. veriyi sayfa1den alırken çalışıyor. fakat ben veriyi sayfa4'ten almaya çalıştığım zaman çalışmıyor "sıralama başvurusu geçerli değil..." uyarısı veriyor.
NOT: bu kodu yazdığım userformu başka bir userformla çağırıyorum. kendi userformunu run yaptığımda çalışıyor fakat diğer userformdan çağıdığımda sadece sayfa1de çalışıyor. bu konda bana yardımcı olabilecek olan var mı acaba?


Private Sub UserForm_Initialize()
dolu_son_satır = Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
Worksheets("sayfa1").Range("A2:K" & dolu_son_satır).Sort Key1:=Range("A2"), Order1:=xlDescending
ListBox1.RowSource = "sayfa1!A2:K" & dolu_son_satır
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 3
ListBox1.ListIndex = -1
End Sub

 

[hamitcan]

Worksheets("sayfa1").Range("A2:K" & dolu_son_satır).Sort Key1:=Range("A2"), Order1:=xlDescending

satırını

Worksheets("sayfa1").Range("A2:K" & dolu_son_satır).Sort Key1:=[color=red]Worksheets("sayfa1")[/color].Range("A2"), Order1:=xlDescending

şeklinde değiştirin.

 

[cemsultan]

Hamitcan Bey teşekkür ederim. çok yardımcı oldunuz.

 

[cemsultan]

Hamitcan Bey ikinci bir sorum olacak;
listbox içerisinde 4 ayrı sutun var. listtboxtaki 1 satıra tıklanıldığında o satırdaki sutunların herbirinin içeriği ayrı textbox'lara nasıl atama yapılabilir acaba?

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/showthread.php?t=85410&highlight=Listboxa+t%FDklay%FDnca