Renklere göre Eğersay

[megapascal]

arkadaşlar,

örnek olması amaçlı eklediğim tabloda bazı sütunlar kırmızı ile boyalı, benim istediğim tabloyu bütün olarak seçip kırmızılar hariç sadece siyah yazıların olduğu kısımlarda eğersay formulünü uygulamak.

yardımlarınız için şimdiden teşekkürler

 

[asi_kral]

arkadaşlar,

örnek olması amaçlı eklediğim tabloda bazı sütunlar kırmızı ile boyalı, benim istediğim tabloyu bütün olarak seçip kırmızılar hariç sadece siyah yazıların olduğu kısımlarda eğersay formulünü uygulamak.

yardımlarınız için şimdiden teşekkürler

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub renksizleri_say_1967()
'Konu       :   Kırmızı Renksiz Olanları Say
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi, kral
Dim a, b, c
For asi = 3 To 10
For kral = 3 To 5
If Cells(asi, kral) <> "" And Cells(asi, kral).Font.Color <> vbRed Then
a = a + 1: End If: Next: Next: Range("D12") = a
MsgBox "Renksizleri Saydım" & vbLf _
& "Sonuç ( " & a & " )", vbInformation, "asi_kral_1967"
End Sub

Eki inceleyiniz_?

 

[megapascal]

asi kral teşekkürler, fakat makro dışında excel formulü var mı?

 

[asi_kral]

asi kral teşekkürler, fakat makro dışında excel formulü var mı?

Makro dışında bir çözüm bulamazsınız. Ama bazı arkadaşlar Ktf ( Kullanıcı Tanımlı Fonksiyon ) yazabilirler belki o sizin için daha kullanışlı olabilir.
http://www.excel.web.tr/f122/kullanycy-tanymly-fonksiyon-ornekleri-t49919.html
Bu Linkte bir kaç tane örnek kod bulabilirsiniz

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak 2007 ve sonrası versiyonlarda renge göre filtreleme bulunuyor. Dilediğiniz rengi filtreleyerek ALTTOPLAM formülü ile işlemler yapabilirsiniz.