ismi şu olan ve rengi şu olan hücreleri say komutu

[koyuncuh]

sormak istediğim şey başlıkta ve dosyada bellidir.

 

[parametre]

http://www.excel.web.tr/search.php?searchid=2096633

 

[koyuncuh]

bu dosyayı çözebilir misiniz? Oradaki örnekler çok karışık

 

[Necdet]

Merhaba,

Umarım bu örnek karışık gelmez. KTF (Kullanıcı Tanımlı Fonksiyon) hazırladım.


Fonksiyonun Parametreleri :

• Alan
• Değer
• Renk için benzer hucre

buna göre K2 hücresi için formül

=RenkDegerSay($E$4:$E$11;$I2;K$1)

Function RenkDegerSay(Alan As Range, Deger As String, Ornek_Renk As Range)
    
    Dim Adet    As Long
    Dim Hucre   As Range
    Dim Hcr     As String
    
    Application.Volatile
    Deger = UCase(Replace(Replace(Deger, "i", "İ"), "ı", "I"))
    For Each Hucre In Alan
        
        Hcr = UCase(Replace(Replace(Hucre.Value, "i", "İ"), "ı", "I"))
        
        If Hucre.Interior.ColorIndex = Ornek_Renk.Interior.ColorIndex And _
           Hcr = Deger Then Adet = Adet + 1
    Next Hucre
    
    RenkDegerSay = Adet
    
End Function

 

[Milady Meriç]

Bu kadar emek bir teşekkürü haketmiş

Merhaba,

Umarım bu örnek karışık gelmez. KTF (Kullanıcı Tanımlı Fonksiyon) hazırladım.

Fonksiyonun Parametreleri :

• Alan
• Değer
• Renk için benzer hucre

buna göre K2 hücresi için formül

=RenkDegerSay($E$4:$E$11;$I2;K$1)

Function RenkDegerSay(Alan As Range, Deger As String, Ornek_Renk As Range)
    
    Dim Adet    As Long
    Dim Hucre   As Range
    Dim Hcr     As String
    
    Deger = UCase(Replace(Replace(Deger, "i", "İ"), "ı", "I"))
    
    For Each Hucre In Alan
        
        Hcr = UCase(Replace(Replace(Hucre.Value, "i", "İ"), "ı", "I"))
        
        If Hucre.Interior.ColorIndex = Ornek_Renk.Interior.ColorIndex And _
           Hcr = Deger Then Adet = Adet + 1
    Next Hucre
    
    RenkDegerSay = Adet
    
End Function

 

[koyuncuh]

teşekkür ederim cevabınız için, istediğim şey buydu doğru. bunu bir formülle yazdınız sanırım. peki bu yaptığınız formülü benim dosyama entegre etmem lazım, nasıl olacak ve de sürekli içeriği etkinleştir gibi bir uyarı mı verecek bu?

 

[koyuncuh]

Bir de diğer sayfada değişiklik yapınca formül otomatik hesaplama yapmıyor, o hücreye girip çift tıklamak gerekiyor.

 

[Necdet]

Bu kadar emek bir teşekkürü haketmiş

Teşekkürler Sayın Milady Meriç.

Bir de diğer sayfada değişiklik yapınca formül otomatik hesaplama yapmıyor, o hücreye girip çift tıklamak gerekiyor.

Önceki mesajımda değişiklik yaptım, kodları yeniden alınız.

KTF (Kullanıcı Tanımlı Fonksiyonu) yi tüm excel dosyalarında kullanmak isterseniz, önceki mesajımda verdiğim dosyayı Excel Eklentisi olarak kaydedin.

Detay bilgiye forumda aratarak ulaşabilirsiniz.

 

[koyuncuh]

olmadı yapamadım.

 

[koyuncuh]

o xla uzantılı dosya hep bilgisayarımda kalmalı bu sefer de.. bir de diğer sayfada yaptığım değişiklik anında yansımıyor rapor kısmına.

 

[Necdet]

Örnek dosyanızı görsek sanırım iyi olacak.

 

[koyuncuh]

ya o dosya da işyerine ait özel bir dosya gönderemicem kusura bakmayın. ama teşekkür ederim ilginiz ve alakanız için.

 

[Necdet]

ya o dosya da işyerine ait özel bir dosya gönderemicem kusura bakmayın. ama teşekkür ederim ilginiz ve alakanız için.

Adı üzerinde örnek dosya.

ilgi = alaka

 

[koyuncuh]

Dosyayı ekliyorum. ilk sayfadaki rapor bir sonraki sayfada bulunan işlerden veri alıp tablo yapıyor. Ancak üstteki tablo tamam fakat alttaki sektör tablosu dip rakamları tutmuyor.

 

[Necdet]

Merhaba,

Formülü (C15) aşağıdaki gibi değiştirdim.

=RenkDegerSay('tüm işler-ilçeye göre'!$B$17:$B$352;B15;$C$14)

Sadece B sütununa bakması yeterli.

Bu durumda C16 daki daha önce 4 olan değer 3 e düştü.

 

[koyuncuh]

oLMADI. Dip rakamlar tutmuyor, isterseniz siz de deneyin görürsünüz. Veya sizin yaptığınız oluyorsa o dosyayı bize gönderir misiniz?

 

[Necdet]

Dip rakamlardan kastınız nedir, hangi hücrelerdir. Ve ne olması gerekiyor belirtirseniz zamanım olduğunda bakarım.

 

[koyuncuh]

Şimdi şöyle:
Eski devam dip rakam yukarıda 20 aşağıda 19
Devam dip rakam yukarıda 31 aşağıda 29
............
Toplam rakam ise yukarıda 298 aşağıda ise 251
Doğru rakamlar üstteki tabloda. Aşağıdaki tabloda bir hata var ama anlamadık formülleri kontrol ettik doğru gibi görünüyor.

 

[Necdet]

c15 deki formülü 17. satırdan itibaren saydırıyorsunuz.

Oysa ilk tabloda 3. satırdan başlıyor.

 

[Necdet]

Dip rakamlar oldu mu acep?