Satır silme makrosundaki hata

[ynmcan]

Merhaba arkadaşlar ;
Hazırlamakta olduğum bir prsonel takip programında kayıtlı satırı sildiğim makroda yaşadığım sorunu bir türlü çözemedim. Yardımcı olursanız sevinirim.
aşağıda görülen kod ile combobox5' te seçtiğim isme ait satırı siliyorum. birinci satır ile son satıra kadar sorun yok seçtiğim bu satırlar sorunsuz siliniyor. Ancak combobox5' te en son satırda bulunan ismi seçip sidiğimde silinen satırlar karışıyor.

Private Sub UserForm_Initialize()
ComboBox5.RowSource = "BİLGİLER!B2:B" & Sheets("BİLGİLER").Range("B65536").End(xlUp).Row
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 15
sat = UserForm1.ComboBox5.ListIndex + 2
Sheets("BİLGİLER").Cells(sat, i).Delete
Next i
End Sub

Örnek dosya ekte

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz?

Private Sub CommandButton2_Click()
    Sheets("BİLGİLER").Rows(UserForm1.ComboBox5.ListIndex + 2).Delete
    ComboBox5.RowSource = "BİLGİLER!B2:B" & Sheets("BİLGİLER").Range("B65536").End(xlUp).Row
End Sub

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin:

Private Sub CommandButton2_Click()
Sat = UserForm1.ComboBox5.ListIndex + 2
Sheets("BİLGİLER").Rows(Sat).Delete shift:=xlUp
UserForm_Initialize
End Sub

 

[ynmcan]

Syn. Necdet Yeşertener ve Leumruk; İki kod da sorunsuz çalışıyor. Her ikinize de ilginizden ve yardımlarınızdan dolayı teşekkür ederim.