Koşullu biçimlendirme makrosu

[achil19]

Merhabalar
Ekteki dosyada makro ile "DİNAMİK MAĞAZA KATSAYISI" sütununu büyükten küçüğe sıralamak istiyorum
"Genel Toplam" Satırı mutlaka en altta olmalıdır.
"Ortalamaya Göre Durum" kolonu Her bölgenin Genel toplama göre olan % farkını göstermektedir.
"Dinamik mağaza katsayısı" kolonu kendi içinde koşullu biçimlendirme yapılmıştır.
"Ortalamaya Göre Durum" kolonu kendi içinde koşullu biçimlendirme yapılmıştır.
Şimdiden çok teşekkür ederim
Örnek dosya aşağıdaki linktedir, yapmak istediğim şekli de "olması gereken" sayfasındaki gibidir

https://drive.google.com/file/d/1yHAkgLUkXpUtCmrsom2GxtCpHTqdcIFB/view?usp=sharing

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodları deneyiniz.

Sub kod()
Cells.FormatConditions.Delete
son = Cells(Rows.Count, 1).End(3).Row
Range("A2:B" & son - 1).Sort Range("B2"), xlDescending
With Range("C2:C" & son)
    .Formula = "=B2/$B$" & son & "-1"
    .NumberFormat = "0.0%"
    .FormatConditions.AddColorScale ColorScaleType:=3
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    With .FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
    .FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
    .FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    .FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
End With

With Range("B2:B" & son)
    .FormatConditions.AddColorScale ColorScaleType:=3
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    .FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
    With .FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
    .FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
    .FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    .FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
    With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
End With
End Sub

İyi çalışmalar...

 

[achil19]

Çok teşekkür ederim Ömer Bey. Tam yapmak istediğim gibi olmuş

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...