Sayfanın tamamında. Bul ve Sil makrosu.

[Bora K]

Merhabalar iyi geceler.

Sarı zeminli hücreye (D2) girdiğim yazı, rakam, işaret vb
hangi değer olursa olsun.
sayfanın tamamında aranacak ve kaç tane bulunur ise
hepsi silinecek.

Bu şekilde bir kod ihtiyacı hasıl oldu. Lakin arama yapmama rağmen
bulamadım. Müsait zamanında ilgilenecek arkadaşlara şimdiden teşekkür
ederim. Saygılarımla.

 

[apocalyt]

ctrl+h tuşlarını kullanarak "aranan değer" kısmına silmek istediğiniz her ne ise onu yazın.."yeni değer" kısmınıda boş bırakın..ve tümünü değiştir diyin..sanırım işinizi görecektir..

 

[Murat OSMA]

Bu tür basit işlemler için sitedeki Kod Bankası uygulamalarını kullanabilir ve istediğinize çok daha hızlı ulaşabilirsiniz.

 

[Bora K]

Alakanız için teşekkür ederm. Excelin bu özelliğinin farkındayım.
Lakin sürekli kullanacağım bir kod olsun istiyorum. Uzun vadede
kodun artısı olacağı aşikar. İyi geceler.

 

[Murat OSMA]

Deneyin Bora Bey,

Sub Bul_Sil()
    Dim Rky As Range
    Dim hucre As Variant
    Set Rky = Cells.Find(Range("D2").Value, , , 1)
    If Not Rky Is Nothing Then
        hucre = Rky.Address
        Do
        Set Rky = Cells.FindNext(Rky)
            Rky.ClearContents
        Loop While Not Rky Is Nothing And Rky.Address <> hucre
    End If
End Sub

 

[Bora K]

Çok teşekkür ederim Murat bey.
Ellerinize sağlık. Dert görmesinler inşallah.

 

[Murat OSMA]

Rica ederim Bora Bey, hayırlı geceler.