Üçten Fazla Koşul İçin Dolgu Rengi Uygulama

[betoncu]

Arkadaşlar koşullu biçimlendirme ile en fazla 3 koşul için biçimlendirme yapabiliyoruz.

Hücrenin;
Pazartesi günü için Gül renginde (Renk Kodu: 38)
Salı günü için Açık Sarı renginde (Renk Kodu: 36)
Çarşamba Günü İçin Turkuaz renginde (Renk Kodu: 8)
Perşembe günü için Limen Renginde (Renk Kodu: 43)
Cuma günü için Açık Eflatun renginde (Renk Kodu: 39)
Cumartesi günü için Açık Turuncu renginde (Renk Kodu: 45)
Pazar günü için Gri %25 renginde (Renk Kodu: 15)

dolgu rengi olması için nasıl bir formül uygulamalıyız?

Yardımlarınızı bekliyorum...

 

[betoncu]

Problemi Çözdüm Fakat

W3 Hücresinde makro ile problemi çözdüm. Fakat w3 hücresinin içerisine girip enter tuşuna bastıktan sonra hücrede renk değişimi oluyor.
Bu sıkıntı W3 hücresinde formülün uzun olmasından kaynaklanıyort sanırım. Bu problemi nasıl gideririz?

Örnek dosya ektedir...

 

[betoncu]

Hücrenin içerisine girmeden renk değişimi olmasını nasıl sağlarız?

 

[Murat OSMA]

Çünkü; sayfanın Change olayına yazmışsınız...

 

[Murat OSMA]

3. satırdaki tüm formülleri W3 hücresindeki formülle aynı yapın, sadece sütun adını değiştirin ve şu kodları Module içerisine yazıp ve F5 tuşuna basın;

Sub Emre()
    Dim i As Range
    For Each i In Range("W3:BD3")
         With Cells(i.Row + 3, i.Column).Resize(6, 1)
            Select Case i.Value
                Case Is = "Pazartesi": .Interior.ColorIndex = 38
                Case Is = "Salı": .Interior.ColorIndex = 36
                Case Is = "Çarşamba": .Interior.ColorIndex = 8
                Case Is = "Perşembe": .Interior.ColorIndex = 43
                Case Is = "Cuma": .Interior.ColorIndex = 39
                Case Is = "Cumartesi": .Interior.ColorIndex = 45
                Case Is = "Pazar": .Interior.ColorIndex = 15
            End Select
         End With
    Next i
    Set i = Nothing
End Sub

 

[betoncu]

Murat bey dediklerinizi yaptım ama değişen birşey olmadı. Göndermiş olduğum Çözüm.xls dosyası üzerinde kod değişikliği yaparak gönderebilirmisiniz.

W3 HÜCRESİ DIŞINDA DİĞER SATIRLARIN FORMÜLÜNÜ BEN DÜZELTEBİLİRİM. KODLARI YAPAMIYORUM.. YARDIMINIZ İÇİN TEŞEKKÜRLER..

 

[Murat OSMA]

Peki... Dosyayı ekliyorum bir bakın...

 

[betoncu]

Tamda istediğim gibi çok teşekkür ederim. Makroyu çalıştırınca hücreler renkleniyor. Peki günler değişince otomatik olarak hücreler renklenebilirmi? YAni biz makroyu devreye sokmadan sadece günler değiştiğinde Pazartesi, Salı vs. hücreler kendiliğinden renklenebilir mi?

 

[Merhum İdris SERDAR]

Tamda istediğim gibi çok teşekkür ederim. Makroyu çalıştırınca hücreler renkleniyor. Peki günler değişince otomatik olarak hücreler renklenebilirmi? YAni biz makroyu devreye sokmadan sadece günler değiştiğinde Pazartesi, Salı vs. hücreler kendiliğinden renklenebilir mi?

.

Murat beyin, kodları ile dosya ekte.

.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

L28 ve L29 hücrelerindeki tarihleri değiştirdiğinizde kod devreye girer.

 

[betoncu]

Ilgini için hepinize ayrı ayrı teşekkür ederim... Makbule geçti...

 

[betoncu]

Örnekleri inceliyorumda bir sorunla karşılaştım:
Diyelim ayın son günü 31 olsun. Bu güne ait hücreler kodla boyanıyor. Fakat bir sonraki ay 30 çektiğinde 31. güne ait hücrelerde dolgu rengi silinmemiş oluyor.
Bu olmayan günlere ait dolgu rengini kendiliğinden kodla silebilirmiyiz?

 

[betoncu]

Arkadaşlar bide bu kodları uyguladıktan sonra excelde geri alma işlemi iptal oldu. Bu sorunu nasıl çözeriz...

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımda ki dosyayı güncelledim. Ayrıca makro işlemlerinde GERİ AL komutu çalışmaz. Bu sebeple makroları dikkatli çalıştırmanız gerekiyor.

 

[betoncu]

Korhan bey güncellediğiniz kodları aşağıda belirttiğim kodlara nasıl uyarlayabilirz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
For Each i In Range("W3:BD3")
With Cells(i.Row + 3, i.Column).Resize(6, 1)
Select Case i.Value
Case Is = "Pazartesi": .Interior.ColorIndex = 38
Case Is = "Salı": .Interior.ColorIndex = 36
Case Is = "Çarşamba": .Interior.ColorIndex = 8
Case Is = "Perşembe": .Interior.ColorIndex = 43
Case Is = "Cuma": .Interior.ColorIndex = 39
Case Is = "Cumartesi": .Interior.ColorIndex = 45
Case Is = "Pazar": .Interior.ColorIndex = 15
End Select
End With
Next i
Set i = Nothing
End Sub