Formülü hücreleri renklendirme/kaldırma

[levo26]

Merhabalar;
Aşağıdaki kod ile hücreleri renklendiriyor, diğeri ile formüllüyse kaldırıyorum. Formülü değer yaptığımda da belirlenen rengi kaldırmak istiyorum. 2. kodda ne gibi revizyon yapmam gerekli.

Sub formulleri_renklendir()
On Error Resume Next 'burası formül yoksa işlemi sonuçlandırıyor
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = 4
End Sub

AŞAĞIDAKİ KOD SORUNLU----
Sub formüllerdeki_rengikaldır()
On Error Resume Next 'burası formül yoksa hatayı engelliyor
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.Color = xlNone
End Sub

 

[muygun]

Merhaba;
Kaldırmak için;

Sub formulleri_kaldır()
On Error Resume Next 'burası formül yoksa işlemi sonuçlandırıyor
Cells.SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = xlNone
End Sub

Şeklinde kod uygulayın.
İyi çalışmalar.

 

[levo26]

Sayın muygun;
Yanıtınız için teşekkürler ancak istediğim bu değil.

Çalışma sayfasında nerede (4 kodlu) renk varsa kaldırsın.

Not: Çalışmamda kontrol amaçlı formüllü hücreleri renklendiriyorum. Düzeltme yaptığım yerlerde formülleri değer yapıyorum. 2. makroyu çalıştırdığımda benim değer yaptığım renkler kalıyor. Bunları da renksiz yapmak istiyorum.

 

[muygun]

Merhaba;
Doğru anladım mı bilemiyorum ama sayfanın kod bölümüne;

Sub formüllü_hücreleri_renklendir()
Application.ScreenUpdating = False
On Error Resume Next
Dim ws As Worksheet
Dim rng As Range
Set ws = ActiveSheet
For Each rng In ws.Cells.SpecialCells(xlCellTypeFormulas)
rng.Interior.ColorIndex = 4
Next rng
Application.ScreenUpdating = True
End Sub

Sub tüm_renkleri_kaldır()
Application.ScreenUpdating = False
On Error Resume Next
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Sub belirli_renk_kaldır()
On Error Resume Next
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = 4 Then
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub

Bu üç makroyu yerleştirin ve ayrı butonlara bağlayarak deneyin.
İyi çalışmalar.