• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

renk toplama sorun

  • Konbuyu başlatan Konbuyu başlatan yunka
  • Başlangıç tarihi Başlangıç tarihi
Katılım
23 Ocak 2011
Mesajlar
110
Excel Vers. ve Dili
2007
örnek dosya excel 2007 dir renklendirilmiş sütunu koşullu biçimlendirmeyle yaptım daha sonra renkli hücreleri toplamak için renk topla formülü girdim
sonuç alamadım yardım edermisiniz.
 

Ekli dosyalar

merhaba

renktopla bir KTF dir. bu ktf yi standart bir modüle yazınız
 
Renk toplama

module kopyalayacağım nedir cevabınızda bir şey göremedim
 
module kopyalayacağım nedir cevabınızda bir şey göremedim

Kod:
Function RenkTopla(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
        Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True And _
        Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
        Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
        Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
        Hucre.Font.Size = Renk_Tipi.Font.Size And _
        Hucre.Font.Name = Renk_Tipi.Font.Name Then
        Toplam = Toplam + Hucre
    End If
Next
RenkTopla = Toplam
End Function
bu kod'u module yapıştırmanız gerekiyor.

Kod : Necdet Yeşertener Hocam'a Ait
 
Renk toplama

sayın tank ben modüle kopyaladım fakat acemi olduğum için
kullanamadım dosyada örnek olarak yaparmısınız size zahmet
teşekkür.
AYRICA bu hücreleri koşullu biçimlendirmenin dışında başka bir şekilde renklendirme yapsak sorun çözülür ama o hücrelerdede
formül var.birde sayın yurttaş şöyle bir çözüm önermiş fakat o konudaki dosya olmadığından kendime nasıl uyarlarım

sayın yurrtaşın öenerisi......
Dosyanızdaki renklerle ilgili kullanıcı tanımlı fonksiyon koşullu biçimlendirme için geçerli değil. Yeni bir macro ile bana pek kolay bir şey görünmüyor.


Pratik bir yöntemle:

G15 Hücresine;

=SUMIF($G$5:$G$8;22,5;$H$5:$H$8)

G16 Hücresine;

=SUMIF($G$5:$G$8;20;$H$5:$H$8)

G17 Hücresine;

=SUMIF($G$5:$G$8;19;$H$5:$H$8)

formüllerini yazarsnız aynı sonucu elde edersiniz.

SUMIF = ETOPLA
 
Son düzenleme:
merhaba . Alt+ f11 yapıp insert + module deyip kodu yapıştırıyorum o an makro aktif oluyo kullanabiliyorum o an ama kitabı kapatıp tekrar açtığımda makro devre dışı oluyor . makroyu kullanabilmem içi tekrar Alt+ F11 den kodu yazıyorum yani baştan makro yazıyorum.. neyi yanlış yapıyorum acaba ?
 
Dosyanızı makro içeren dosya biçiminde kayıt ederseniz istediğiniz sonuca ulaşırsınız.
 
Geri
Üst