kayıt sil ile diğer sayfalardaki kayıtların silinmesi

[airborne]

Sayfa1 de a5 te bulunan a kaydının başka sayfalarda bulunan mesela sayfa2 deki a5 teki kaydının bulunduğu satırları nasıl sileriz ve her iki sayfadada boş hücrenin altındaki kayıtları yukarıya öteletiriz

 

[airborne]

bu konuda yarımcı olurmusunuz :yardim:

 

[YAKAKENTİM]

Sub Düğme1_Tıklat()
Sheets("Sayfa1").Range("a5").ClearContents
Sheets("Sayfa2").Range("a5").ClearContents
Sheets("Sayfa1").Select
End Sub

 

[airborne]

yakakentim ilgin için teşekkürler ama kayıt bul ile a verisi kaydı bulunduktan sonra çalışma kitabında bulunan bütün sayfalardaki a verisi silinecek :kafa:

 

[YAKAKENTİM]

örnek dosya gönderebilirsen birşeyler yapabilirim galiba
elimde bu konu hakkında yeterince ko var uydurmaya çalışırım

 

[Ali]

Sub adegerinisil()
Dim i As Integer
For i = 1 To Sheets.Count
Worksheets(i).Cells.Cells.Replace What:="a", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next i
End Sub