Renkli Sayıların Toplanması

[cerselog]

Değerli arkadaşlar liste içerisinde bazı rakamların özel durumları olduğu olduğu için farklı renkler vermek zorunda kalıyorum, örneğin kırmızı. özellik arz eden sayıların toplamını almak için yani kırmızı renkli sayıları tek tek toplamaktan başka yapabileceğim bişey varmı. yani çalışma sayfasının çeşitli hücrelerinde bulunan renkli sayıları toplatmak istiyorum.teşekkürler

 

[Necdet]

Merhaba,

KTF: Renkli Hücreleri Toplama ve Sayma linkini inceleyebilirsiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

H1 Hücresinin yazı fontunu hangi renkle boyarsanız o renkteki sayıların toplamını I1 hücresine alır

Sub TOPLA()
Dim DEG As Range
Range("I1") = ""
For Each DEG In Range("A1:D30")
If DEG.Font.Color = Range("H1").Font.Color Then
Range("I1") = Range("I1") + DEG
End If
Next
End Sub

 

[Bagcivan]

H1 Hücresinin yazı fontunu hangi renkle boyarsanız o renkteki sayıların toplamını I1 hücresine alır

Sub TOPLA()
Dim DEG As Range
Range("I1") = ""
For Each DEG In Range("A1:D30")
If DEG.Font.Color = Range("H1").Font.Color Then
Range("I1") = Range("I1") + DEG
End If
Next
End Sub

Hocam ne yaptınız siz ya konu benimle ilgili degilde sizi tebrik etmeden geçemiyecegim Tebrikler hocam

 

[kralinitanimam]

valla bende tebrik ederim çok işe yarayacak bir makro.

yanlız ben

For Each DEG In Range("A130") bu satırı

For Each DEG In Range("A11000")

yaptığım zaman

Range("I1") = Range("I1") + DEG bu satırda hata veriyor. neden olur. nerde yanlış yapıyorum.

daha doğrusu anlatmak istediğim bu makroyu bütün exel sayfasına uygulayamadım. yardımcı olursanız sevinirim..

 

[Necdet]

Merhaba,

Yukarıda verdiğim linkte Kullanıcı Tanımlı Fonksiyon var. O fonksiyonu tüm excel dosyalarında kullanabilirsiniz. E tabi Eklenti olarak kaydederseniz.

 

[trust59]

Süper bir konu. Süper bir çözüm