Koşullu Biçimlendirme

[merakli_72]

Arkadaşlar Selam,
Ekteki örnek tabloda;
D sutunu %100 üstü ise B:E arası farklı zemin renginde
H sutunu %100 üstü ise F:I arası farklı zemin renginde
L sutunu %100 üstü ise J:M arası farklı zemin renginde
P sutunu %100 üstü ise O:R arası farklı zemin renginde
T sutunu %100 üstü ise R:U arası farklı zemin renginde
(Böyle gider)
olsun istiyorum koşullu biçimlendirme ile,
bu tek bir koşullu biçimlendirme ile olabilir mi yoksa B:E arası için yapıp bunun diğer aralıklara biçim boyacısı ile kopyalanması mı gerekir

 

[Korhan Ayhan]

Merhaba,

Verdiğiniz hücre aralıklarına göre tek tek koşullu biçimlendirme yapmak daha uygun görünüyor.

Formüllerle alanı tanımlamaya çalıştım. Fakat kurguyu oluşturamadım.

Bu sebeple makrolu çözüm öneriyorum.

 

[merakli_72]

Teşekkür ederim Korhan Bey

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Sub Renklendir()
    Dim Satir_A As Long, Satir_B As Long, Sutun As Integer, X As Integer, Y As Long
    
    Application.ScreenUpdating = False
    
    Satir_A = 2
    Satir_B = Cells(Rows.Count, 1).End(3).Row - 1
    Sutun = Cells(1, Columns.Count).End(1).Column
    
    Range(Cells(2, 2), Cells(Satir_B, Sutun)).Interior.ColorIndex = xlNone
    
    For X = 4 To Sutun Step 4
        For Y = Satir_A To Satir_B
            If Cells(Y, X) > 1 Then
                Range(Cells(Y, X - 2), Cells(Y, X + 1)).Interior.ColorIndex = 37
            End If
        Next
    Next
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[merakli_72]

Tekrar teşekkür ederim Korhan Bey emeğinize sağlık,
böyle bir şeyin koşullu biçimlendirme ile yapılıp yapılamayacağını merak etmiştim

 

[Korhan Ayhan]

Aslında yapılabilir diye düşünüyorum. Sadece formülle bahsettiğiniz hücre aralıklarının tespiti önem taşımaktadır.

Bu kurgu yapılırsa gerisi kolaylaşır.

TOPLA.ÇARPIM+MOD+SÜTUN+KAYDIR fonksiyonları ile bir şeyler denedim. Fakat işin içinden şimdilik çıkamadım.