boyalı hücrelerin sayılması

[TRABLUS]

Herkese selamlar;benim bir sorum olucak elimde 1000 satırlık liste var (isim veya rakam)bunların bir kısmı renkli bu renkli hücrelerin sayısını bulmam için bir formül verebilirmisiniz.Þimdiden herkese teşekkür ederim.

 

[Haluk]

Merhaba;

Tek renk mi yoksa değişik renkler mi var ?

 

[TRABLUS]

tek renk olarak boyanmış durumda

 

[Haluk]

Yerleşik fonksiyonlarla olur mu bilemiyorum ama eğer bu iş için VBA kullanmak istersen, örneğin A sütunundaki renkli hücrelerin sayısını bulmak için;

Sub Test()
    Dim NoA As Long, No As Long
    Dim MyRng As Range
    NoA = Cells(65536, 1).End(xlUp).Row
        For Each MyRng In Range("A1:A" & NoA)
            If MyRng.Interior.ColorIndex > 0 Then No = No + 1
        Next
    MsgBox "Renkli hücrelerin sayisi = " & No
End Sub

 

[TRABLUS]

ilginize çok teşekkür ederim.Bu bayağı işimi görücek.

 

[Haluk]

Ã?nemli değil, rica ederim.

Eğer isterseniz bu iş için aşağıdaki gibi bir kullanıcı tanımlı fonksiyon da kullanabilirsiniz.

Fonksiyonun kullanım şekli:

=CountColors(A1:A1000)

Yeni bir module yerleştirilecek kodlar:

Function CountColors(Alan As Range) As Long
    Dim No As Long
    Dim MyRng As Range
    For Each MyRng In Alan
        If MyRng.Interior.ColorIndex > 0 Then No = No + 1
    Next
CountColors = No
End Function

 

[ALPEN]

Merhaba

sadece bende mi MyRng.Interior.ColorIndex hücre renkli olsada olmasada -4142 dönüyor?

 

[Haluk]

Selam ALPEN;

Dolgu rengi olmayanlarda o değeri vermesi gerekir. (Araç çubuğundan yapılmış dolgu renklerinde)

Edit:
1) Eğer dolgu rengini "Conditional Formatting" ile yaparsan, sanki dolgu rengi hiç yokmuş gibi o kodla yine -4142 değerini alırsın.
2) Eğer dolgu rengi "Conditional Formatting" ile yapılmışsa o zaman, aşağıdaki gibi birşey denemelisin:

MsgBox MyRng.FormatConditions(1).Interior.ColorIndex

 

[ALPEN]

haha, evet cond. formatlı oldugunu unutmuşum hücrelerin.

:kafa: bu gif e birde dronk dronk efektli ses eklesek diyorum.

teşekkürler.

 

[seabiscuit]

"Raider"]Ã?nemli değil, rica ederim.

Eğer isterseniz bu iş için aşağıdaki gibi bir kullanıcı tanımlı fonksiyon da kullanabilirsiniz.

Fonksiyonun kullanım şekli:

=CountColors(A1:A1000)

Yeni bir module yerleştirilecek kodlar:

Function CountColors(Alan As Range) As Long
    Dim No As Long
    Dim MyRng As Range
    For Each MyRng In Alan
        If MyRng.Interior.ColorIndex > 0 Then No = No + 1
    Next
CountColors = No
End Function

[/quote]

Raider Slm ;

Peki bu renkli hücreleri bir yerde toplamak istersek yani filtreleme yöntemi gibi o zaman ne yapmamız gerekecek ? Renkler kosullu. Makro bilmiyorum varsa baska bir öneri lütfen . Tesekkürler .

 

[Hüseyin]

Aşağıdaki linkte font rengine göre filtreleme örneği var.
Bunu bir kaç değişiklikle hücre rengine göre değiştirebilirsiniz.
http://www.excel.web.tr/viewtopic.php?p=101#101

 

[seabiscuit]

Aşağıdaki linkte font rengine göre filtreleme örneği var.
Bunu bir kaç değişiklikle hücre rengine göre değiştirebilirsiniz.
http://www.excel.web.tr/viewtopic.php?p=101#101

Denedim ama su sekilde bir #Name? hata veriyor .