RGB renk kodunu saydırma

[cellswhite]

İyi günler iyi çalışmalar,

Aşağıdaki select edilen alan içerisinde dolgu renk kodu 6 ( sarı ) olan hucreleri saydırabiliyoruz.
Yalnız ozel renk olarak tanımladıgımız örnek RGB (250,0,140) bu dolgu rengine ait olan verileri nasıl saydırabiliriz.

Teşekkurler.

NOT: Objelerde ilerleyebiliyorum ama hucrelerde bu kodun nasıl kullanıldıgını bulamadım.

    For Each x In Selection
        If x.Interior.ColorIndex = 6 Then
            say = say + 1
        End If
    Next
    msgbox say &" "&"Adet var"

 

[cellswhite]

Arkadaşlar selamlar,

Cevabı şimdi buldum.Zaman harcayan arkadaşlara teşekkurler.

For Each x In Selection
        If x.Interior.Color = RGB(250, 0 ,140)
Then
            say = say + 1
        End If
    Next
msgbox say &" "&"Adet var"

 

[cellswhite]

Merhaba,

Cevabı buldum evet yukarıdaki kod çalışıyor ama ama RGB kodları içerisindeği değerleri bir değişkene atadığımda çalışmıyor.

        'renk = "RGB (" & TextBox8 & "," & TextBox9 & "," & TextBox10 & ") "
        MsgBox renk
    For Each x In Selection
        If x.Interior.Color = RGB(250, 0, 140) Then 'Bu kod çalışıyor

        [b]'x.Interior.Color = renk Then [/b] bu kod çalışmıyor.İhtiyacım olan bu kodun çalışması

            say = say + 1
        End If
    Next

Yardım ve önerilerinizi bekliyorum.

Teşekkurler.

 

[cellswhite]

Merhaba,

Önerisi olan arkadaşlar var mı?

Teşekkurler.

 

[cellswhite]

Günaydın İyi çalışmalar.

Soruma göz atma imkanı olan arkadaşlar oldu mu acaba?

 

[Merhum İdris SERDAR]

.

Bir örnek dosya eklerseniz, ayrıca çalışan ve çalışmayan kodlarınızı bunun üzerinde gösterirseniz; çözmek isteyenlerin deneme fırsatları olabileceği gibi bunların oturup bir örnek dosya hazırlamaları zahmetinden de kurtulmuş olurlar.


.

.

 

[Korhan Ayhan]

Selamlar,

Sorunuzu incelerken bir yazım hatası yaptığınızı farkettim. Yazdığınız kod satırından " ve & işaretlerini kaldırıp denermisiniz.

renk = RGB (TextBox8, TextBox9, TextBox10)

 

[cellswhite]

Korhan Bey,

Teşekkurler.

Sn yurttas ,

Dosyayı ekledim.

Emeği geçen herkese teşekkurler.

 

[Korhan Ayhan]

Selamlar,

Renk kodlarını Hex ve Hex2Dec değerlerine çevirerek saydırabilirsiniz.

Aşağıdaki linkte renkle ilgili birçok açıklama ve uygulama yapılmış. İnceleyiniz.

http://www.mvps.org/dmcritchie/excel/colors.htm

Private Sub CommandButton4_Click()
    Dim Say As Integer, Renk, Hex_Code, Hücre_Renk_Kodu
 
    If TextBox8.Value = "" Or TextBox9.Value = "" Or TextBox10.Value = "" Then
        MsgBox "Taraması Yapılacak Renk Kodunu Giriniz", vbCritical, "Dikkat"
        Exit Sub
    End If
 
        Renk = TextBox8 & TextBox9 & TextBox10
        MsgBox Renk
 
    For Each Hücre In Selection
        Hex_Code = Right("000000" & Hex(Hücre.Interior.Color), 6)
        Hücre_Renk_Kodu = Evaluate("=Hex2dec(""" & Right(Hex_Code, 2) & """)") & Evaluate("=Hex2dec(""" & Mid(Hex_Code, 3, 2) & """)") & Evaluate("=Hex2dec(""" & Left(Hex_Code, 2) & """)")
        If Hücre_Renk_Kodu = Renk Then
            Say = Say + 1
        End If
    Next
 
    TextBox5 = Say
End Sub