Hücre Rengine Göre İşlem

[cocoa35]

Arkadaşlar merhaba; Ek'te paylaştığım örnek dosyada belirli hücreler yeşil bazısı kırmızı dosyada detaylı açıkladığım şekilde hücreye eğer örneğin D3:G3 aralığında herhangi bir hücre kırmızı ise H3 hücresine " Kesit Artırımı Var" yazsın I3 Hücresine ise Hangi işlemde kesit artışı var ise onu yazsın örneği " H kesit artışı var" eğer birden fazla hücre kırmızı ise örneğin " L , H Kesit artışı var yazsın, forumu inceledim benzer örnekler var ama bir türlü olmuyor. bu konuda yardımcı olurmusunuz lütfen.

 

[Korhan Ayhan]

Renkleri elle mi uyguluyorsunuz, yoksa koşullu biçimlendirme ile mi hücreler renkleniyor.

 

[cocoa35]

Merhaba koşullu biçimlendirme ile renkleniyor

 

[Korhan Ayhan]

Normal dolgu rengi olan hücreler için bir KTF hazırlamıştım. Belki ihtiyacı olan üyelerimiz kullanmak isteyebilirler düşüncesi ile paylaşmak istedim.

Koşullu biçimlendirme ile renklenen hücreler için çalışmaz.

Koşullu biçimlendirme ile ilgili ayrıca bir kodlama paylaşacağım.

 

[cocoa35]

Korhan bey merhaba, paylaşımınız için teşekkürler, denedim koşullu biçimlendirme renkleri olduğu için çalışmadı maalesef, sizde onu belirtmişsiniz zaten, koşullu biçimlendirme renkleri ile olan çalışmanızı dört gözle bekliyorum iyi akşamlar,

 

[ÖmerFaruk]

If Veri.Interior.ColorIndex = Renk_Kodu Then

Bu satırdaki gibi ilgili sorgu ifadesinin ikisinde de aşağıdaki gibi yapabilirsiniz.

If Veri.FormatConditions(1).Interior.Color = Renk_Kodu Then

 

[Korhan Ayhan]

Deneyiniz.

 

[cocoa35]

Korhan bey merhaba kod'lar çok güzel olmuş teşekkürler, ancak benim dosyaya tam uyarlayamadım formülün esasını çözemedim, benim dosyada tam olduğu şekilde ekleme yaptım düzeltme imkanınız olurmu acaba?

 

[Korhan Ayhan]

Bizler örnek dosya olayını her seferinde belirtiyoruz ama nafile üyelerimiz yine bildiklerini okuyorlar. Bu durumda boşuna zaman harcamış oluyoruz.

Şimdi oturup yeniden dosyanızla uğraşmak gerekecek...

 

[cocoa35]

Özür dilerim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Renk_Kontrol()
    Dim X As Long, Y As Byte, Metin As String, Kontrol As Boolean
    
    Range("O25:R42").ClearContents
    
    For X = 25 To 41 Step 2
        For Y = 3 To 11 Step 4
            If Cells(X, Y).DisplayFormat.Interior.ColorIndex = 38 Then
                Kontrol = True
                If Metin = "" Then
                    Metin = Cells(23, Y)
                Else
                    Metin = Metin & "," & Cells(23, Y)
                End If
            End If
        Next
        
        If Kontrol = True Then
            Cells(X, "O") = "Kesit artırımı var"
            Kontrol = False
        Else
            Cells(X, "O") = "Kesitler normal"
        End If
        
        If Metin <> "" Then
            Cells(X, "Q") = Metin & " kesit büyümesi"
            Metin = ""
        Else
            Cells(X, "Q") = "Kesitler normal"
        End If
    Next

    MsgBox "Renk kontrol işlemi tamamlanmıştır.", vbInformation
End Sub

 

[cocoa35]

Deneyiniz.

Option Explicit

Sub Renk_Kontrol()
    Dim X As Long, Y As Byte, Metin As String, Kontrol As Boolean
   
    Range("O25:R42").ClearContents
   
    For X = 25 To 41 Step 2
        For Y = 3 To 11 Step 4
            If Cells(X, Y).DisplayFormat.Interior.ColorIndex = 38 Then
                Kontrol = True
                If Metin = "" Then
                    Metin = Cells(23, Y)
                Else
                    Metin = Metin & "," & Cells(23, Y)
                End If
            End If
        Next
       
        If Kontrol = True Then
            Cells(X, "O") = "Kesit artırımı var"
            Kontrol = False
        Else
            Cells(X, "O") = "Kesitler normal"
        End If
       
        If Metin <> "" Then
            Cells(X, "Q") = Metin & " kesit büyümesi"
            Metin = ""
        Else
            Cells(X, "Q") = "Kesitler normal"
        End If
    Next

    MsgBox "Renk kontrol işlemi tamamlanmıştır.", vbInformation
End Sub

Çok teşekkürler korhan bey, şimdi oldu gayet güzel çalışıyor, ellerinize ve aklınıza sağlık..

 

[Korhan Ayhan]

Öncesinde de olmuştu. Siz sonradan dosyanızı değiştirmiştiniz.