Dolgu rengi değiştirme

[bolubeyi_07]

Merhaba,

Aşağıdaki kodda bulunan dolgu silme işlemini tüm çalışma kitabına uygulamak istiyorum.Nasıl yapabilirim. Yardım edebilir misiniz?

Sub BulListele_Click()

Dim c As Range, Adr As Variant, sat As Long, sonhcr As Range
Dim i As Integer, adres As String
Sheets("ANASAYFA").Select
Range ("d:y").Interior.ColorIndex = x1None
If Range("P10") = "" Then MsgBox "Aranacak Değeri Girin": Exit Sub

sat = 13: Range("P" & sat, "P" & Rows.Count).ClearContents
For i = 1 To Worksheets.Count
If Not Sheets(i).Name = "ANASAYFA" Then
With Sheets(i).Cells
Set sonhcr = .Cells(.Rows.Count)
Set c = .Find(Range("P10"), LookAt:=xlPart)
If Not c Is Nothing Then
Adr = c.Address
Do
c.Interior.ColorIndex = 3
adres = Sheets(i).Name & "!" & c.Address
ActiveSheet.Hyperlinks.Add Cells(sat, "P"), "", adres, adres
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> Adr
End If
End With
End If
Next i

Set sonhcr = Nothing: Set c = Nothing


End Sub

 

[Hakngnc]

Anasayfa sheeti yerine herbir sayfada d:y sutunlarına mı dolgu silme işlemi istiyorsunuz ?

 

[bolubeyi_07]

Öncelikle Teşekkür,
Evet anasayfa hariç çalışma kitabı içerisinde bulunan bütün sayfalara ve istenen hücrelere uygulamak istiyorum. Dolgu silme işlemini.

 

[bolubeyi_07]

Arkadaşlar bu konu hakkında bilgisi olan yok mu?