• 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.

    Giriş yap veya Şimdi kayıt ol

Çö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

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.
 
Tarihe göre sırala Oylara göre sırala
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Örnek dosyam ekte

Ana Sayfa U6:X11, U14:X19 ve U22:X27 hücre aralığı saydırılacak.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
mana97' Alıntı:
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
Genişletmek için tıkla...

Bu kod module mi yoksa sayfanın kod bölümüne mi eklenecek?
 
Olumlu oy 0 Negatif oyla
merhabalar
formül al5:am6 uygulandı kontrol edermisiniz
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çö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.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst