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 .