Egersay kullananlar

[HANEDANNN]

Eğer sayda sadece sectigim renkteki kelimeyi alsin
Örneğin
10 satırlık hücre var bunun 3 satırı mavi 7 satırı beyaz hepsinde a harfi var egersay yapip aralığı sectigimde 10 tane a çıkıyor mavi kutu daki a lari sayım dışı bırakmam lazim

 

[YUSUF44]

İşinizi görür mü bilmiyorum ama aşağıdaki konuyu inceleyiniz:

Renge Göre EĞERSAY

Merhaba Arkadaşlar, A1:B4 alanında 2 hücrenin dolgu rengi sarı, 1 hücre kırmızı, 4 hücre siyah renkte. Bu renklere göre hücre adetlerinin sayımını formül ile veya makro ile yapılması mümkün müdür ?

www.excel.web.tr

 

[genesis_vision]

Sub renk()
Dim cell, rng As Range
Dim renkindeks
Set rng = Range("a1:a10")
renkindeks = ActiveCell.Interior.ColorIndex
iColor = 0
For Each cell In rng.Cells
If cell.Interior.ColorIndex = renkindeks Then iColor = iColor + 1
Next cell
MsgBox iColor
End Sub

Seçili hücrenin renginin A1:A10 arasında kaç kere geçtiğini ileti kutusunda gösterir. Umarım işine yarar.

 

[HANEDANNN]

hata verdi kullanamadım,yine de teşekkürler

 

[genesis_vision]

Bende sorunsuz çalışıyor. Range("a1:a10") ifadesini dolgu rengin neredeyse ona göre değiştir çalışacaktır.

 

[genesis_vision]

Bu arada siz metni mi renklendirdiniz yoksa hücre renklerini mi? Eğer sadece metni renklendirdiyseniz aşağıdaki kodu deneyiniz.
Set rng = Range("a1:a10") ifadesini verileriniz neredeyse ona göre değiştiriniz.

Sub fontrenk()
Dim cell, rng As Range
Dim renkindeks
Set rng = Range("a1:a10")
renkindeks = ActiveCell.Font.ColorIndex
iColor = 0
For Each cell In rng.Cells
If cell.Font.ColorIndex = renkindeks Then iColor = iColor + 1
Next cell
MsgBox iColor
End Sub

 

[Merhum İdris SERDAR]

.

Buraya bakın.

Renge göre koşullu sayma

www.excel.web.tr