listbox en son satırdaki bilgiyi görmüyor!

[elvis]

arkadaşlar başlıkta da belirttiğim üzere ekteki dosyama veri kaydediyorken listboxtan seçim yapıp siliyorum. ancak listboxta en son veriyi işaretleyip silme işlemi yaptığımda veriyi görmediğinden (listeden veriyi bulmuyor) silme işlemi yapamıyorum. dosyam ektedir
yardımcı olmak isteyen arkadaşlara
şimdiden teşekkür ediyorum

 

[Levent Menteşoğlu]

Öncelikle userform_initialize olayındaki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
Sheets("Sayfa3").Select
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "0;150;0;0;80;80"
ListBox1.RowSource = "a2:H" & [b65536].End(3).Row
ListBox1.ForeColor = &H800000
ListBox1.BorderColor = &H80FFFF
End Sub

Listboxtaki koduda aşağıdaki ile değiştirin.

Private Sub ListBox1_Click()
Sheets("Sayfa3").Select
Cells(ListBox1.ListIndex + 2, "a").Select
End Sub

 

[elvis]

çok teşekkürler

levent bey harikasınız!
sorun çözüldü
hem kodlarda kısalmış oldu
iyi çalışmalar