Listboxtaki scrollbar'ı her açılışında en sonra başlatma

[serif_007]

Merhabalar;

Ekteki resimdeki gibi bir listbox'ım var listboxta veri arttıkça scrollbar'ı sürekli aşağıya çekmek gerekiyor. Scrollbar'ı listbox açıldığında en sonda başlatabilir miyiz ?

 

[ÖmerFaruk]

Private Sub UserForm_Initialize()
   For i = 1 To 50
      Me.ListBox1.AddItem "Ali " & i
   Next i
   ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

Örnektir.

 

[serif_007]

Private Sub UserForm_Initialize()
   For i = 1 To 50
      Me.ListBox1.AddItem "Ali " & i
   Next i
   ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

Örnektir.

Ömer bey merhabalar.Öncelikle cevabınız için teşekkür ederim. Verdiğiniz kodlar ile sadece ilk 50 satırı listeleyebiliyorum. Benim yapmak istediğim scrollbar'ın textbox her açıldığında en son satırı göstermesi. Bu şekilde yapabilmemiz mümkün müdür?

 

[Korhan Ayhan]

Şu satırı kullanmanız yeterli olacaktır.

ListBox1.ListIndex = ListBox1.ListCount - 1

Bu kod satırını Private Sub UserForm_Initialize() bölümünde End Sub satırından öncesine eklemeniz yeterli olacaktır.

 

[serif_007]

Şu satırı kullanmanız yeterli olacaktır.

ListBox1.ListIndex = ListBox1.ListCount - 1

Bu kod satırını Private Sub UserForm_Initialize() bölümünde End Sub satırından öncesine eklemeniz yeterli olacaktır.

Korhan bey çok teşekkür ederim