Listboxa son kayıtları listeleme

[calecale]

Herkese merhaba.Buradan edindiğim bir kodda yardımlarınıza ihtiyacım var. Listbox a verileri listelerken A1 hücresinden başlıyor.Benim istediğim son 10 kayıttan itibaren listelemeye başlasın.Kaydırma çubuğu ile istenirse ilk kayda gidilebilsin.
Kullandığım kod şu şekilde


Private Sub UserForm_Initialize()
Sheets("GELİRLER").Select

With GELİR.ListBox1
.BackColor = vbGreen
.ColumnCount = 8
.ColumnWidths = "20;55;55;55;85;40;95;140"
.ForeColor = vbBlack
If Sheets("GELİRLER").Range("A2") = Empty Then
.RowSource = Empty
Else
.RowSource = "GELİRLER!A1:H" & [GELİRLER!A1048576].End(3).Row
End If
End With
End Sub

Herkese teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

.RowSource satırını şu şekilde değiştirin.

son = Sheets("GELİRLER").Cells(Rows.Count, "A").End(3).Row
.RowSource = "GELİRLER!A" & son - 10 & ":H" & son

. . .

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim ilksat As Long
Sheets("GELİRLER").Select

With GELİR.ListBox1
.BackColor = vbGreen
.ColumnCount = 8
.ColumnWidths = "20;55;55;55;85;40;95;140"
.ForeColor = vbBlack
If Sheets("GELİRLER").Range("A2") = Empty Then
.RowSource = Empty
Else
On Error Resume Next
ilksat = [GELİRLER!A1048576].End(3).Row - 10
.RowSource = "GELİRLER!A" & ilksat & ":H" & [GELİRLER!A1048576].End(3).Row
End If
End With
End Sub

 

[calecale]

Sn. Emir Hüseyin bey yardımız için teşekkür ederim kodu dediğiniz gibi çalıştırdım.Çalışıyor. Ama ben kendimi eksik ifade etmişim sonradan fark ettim.İlk satırdan itibaren listelensin fakat son on kayıt ilk etapta görüntülensin kaydırma çubuğu ile ilk kayıtları da görebilelim.Ben de mantığımı yürüterek yapmaya çalışacağım umarım başarırım. Yardımlarınız için tekrar teşekkürler.

 

[calecale]

Sn Emir Hüseyin bey ve sn Orion1 yardımlarınız için teşekkürler. Aradığım cevabı şu yöntemle çözüme kavuşturdum.
.RowSource = "GELİRLER!A1:H" & [GELİRLER!A10000].End(3).Row
ListBox1.ListIndex = [GELİRLER!A1048576].End(3).Row -1
Sizlere kendimi eksik ifade ettiğim için özür dilerim. Eminim ki sizler benden daha iyisini yapıyorsunuz.Ben sizler sayesinde öğrenmeye çalışıyorum emeğiniz çok büyük. Tekrar teşekkürler.