Listbox da enson girilen verinin görüntülenmesi

[BULENT ELMAS]

Merhaba sevgili form üyeleri,
Hazırlamış olduğum bir user formum var ve ürerinde bir listbox.
Textboxdan girdiğim veriler listboxa yazılıyor.Burda sorunum yok
fakat listbox doldukça kaymasını istiyorum.Yukarı doğru.Yani en son girdiğim verinin görünmesini istiyorum.
Yardımcı olursanız sevinirim.

 

[zafer]

Merhaba

Kayıt kodlarının en sonuna yerleştiriniz

Listbox' A sütununa göre veri alıyor.

say = Cells(65536, 1).End(xlUp).Row
ListBox1.RowSource = "sayfa1!A1:A" & say
aaa = ListBox1.ListCount
ListBox1.ListIndex = aaa - 1

 

[BULENT ELMAS]

ListBox2.List = MyArray

daha öncesinde böyle komutum oldğu için burada hata veriyor ne yapabilirim
Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Zoom = Int(.Width / Me.Width * 100)
Width = .Width
Height = .Height
End With

Dim sh As Worksheet
Dim kolon
Dim MyArray(6000, 2)
ListBox1.ColumnCount = 2 'Listbox'un Kolon sayısı
ListBox1.ColumnWidths = "80;260" 'Listbox'un Kolon genişlikleri
For k = 1 To 2
If k = 1 Then
Set sh = Worksheets("Sayfa3")
kolon = 1
Else
Set sh = Worksheets("Sayfa3")
kolon = 2
End If
For i = 1 To 6000
MyArray(i - 1, k - 1) = sh.Cells(i, kolon)
Next i
Next k
ListBox1.List = MyArray

ListBox2.ColumnCount = 2 'Listbox'un Kolon sayısı
ListBox2.ColumnWidths = "80;260" 'Listbox'un Kolon genişlikleri
For k = 1 To 2
If k = 1 Then
Set sh = Worksheets("Sayfa1")
kolon = 2
Else
Set sh = Worksheets("Sayfa3")
kolon = 3
End If
For i = 1 To 6000
MyArray(i - 1, k - 1) = sh.Cells(i, kolon)
Next i
Next k
ListBox2.List = MyArray
End Sub