listbox son dolu satırda

[Fuat Şirin]

arkadaşlar listboxı formu her açtığımda son dolu satırda görmek istiyorum nasıl yaparım

 

[veyselemre]

Private Sub UserForm_Activate()
 If ListBox1.ListCount > 0 Then ListBox1.ListIndex = ListBox1.ListCount - 1
 End Sub

 

[Fuat Şirin]

bu kodları girince son satıra lıyor ben son dolu satıra almak istiyorum

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "A1:A65536"
    If ListBox1.ListCount > 0 Then
    For X = ListBox1.ListCount - 1 To 0 Step -1
    If Not IsEmpty(ListBox1.List(X, 0)) Then
    ListBox1.ListIndex = X
    Exit For
    End If
    Next
    End If
End Sub

 

[Fuat Şirin]

hocam çok teşekkür çok güzel oldu

 

[veyselemre]

bu kodları girince son satıra lıyor ben son dolu satıra almak istiyorum

Listbox'ta boş satırda mı oluyor ki son dolu satıra gitsin. Listbox'a rowsource la verileri alırken son dolu satırdan ötesini almayın. Yani

ListBox1.RowSource = "a1:a100"

yazmak yerine form açılırken son dolu satırı bularak

ListBox1.RowSource = "a1:a" & [a65536].End(3).Row

gibi tanımlayın. Böylece çalışmanız daha sağlıklı olur.

 

[andrapa]

Teşekkürler işime yaradı