sayfadan listboxa bilgi aktarma

[osmanfenerli1907]

selam
ben sayfa1 den a1:c500 den listbox1 e bilgi listeliyorum.fakat örneğin sayfada 300 satır bilgi varsa listbox yine 500 satır listeliyor ve 200 satır boş görünüyor.bunu nasıl düzeltebilirim?yani 215 satır bilgi varsa listbox 215 satır olsun.

 

[Orion1]

Dim sat As Long
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
ListBox1.RowSource = "Sayfa1!A1:C" & sat

 

[osmanfenerli1907]

hocam çok teşekkür ederim.3 sorum daha olacak.
1)listelemeye a2 den başlatırsak nasıl olur
2)örneğin sayfada hiç veri yoksa hata veriyor
3)son olarak ben sayfaya userformdan bilgileri böyle kaydediyorum
Sheets("telefonrehberi").Select
son1 = Sheets("telefonrehberi").Cells(65536, 1).End(xlUp).Row + 1
Cells(son1, 1) = isim
Cells(son1, 2) = tel1
Cells(son1, 3) = tel2

Range("A1:C" & son1).Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes

kaydederken aynı zamanda alfabetik sıraya göre sıralasa yani A sutunununa göre sıralayacak.a sutununda isimler tutuluyor

 

[Orion1]

Listboxta hata vermemesi lazım.Geriye dönük alır.
Ama şimdi kodu 2nci satırdan olacal şekilde yaptım.
Bu Listbox için.

Dim sat As Long
ListBox1.RowSource = vbNullString
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
ListBox1.RowSource = "Sayfa1!A2:C" & sat

Buda kaydet ve sıralama için

son1 = Sheets("telefonrehberi").Cells(65536, 1).End(xlUp).Row + 1
Cells(son1, 1) = isim
Cells(son1, 2) = tel1
Cells(son1, 3) = tel2
Range("A2:C" & son1).Sort Range("A2")

 

[osmanfenerli1907]

sağolun hocam ama alfebetik tersinden kaydediyor.bunu nasıl çözeriz

 

[Orion1]

Tersinden değil.Dikkat ettiyseniz azalan sıralamı yoksa artan sıaralamı olduğunu yazmadım.Microsoft bu sıralamayı varsayılan olarak küçükten büyüğe doğru sıralam olark kabul etmiş.Yani benim yaptığım tersinden değil doğru sıralama.Yani küçükten büyüğe sıralama.Siz tersimnden istiyorsanız o başka.O zaman azalan sıralama yapmak istyyorsunzu demektir.Onun kodunu aşağıda verdim.

Range("A2:C" & son1).Sort Range("A2"), xlDescending

 

[osmanfenerli1907]

çok çok teşekkür ediyorum evren abi.yeri değil ama şu framede scroll başlıklı sorunu da çözseniz çok güzel olur.