Çözüldü Sayfalarda Aranan Değeri Silme,

[gicimi]

Merhaba;

Bir çalışma kitabının Sayfa1 - A1 Hücresine yazılan kelimeyi B1 sayfasında belirtilen Sayfalarda arama yapıp bulması durumunda sildirmek istiyorum. Örnek dosya ektedir. Yardımcı olabilir misiniz.

 

[turist]

Deneyin

Option Explicit
Option Compare Text
Sub BulSil()
Dim Cel As Range, Range As Range
Dim aranan As String
Dim s1 As String
s1 = Sheets("Sayfa1").[B1].Text
Set Range = Sheets(s1).UsedRange
aranan = Sheets("Sayfa1").[A1].Text
Application.ScreenUpdating = False
For Each Cel In Range
If Cel Like "*" & aranan & "*" Then
Cel = Replace(Cel, aranan, "")
Cel = Replace(Cel, " ", " ")
End If
Next Cel
Sheets("Sayfa1").[A1] = aranan
Application.ScreenUpdating = True
End Sub

 

[gicimi]

Sn. @turist
Teşekkür ederim. Elinize sağlık Kolaylıklar.

 

[turist]

Sağolun.