Listboxta son satırı görme

[yselimyilmaz]

Selam arkadaşlar;

Ekli dosyamda listboxa veri girdikçe en son satırın görünmesini istiyorum. Yani en son girilen satırın görülmesini istiyorum.

Yardımcı olmanızı rica ederim.

 

[cems]

Userform'da iş amacını ( kendi adıma) uğraşsamda anlamadım , açıklamamışsınız da .. Sanırım gerek duymadınız.

Yine de , son satırı gösteren kod olarak bunu denedim

  With ListBox1
    For i = .ListCount - 1 To 0 Step -1
    Debug.Print i, ListBox1.List(i, 0)
      If ListBox1.List(i, 0) <> "" Then
        .ListIndex = i
        Exit For
      End If
    Next i
  End With

http://s3.dosya.tc/server14/m3hexf/listboxta_son_satir_gorme_.rar.html

İşinizi görür mü kontrol edin , zira amacı anlamadığımdan sonucu da anlamadım.

 

[yselimyilmaz]

Sayın Cems;

Şuanda işyerinde olmadığımdan kodlarınızı deneyemiyorum.

Userform iş amacı, bir sayım projesidir.

Çalışma kitabında;
DATA1 sayfasında sayılacak ürünlerin bilgileri mevcuttur.
SAYIM sayfası userform ListBoxdan aktarılan bilgiler ile oluşmaktadır.
Listbox1 ise Userformda "KOD OKUTUNUZ veya GİRİNİZ" karşısına DATA1 A sütunundaki kodlardan girerek oluşuyor.
UserFormda ki SAYFAYA AKTAR ilede SAYIM sayfasına ListBox1 içeriğini aktarıyorum.
Barkod cihazı seri bir şekilde kod okutularak veya el ile kodlar yazılarak proje çalışıyor, ListBox1 de liste oluşuyor. Şuan hatırlayamadığım
belli bir satırdan sonra ListBox1 yanında kaydırma çubuğu çıkıyor. Yeni barkod okuttuğumda ListBox1 e kayıt atıyor ama ben bu satırı göremiyorum. Ancak kaydırma çubuğunu kaydırınca görebiliyorum.
Sonuç olarak;
Seri bir şekilde barkod okuttuğumda en son hangi malzemeyi okutmuşum dediğimde kaydırma çubuğunu kullanmadan görmek istiyorum.

 

[Orion1]

Deneyiniz.

ListBox1.ListIndex = ListBox1.ListCount - 1

 

[yselimyilmaz]

Sayın, Orion1
Vermiş olduğunuz kod istediğimi yapmıştır.

Dosyanın son hali ektedir.

 

[yselimyilmaz]

Arkadaşlar;

Yeni konu açmak istemedim, yaptığım projenin içeriği ile ilgili olduğu için
#5 nolu mesaj ekindeki dosyamın DATA1 sayfası K sütunundaki aşağıdaki formülü userfom CommandButton1_Click() olayı kodlarına dahil etmek istiyorum.

=EĞER(A2<>"";BİRLEŞTİR("Sayım sonucu Sistemde=";" ";EĞER(E2<>"";E2;"0");" ";"Sayılan=";" ";EĞER(G2<>"";G2;"0");EĞER(G2=E2;" * Sayım Doğru";EĞER(I2="FAZLA";BİRLEŞTİR(" * ";H2;" Adet Giriş Yapıldı ");BİRLEŞTİR(" * ";H2;" Adet Çıkış Yapıldı"))));"")