listboxta kaçıncı satırı

[musculus]

Listboxta kaçıncı satırı tıkladığımızı öğrenebilirmiyiz
birde listboxta istediğimiz bir satırın işaretlenmesini sağlıyabilirmiyiz

yani listboxta tıkladığım satırın kaçıncı satır olduğunu öğreneceğim
ayrıca 100 satırlık bir listboxum varsa tıklama yapmadan 24.satırı gösterebilirmiyim

 

[hamitcan]

Private Sub ListBox1_Click()
    MsgBox ListBox1.ListIndex + 1 & " nolu satırı tıkladınız"
End Sub

Private Sub TextBox1_Change()
    If TextBox1 = "" Then Exit Sub
    ListBox1.Selected(TextBox1.Value - 1) = True
End Sub


Private Sub UserForm_Initialize()
    ListBox1.RowSource = [A1:A50].Address
End Sub

 

[musculus]

Çok teşekkür ederim mükemmel çözüm için...