Secili Alandaki Tum Kosullu Bicimlendirme Silmek

Bazen doslarimizda inanilmaz derecede yavaslama olur bunun nedeni bir cok sey olabilir tabiki fakat bir taneside ornegimizdeki gibi dosyamizda bir cok kosullu bicimlendirme bulunmasi olabilir..

Bu tarz bir durumda her kosullu bicimlendirmeyi tek tek acip silmeye kalkarsak bubelki bir gun surebilir belki bir gundede birmeyebilir.. Iste boyle bir sorunla karsilasip basit bir sekilde VBA ile cozup cozemiyecegimi dusunurken, hazir cildirmis vaziyetteyim denemekte yarar var diyerek, VB editorunu actim..

Ve inanilmaz basit bir sekilde ve hizli bir sekilde cozume ulastim iste o kodlarimiz;


Public Sub Secili_Alanda_Kosullu_Format_Sil()

    If ActiveWorkbook Is Nothing Then

        MsgBox "Once dosyayi acmalisiniz!", vbInformation, "Acik Kitap Yok"

        Exit Sub
End If
If MsgBox("Secili Bolumdeki Tum Kosullu Formatlari Silmek mi Istiyorsunuz?", _
vbYesNo, "Kosullari Sil") = vbNo Then Exit Sub

Selection.FormatConditions.Delete

End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Secili Alandaki Tum Kosullu Bicimlendirme Silmek” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 6 =