Şarta göre koşulllu biçimlendirme

[sward175]

Öncelikli olaram tüm forum üyelerine saygılarımı sunarım.

İstediğimi şöyle açıklayabilirim. yapmak istediğim tüm biçimlendirmeler Sayfa1 üzerinde olacak,
DN5 hücresine 1 yazınca yeşil hücreler aktif olsun.
Sayfa1 de DN5 hücresine 2 yazınca Sayfa 2' de aktif olan hücreler Sayfa1 üzerinde kırmızı olsun.


Saygılarımla,
Sward175

 

[hamitcan]

Renkli hücrelerin hücre adreslerini belirtirseniz, kod yardımıyla yapılabileceğini düşünüyorum.

 

[sward175]

Çok hücreli koşullu biçimlendirme

Sayın Hamitcan,

İstemiş olduğumu ekli dosyada anlatmaya çalıştım.
Sayfa1 DK7 hücresinde seçilen sayı karşılığı sayfalardaki renklendirilmiş hücrelerin Sayfa1' de renklenmesini istiyorum,

Yardımlarınız için teşekkürlerimi sunarım,

Sward175

 

[hamitcan]

Renklenmesini mi istiyor sunuz yoksa aktif olmasını mı ? Aktif olsun diyorsanız; bu kadar hücrenin seçilmesi kod içinde sıkıntı yaratacak gibi görünüyor bunula birlikte renk değiştirsin diyorsanız, çözüm kolaylaşacak gibi görünüyor. Bir şey daha eklemek isterim; hücreleri manuel seçtiğim de seçim fark edilmiyor.

 

[sward175]

Sayın hamitcan,

Öncelikli olarak Günaydın,

Renklenmesi benim için yeterli olur, Aktif olması gerekmiyor.
Saygılarımla,

Sward175

 

[hamitcan]

Biraz geç oldu ama...
Aşağıdaki kodları ilgili kısımlara ekleyin.
Bir Modül içine;

Sub YesilOlarakRenklendir()
    Cells.Interior.Color = xlNone
    Range("d1:d18").Interior.Color = 5287936
    Range("ae42:ae46").Interior.Color = 5287936
    Range("ai46:ai55").Interior.Color = 5287936
    Range("an36:an55").Interior.Color = 5287936
    Range("bu18:bu32").Interior.Color = 5287936
    Range("bu34:bu36").Interior.Color = 5287936
    Range("d19:d47").Interior.Color = 5287936
    Range("m46:m53").Interior.Color = 5287936
    Range("n42:n53").Interior.Color = 5287936
    Range("o46:o53").Interior.Color = 5287936
    Range("d1:d18,AA42,AB42,AC42,AD42,AF46,AG46,AH46,AJ55,AK55,AL55,AM55,AO36,AP36").Interior.Color = 5287936
    Range("AQ36,AR36,AS36,AT36,AU36,AV36,AW36,AX36,AY36,AZ36,BA36,BB36,BC36,BD36,BE36,BF36,BG36,BH36,BI36,BJ36,BK36,BL36,BM36,BN36,BO36,BP36,BQ36,BR36,BS36,BT36,BU33,BV18,BW18,BX18,BY18,E47,F47,G47,H47,I47,J47,K47,L47,O42,P42,Q42,R42,S42,Z42").Interior.Color = 5287936
End Sub
Sub Sayfa2yeGoreRenklendir()
    Cells.Interior.Color = xlNone
    For Each hcr In Sayfa2.[d1:cd80]
        If hcr.Interior.Color = vbRed Then
          Range(hcr.Address).Interior.Color = vbRed
        End If
    Next
End Sub

Sayfa1'in kod kısmına;

Private Sub Worksheet_Change(ByVal Target As Range)
    If [dj5] = 1 Then
        YesilOlarakRenklendir
    Else
        Sayfa2yeGoreRenklendir
    End If
End Sub

 

[sward175]

Çok hücreli koşullu biçimlendirme

Sayın Hamitcan,

Vermiş olduğunuz kodları uyguladım fakat istediğime ulaşamadım acaba neyi eksik yaptım bilemiyorum ricam mumkunse kodları dosya uzerinde uygulamanı olacak yardımınızı rica ederim.

Sward175

 

[hamitcan]

Eki inceleyin. Renksiz kalan yerleri kod satırlarına bakarak çoğaltabilirsiniz.

 

[sward175]

Sayın hamitcan,

Göstermiş olduğunuz ilgi çok teşekkür ederim.
Bundan sonrası sizinde söylediğiniz gibi örneğinizi inceliyerek çoğaltabilirim, sağolun.

sward175