Bir sütundaki karışık renklerin sayısının farklı hücreye atanması

[betpakdala]

Merhabalar,

A sütunundaki farklı adetteki karışık renklerin sayısının başka hücrede kaçar tane olduğunu görmek istiyorum.Acaba excelde bu formulle yapılabilirmi. örnek dosyam ektedir.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar umarım işinize yarar.

Option Base 1
Sub RenkSay()
Dim i, j As Integer

'-------------------- F Sütununu Renklendirir -----------------
'For i = 1 To 56
'    Cells(i + 1, "F").Interior.ColorIndex = i
'Next i
'-------------------- F Sütununu Renklendirme Sonu ------------

Range("G2:G57").ClearContents
For i = 2 To [A65536].End(3).Row
    If Cells(i, "A").Interior.ColorIndex = xlNone Then
        j = 2
    Else
        j = Cells(i, "A").Interior.ColorIndex
    End If
    Cells(j + 1, "G") = Cells(j + 1, "G") + 1
Next i
End Sub

 

[Ali]

Örnek dosya yok ama

Aşağıdaki linkide inceleyebilirsiniz.

Renkli zemin ve Font Özelliklerine Göre Uygulamalar

.