satır silme yerine hücrelerin içeriğini silme

[airborne]

aşağıdaki kodlarla ilgili kayda ait bilgileri siliyorum. ama başka sayfalarla bağlantılı olduğu için #BAÞV! hatası veriyor. nedeni satırın tamamen silinmesinden kaynaklanıyor bunun yerine aşağıdaki sil kodunun hücrelerin içeriğini boşalması gerekiyor. yardımlarınız için şimdiden teşekkürler. sil kodu aşağıdaki gibidir

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 & " Demirbaş Sıra Numaralı kayıt bulunamadı. Lütfen yazdığınız adı kontrol ediniz.", vbOKOnly + vbInformation, "Demirbaş Takip Programı")
TextBox2.Value = ""
TextBox2.SetFocus
CommandButton6_Click
Else
End If
End If
End If
End If
End Sub

 

[airborne]

forumdaşlar yıl sonu gelmesi nedeniyle bu konunun acilen çözümlenmesi gerekiyor

 

[Kemal Demir]

Selection.ClearContents:İlgili Satırın İçeriğini Temizlemek İçin Kullanılır.

 

[Merhum İdris SERDAR]

Selection.Delete

Yerine

Selection.Clear kullanırsanız olur belki.

 

[airborne]

önerilerini uyguladım. oluyor ama silinen satırın alttati satırları üste nasıl taşıtabiliriz. Yani veriler arasında boş satır olmayacak şekilde

 

[airborne]

bu konu çok önemli. lütfen yardıcı olurmusunuz

 

[airborne]

bu konu ile ilgili halen çözüm bulamadım yardımcı olursanız sevinirim

 

[mehmett]

Aşağıdaki kod tüm satırı seçer, onun yerine sileceğiniz hücreleri seçen bir kod yazın.

Selection.EntireRow.Select

 

[mehmett]

Aşağdaki kodları deneyin.

Hücre içeriğini boşaltmak için

Selection.ClearContents

Seçilen hücrelerin silinmesi ve o hücrelerin altındaki hücrelerin yukarı kaydırılması için;

Selection.Delete Shift:=xlUp

Seçilen hürenin bulunduğu satırın tamamen silinmesi ve altında satırların yukarı kayması için;

Selection.EntireRow.Delete