kayıt silme makrosunda düzeltme

[airborne]

Private Sub CommandButton4_Click()
Dim cevap As Integer
Dim cvp As Integer
On Error GoTo bulunamadi
If TextBox2.Value = "" Then
MsgBox "Kayıt silmek için önce Personelin adını soyadını yazarak 'Per Bul' butonuna tıklayınız", vbInformation, "Emekli Kesenekleri İcmal Programı"
TextBox2.SetFocus
Else
cevap = MsgBox(TextBox2.Text & " Personel kaydı, veritabanından tamamen siliniyor. İşleme devam etmek istiyor musunuz?", vbYesNoCancel + vbCritical, "Emekli Kesenekleri İcmal Programı")
If cevap = vbNo Or cevap = vbCancel Then
Exit Sub
Else
Sheets("Sayfa3").Select
Columns("B:B").Select
Selection.Find(TextBox2.Value, ActiveCell).Activate
ActiveCell.Offset(0, 0).Select
Selection.EntireRow.Select
Selection.Delete Shift:=xlUp
sirala
Sheets("Sayfa3").Select
Range("sil").Select
If ActiveCell <= 0 Then
CommandButton5_Click
Else
CommandButton6_Click
ActiveWorkbook.Save
bulunamadi:
If Err = 91 Then
cvp = MsgBox(TextBox1.Value & " Personel kaydı bulunamadı. Lütfen yazdığınız adı kontrol ediniz.", vbOKOnly + vbInformation, "Emekli Kesenekleri İcmal Programı")
TextBox2.Value = ""
TextBox2.SetFocus
CommandButton6_Click
Else
End If
End If
End If
End If
End Sub

makro ile kayıt siliyorum. fakat başka kaydın silindiği sayfa başka sayfalarla bağlantılı olduğu için BAÞV# hatası veriyor. bende makroda bulanan
Selection.Delete Shift:=xlUp satırının yerine Selection.ClearContents Shift:=xlup la değiştiriyorum fakat ilgili kaydı siymiyor. Yardımlarınız için şimdiden teşekkürler

 

[Levent Menteşoğlu]

Selection.ClearContents Shift:=xlup

Yukarıdaki yerine aşağıdaki gibi deneyin.

Selection.ClearContents

 

[airborne]

sevgili leventm dediğiniz gibi uyguladığımda boşaltılan hücrenin altındaki hücrelerde bulunan verileri yukarıya taşımıyor

 

[Levent Menteşoğlu]

Bu durumda Selection.delete şeklinde kullanmanız doğrudur.