Condational Formatting 2010 office

[haso_excel]

Merhaba arkadaşlar,

2010 da hazırladığım bir dosyada C4 ile AC4 arasına koşullu biçimlendirma yaptım fakat aşağıya doğru kopyalamada sıkıntı yaşıyorum. Yardımcı olabilir misiniz lütfen?

 

[hamitcan]

Koşullarınız neler ?

 

[haso_excel]

C4 ile AC4 arasındaki hücrelerde yaptım. C4 deki veriye göre ilgili alanda belli hücreleri renklendiriyorum. C4 hücresini A ile F arasındaki harfleri yazın anlayacaksınız

 

[hamitcan]

1-Koşullu biçimlendirme yaptığınız hücreleri seçip, hücre referansları içindeki "$" işaretlerini kaldırın.
2-4.satırdaki biçimlendirmeyi, kopyala-özel yapıştır(sadece biçimlendirme) yardımıyla diğer hücrelere uygulayın.

 

[haso_excel]

Aynen dediğiniz gibi yapıyorum fakat uygula dediğimde tekrar hücreleri sabitliyor.

 

[hamitcan]

Formüllere bakarak anlamak zor geldi, koşulları ve etkilenecek hücreleri belirtirseniz, makro ile de yapılabilir.
Örn: a1="f" ise b1:e1 aralığı sarı olsun gibi.

 

[haso_excel]

C kolonudaki veri C4 den başlayarak
C4=A ise E4,G4,I4,K4,M4,O4,Q4,S4,U4,W4,Y4,AA4 mavi
C4=B ise G4,K4,O4,S4,W4,AA4 mor
C4=C ise I4,O4,U4,AA4 pembe
C4=D ise K4,S4,AA4 yeşil
C4=E ise O4,AA4 gri
C4=F ise AA4 kırmızı olacak. Bu koşulları ekteki dosyada C4 hücresine bakarak 4. satı için yaptım. Fakat C kolonuna kontrol edip yukarıdaki hücreleri I4 den başlayarak I kolonu ile AA4 başlayarak AA kolonuna kopyalamak istediğimde sabitlemeleri kaldırmama rağmen format copy yapılmıyor.

 

[hamitcan]

Sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Row < 4 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    i = Target.Row
    Arr1 = Array("e" & i, "g" & i, "i" & i, "k" & i, "m" & i, "q" & i, "s" & i, "u" & i, "w" & i, "y" & i, "aa" & i)
    Arr2 = Array("g" & i, "k" & i, "o" & i, "s" & i, "w" & i, "aa" & i)
    Arr3 = Array("i" & i, "o" & i, "u" & i, "aa" & i)
    Arr4 = Array("k" & i, "s" & i, "aa" & i)
    Arr5 = Array("o" & i, "aa" & i)
    Arr6 = Array("aa" & i)
    Select Case Target
    Case "A": Arr = Arr1: Renk = vbBlue
    Case "B": Arr = Arr2: Renk = 10498160
    Case "C": Arr = Arr3: Renk = 13408767
    Case "D": Arr = Arr4: Renk = vbGreen
    Case "E": Arr = Arr5: Renk = vbMagenta
    Case "F": Arr = Arr6: Renk = vbRed
    Case Else: Exit Sub
    End Select
    
    For j = 0 To UBound(Arr)
     Range(Arr(j)).Interior.Color = Renk
    Next
End Sub

 

[haso_excel]

İlginiz için çok teşekkür ederim hamitcan arkadaşım fakat olmadı (. Merak ediyorum bunu koşullu biçimlendirme ile yapamayacakmıyız biz ?

 

[Korhan Ayhan]

Merhaba,

2010 versiyonda $ işareti hücre başvurularına eklenmektedir. Fakat alt satırlara biçim boyacısı ya da kopyala-özel yapıştır-biçimleri şeklinde kopyalarsanız alt satırlarda doğru adreslere başvurmaktadır.

 

[Korhan Ayhan]

Merhaba,

Sonradan çok koşul uygulamak istediğinizi açıklayan mesajınızı okudum.

Ekteki örnek dosyayı inceleyiniz.

D4:AC9 aralığını seçtikten sonra koşullu biçimlendirme menüsünü inceleyin.

 

[hamitcan]

İlginiz için çok teşekkür ederim hamitcan arkadaşım fakat olmadı (. Merak ediyorum bunu koşullu biçimlendirme ile yapamayacakmıyız biz ?

Benim, bu şekilde, kolayıma geldi diyebilirim. Çalışmama sebebi, belki koşullu biçimlendirme koşulları ile çakışmasıdır, incelemenizi öneririm.