Belli kelimelerin olduğu hücreleri temizlemek

[bthn35]

Merhaba,
Aşağıdaki linkteki excel'de bulunan kelimelerin bulunda hücreleri temizlemek istiyorum, yani hücre silinmeyecek sadece bomboş olacak içeriği.
Bulunacak kelimeler:
(pbx=
(guid;bin=

http://s7.dosya.tc/server12/csefk8/hucre_temizle.xlsx.html

 

[Asri]

Aşağıdaki kod, ilk önce karakterleri bulduğunda bir hücre sola kaydırır. (Öyle olması gerektiğini düşündüm)
Daha sonra aynı hücrede ve iki sağında arana karakterler var ise hücreleri temizler.

Sub temizle_kaydir()
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   For i = 1 To sonsatir
     If InStr(Cells(i, "B").Value, "(pbx=") > 0 Or InStr(Cells(i, "B").Value, "(guid;bin=") > 0 Then
        Range("B" & i).Delete Shift:=xlToLeft
        If InStr(Cells(i, "B").Value, "(pbx=") > 0 Or InStr(Cells(i, "B").Value, "(guid;bin=") > 0 Then
          Range("B" & i).Clear
        End If
        If InStr(Cells(i, "C").Value, "(pbx=") > 0 Or InStr(Cells(i, "C").Value, "(guid;bin=") > 0 Then
          Range("C" & i).Clear
        End If
        If InStr(Cells(i, "D").Value, "(pbx=") > 0 Or InStr(Cells(i, "D").Value, "(guid;bin=") > 0 Then
          Range("D" & i).Clear
        End If
     End If
   Next i
End Sub

 

[Ömer BARAN]

Aşağıdaki linkteki excel'de bulunan kelimelerin bulunda hücreleri temizlemek istiyorum, yani hücre silinmeyecek sadece bomboş olacak içeriği.
Bulunacak kelimeler:
(pbx=
(guid;bin=

Merhaba.

-- Belgeniz açıkken alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın,
-- İmlecin, yapıştırdığınız kod blokunun başlık satırında (Sub temizlik) olmasını sağlayın ve F5 düğmesine tıklayın.
Hücre içeriğinde, aranan metinsel ifadelerden herhangi biri varsa, hücre içeriği tamamen temizlenir.

Sub temizlik()
For Each hcr In ActiveSheet.UsedRange
    If Len(hcr.Value) <> Len(Replace(hcr.Value, "(pbx=", "")) Or _
        Len(hcr.Value) <> Len(Replace(hcr.Value, "(guid;bin=", "")) Then
            hcr.Value = "": say = say + 1: End If: Next
MsgBox say & " adet hücre içeriği temizlendi!", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[bthn35]

Cok tesekkur ederim, oldu