son kayıt en başta görünsün

[alpslnerdgn]

merhaba arkadaşlar benim derdim şudur ki;

excel vba ile kayıt programı yaptım. userform textbox lara girdiğim veriler excel de sayfaya kaydediliyor. bu kayıtlarda herhangi bir değişiklik yapabilmek için listbox yaptım. listboxta herhangi bir kayıta tıkladığımda daha önce doldurduğum textboxlar otomatik olarak doluyor. herhangi bir değişiklik yapmak istediğimde de ise rakamları ya da yazıları değiştirerek güncelleyebiliyorum.

benim istediğim şu;

yaptığım en son kayıtı listboxta en üstte görmek istiyorum. yani listbox taki görünümü tersine çevirmek istiyorum.

verileri kaydederken otomatik ID numarası attığı için sort by number ile yapmak istemiyorum. farklı bir yöntem var mıdır?



(ya da aslında en iyisi bu olacak ama kayıt yaparken şu kodu kullanıyorum)

bunun yerine nasıl bir kod yazabilirim ki kaydedilen veri en alta değilde en üste gelsin)

Dim sayfa As Worksheet

Set sayfa = ThisWorkbook.Sheets("DATABASE")

nr = sayfa.Cells(Rows.Count, 1).End(xlUp).Row + 1

  
sayfa.Cells(nr, 2) = Me.TextBox1

şimdiden teşekkürler

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz?

 

[Korhan Ayhan]

Merhaba,

Şöyle yapabilirsiniz...

Kayıt işlemini yaptıktan sonra sayfadaki verileri ID numarasına göre Z-A (tersten) sıralayın. Sonra sayfadaki verileri ListBox nesnesine yükleyin.

Son olarak dosyayı yada formu kapatırken sıralama işlemini bu sefer A-Z (normal) yaparak verilerinizi olması gereken şekline getirin.