Koşullu Biçimlendirme Kaldırma

[slimshqdy]

Merhaba, koşullu biçimlendirmeyi kuralları temizle, bu sayfadan kuralları temizle diyerek kaldırabiliyorum. Ben tek seferde tüm çalışma kitabındaki koşullu biçimlendirmeleri kaldırmak istiyorum. Tek tek sayfaları atlayıp kaldırmak çok zor oluyor. Bu konuda yardımcı olabilir misiniz?

 

[Ali]

Public Sub bicimlendirme_Sil()
    Dim objSheet As Worksheet
    Dim objRange As Range, objCell As Range
    On Error Resume Next
    For Each objSheet In ActiveWorkbook.Worksheets
        Set objRange = objSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
        If Not objRange Is Nothing Then
            For Each objCell In objRange
                objCell.FormatConditions.Delete
            Next
            Set objRange = Nothing
        End If
    Next
End Sub

dener misiniz.

 

[Ömer]

Merhaba,

Ali Bey sorunuzu yanıtlamış.

Altertnatif olsun.

Sub K_Bicim_Sil()

    Dim i As Integer
    
    For i = 1 To Worksheets.Count
        Sheets(i).Cells.FormatConditions.Delete
    Next i
    
End Sub

.