Listboxta son kayıt

[pointlesbj]

Merhaba arkadaşlar,

Form açıldığında, Listboxta listelenen bilgilerden "B" sütunundaki en son kayıdı seçmesini nasıl sağlarım?

Yardım için teşekkürler..

 

[halilyor]

İlgili yere ekleyin.

ListBox1.Selected(ListBox1.ListCount - 1) = True

 

[pointlesbj]

Yanıt için teşekkürler

Kodu uyguladım yalnız enson boş satırı seçiyor , kullandığım kodlar şöyle,


Private Sub UserForm_Initialize()
Sheets("KAYIT").Select

ListBox1.ColumnCount = 5
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "50;1;1;140;1"
ListBox1.RowSource = "b1:ab1750"

ListBox1.Selected(ListBox1.ListCount - 1) = True

End Sub

 

[Erdem Akdemir]

merhaba,

rowsource satırını aşağıdaki gibi değiştirin.

Sayfa1 yerine kendi sayfa isminizi yazabilirsiniz.

ListBox1.RowSource = "b1:ab" & Sayfa1.Cells(Rows.Count, "a").End(3).Row

 

[pointlesbj]

Teşekkür ederim kodlar çalıştı..