• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Belli aralıktaki hücreleri arkaplan renklerine göre saydırmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

mert25

Gold Üye
Katılım
25 Ağu 2022
Mesajlar
361
Çözümler
2
Aldığı beğeni
67
Excel V
Office 2016 TR
Gold Bitiş
14 Eylül 2025
Konu Sahibi
Merhabalar,

Belli aralıktaki hücrelerin arkaplan renklerine göre sayılarını bulmak istiyorum. İnternette verilen formüllerden bir sonuç alamadım.

Örneğin U6:X11 aralığında arkaplanı kırmızı olan kaç hücre var, mavi olan kaç hücre var bulmak istiyorum.

Yardımcı olacaklara şimdiden teşekkür ederim.
 
hocam bunun için makro kullanmanız gerekiyor; Modül kısmına aşağıdaki kodu yapıştırın

'Örnek kullanım =RENKSAY(A1:A20;C1)
'bu örnekte c1 hücresini saydırmak istediğiniz renge boyayın

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Örnek dosyam ekte

Ana Sayfa U6:X11, U14:X19 ve U22:X27 hücre aralığı saydırılacak.
 
Konu Sahibi
hocam bunun için makro kullanmanız gerekiyor; Modül kısmına aşağıdaki kodu yapıştırın

'Örnek kullanım =RENKSAY(A1:A20;C1)
'bu örnekte c1 hücresini saydırmak istediğiniz renge boyayın

Public Function RENKSAY(pRange1 As Range, pRange2 As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In pRange1
If rng.Font.Color = pRange2.Font.Color Then
RENKSAY = RENKSAY + 1
End If
Next
End Function

Bu kod module mi yoksa sayfanın kod bölümüne mi eklenecek?
 
merhabalar
formül al5:am6 uygulandı kontrol edermisiniz
 
Çözüm
Konu Sahibi
Eyvallah hocam, vallahi harikasın, internette çok aramıştım ama böylesi bir formül veren hiç yoktu, tam sonuç verdi, çok teşekkür ederim.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst