listbox son satırda

[Fuat Şirin]

arkadaşlar hazırladığım userform da
textboxtan , comboboxtan verileri giriyorum
sayfaya ordanda list boxa aktarıyor bunda problem yok
ama ben giriş yaptığımda(yaklaşık 3000 deyim)
her giriş yaptığımda ilk satıra dönüyor
listboxta yani
kaydırma çubuğunu nerde tutuyorsam orda kalsa
acaba bu sorunuma biçözüm var mı
yani son girdiğim verileri görebiliyim.
yardımlarınızı bekliyorum

 

[Fuat Şirin]

arkadaşlar bi yardım

arkadaşlar kod u bilen arkadaşımız varsa
ekleyebilir mi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

ListBox1.ListIndex = ListBox1.ListCount - 1

 

[Fuat Şirin]

sorum yanlış anlaşıldı galiba

hocam verdiğiniz kodu girdim
listboxtaki en son kayıta alıyor
en girdiğim en son kayıta yada
kaydırma çubuğu benim istediğim yerde
kalsın istiyorum
bununla ilgili yardımcı olursanız sevinirim

 

[Fuat Şirin]

yardım lütfen

arkadaşlar bu konuda bi yardımcı olursak sevinirim
girilen son veride kalması
listbox ın:yardim:

 

[Levent Menteşoğlu]

Verileri listboxa aktardığınız kodları yazarmısınız.

 

[Fuat Şirin]

hocam dosya ekte bi incelerseniz hem

bir incelerseniz dosyamı hem daha güzel olur bu benim ilk userformum

 

[Levent Menteşoğlu]

Birde şifresiz ekleseydiniz çok iyi olurdu.

 

[Levent Menteşoğlu]

Commandbutton5 teki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub CommandButton5_Click()
[B][COLOR=blue]deg = ListBox4.ListIndex[/COLOR][/B]
Dim i As Integer
For i = 8 To 32000
    If (Sayfa3.Cells(i, 1) = "") Then
        Sayfa3.Cells(i, 1) = TextBox6.Text
        Sayfa3.Cells(i, 2) = TextBox7.Text
        Sayfa3.Cells(i, 3) = ComboBox3.Text
        Sayfa3.Cells(i, 4) = TextBox8.Text
        Sayfa3.Cells(i, 5) = TextBox9.Text
        Sayfa3.Cells(i, 6) = TextBox10.Text
        Sayfa3.Cells(i, 7) = TextBox11.Text
        Sayfa3.Cells(i, 8) = ComboBox4.Text
        MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
        CommandButton6_Click
        [COLOR=blue][B]ListBox4.ListIndex = deg[/B][/COLOR]
        Exit Sub
    End If
Next i
End Sub

 

[Fuat Şirin]

tşk

hocam kodlarda bi problem yok dime
bide bu biçimi diğerlerine de uyarladığımda sorun kalmıyor herhalde

 

[Levent Menteşoğlu]

Yukarıdaki koddaki mavi renkli satırları eklemeniz yeterlidir.