istenilen sayfadan sil

[taşağıl]

merhaba
isimlerden ve bir çok sayfadan oluşan bir excel kitabında bir ismi silmek istediğimiz zaman o ismin hangi sayfadan silineceğini bize sorup sadece o sayfadan silen bir makro proğramına ihtiyacım var. ekte ayrıntılı belirttim.yardımlarınız için teşekkürler.
Eklenmiş Dosyalar

 

[nsertoglu]

Aşağıdaki kodu uygulayın bakalım işinize yarayacak mı ?

Sub syf_bul_isism_sil()
shG = "genel"
b_sy = Sheets(shG).Cells(1, "e") ' bulunacak sayfa adı genel sayfasının E1 inde yazılsın
b_is = Sheets(shG).Cells(2, "e") ' silinecek isim genel sayfasının E2 sinde yazılsın

Set bul = Sheets(b_sy).Cells.Find(b_is)
If Not bul Is Nothing Then
Application.Goto Sheets(b_sy).Range(bul.Address)
aKK = ActiveCell.Address
' silinecek ismi taşıyan hücre bulundu
' hücre / row / kolon silmek de sana kaldı
End If

End Sub

 

[taşağıl]

iyi günler
yukarıda ki proğram hata veriyor.ben silme makrosunu yazdım sadece istediğim sayfayı seçip ordan silme işlemini gerçekleştiremiyorum. yardımlarınızı bekliyorum teşekkürler.