Sil makrosu için yardım.

[cemsultan]

Mrb arkadaşlar,
ben sayfa4'e kaydettiğim verileri listbox1'de tıkladığımda ilgili textboxlarda görebiliyorum.
istediğim şey şu; sil tıkladığımda textbox1de seçtiğim satırı bulsun ve satırı tamamen silsin. aşağıdaki kodla satırı silebiliyorum. Sildiğim satır ortada bir satırsa aşağıdaki satırları yukarıya çekmiyor, sildiğim satır boş kalıyor. yardım edebilirseniz sevinirim. teşekkürler

 

[cemsultan]

Private Sub CommandButton4_Click()
Dim bul As Range
If TextBox1.Text = "" Then
MsgBox "ÖNCE ARIZA SEÇİNİZ.", , "EXCEL.WEB"
Exit Sub
End If
For Each bul In Sayfa4.Range("b5000:b" & Range("b65536").End(3).Row)
If bul.Value = TextBox1.Value And bul.Offset(0, 1) = TextBox2.Value Then
bul.EntireRow.Clear
For i = 3 To Range("a65536").End(3).Row
Cells(i, 1).Value = i - 2
Next i
Else
End If
Next bul
UserForm_Initialize
End Sub

 

[cemsultan]

clear yerine delete yazdığımda istediğim gibi silme işlemi yapıyorum. fakat bu kezde en sondaki satırı silersem program kilitleniyor.