Sayfadaki tüm koşullu biçimlendirmeler silinsin

[kelkitli]

Değerli Dostlar Selamlar,
Sayfadaki tüm koşullu biçimlendirmeler silinsin istiyorum.
Nasıl bir kod işimi görür.

 

[Ali]

Sub bicimlendirmesil()
    Cells.Select
    ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
    Selection.FormatConditions.Delete
End Sub

deneyiniz.

 

[kelkitli]

Sayın Ali Merhabalar,
Cevabınız için teşekkürler. Sayfada eğer koşullu biçimlendirme yoksa hata veriyor, Hata vermemesi için ne yapmalı.

 

[Ali]

Sayın Ali Merhabalar,
Cevabınız için teşekkürler. Sayfada eğer koşullu biçimlendirme yoksa hata veriyor, Hata vermemesi için ne yapmalı.

On Error Resume Next satırını ekleyin.

Sub bicimlendirmesil()
On Error Resume Next
Cells.Select
ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Delete
End Sub

 

[kelkitli]

Teşekkür ederim Sayın Ali,
İşlem tamam.

 

[Seyit Tiken]

Gerçi Ali bey soruyu yanıtlamış. Biraz kırpılmış hali.

Sub Düğme1_Tıklat()
On Error Resume Next
Cells.SpecialCells(14).Delete
End Sub

 

[kelkitli]

Sayın Seyit TİKEN Merhabalar,
cevabınız makbuldür teşekkür ederim.
Ancak ben sadece koşullu biçimlendirmeleri silsin istedim. Bu kod ne var ne yok siliyor. Diğer arkadaşlar cevapladılarda zaten. Hepiniz sağolun.

 

[Seyit Tiken]

Benim yaptığım sadece aynı mantıktaki kodu kısaltmaktı. Kodu defalarca denememe rağmen sadece KOŞULLU BİÇİMLENDİMME'yi siliyor. Bütün verileri silip süpürmüyor. Bu şekilde deneyebilirsiniz.

Sub Düğme1_Tıklat()
On Error Resume Next
Cells.SpecialCells(14).Clear
End Sub

 

[kelkitli]

Sayın Seyit TİKEN merhaba,
Sanıyorum bir anlatım yada konunun anlaşılmasıyla ilgili bir hata.
Sayın Ali'nin ilk yazdığı kodu şu şekil kullanıyorum.

Sub bicimlendirmesil()
On Error Resume Next
Cells.Select
ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
Selection.FormatConditions.Delete
[A1].Select
End Sub

Sonuçta şu farkı gözlemledim. Sizin yazdığınız kod sayfanın tamamını değil sadece koşullu biçimlendilmiş kısmındaki hem veriyi hem de koşullu biçimlendirmeyi siliyor. Sanıyorum bu yoruma benim atmış olduğum başlıktan ulaşmış olmalısınız. Ben se şunu söylemek istedim. Veri dursun koşullu biçimlendirme kaldırılsın. Ve yukarıdaki kod bu işi yapıyor onu aktarmaya çalıştım.

 

[Seyit Tiken]

Sorunuz şimdi net bir şekilde anlaşıldı.
Ali beyin kodlarıda Biçimlendirmelerle beraber verileride siliyor. Aşağıdaki kod istenileni gerçekleştiriyor.

Sub Makro2()
Cells.FormatConditions.Delete
End Sub

 

[kelkitli]

Şimdi tamam.
Teşekkür ederim Sayın Seyit TİKEN.
Selamlar, Saygılar, Başarılar dilerim.