Dolgusuz Hücrelerden Toplam Alma..

Katılım
9 Nisan 2008
Mesajlar
338
Excel Vers. ve Dili
Office 2013 Plus Türkçe
Altın Üyelik Bitiş Tarihi
05.06.2019
Excel Web Ailesi Selamlar Saygılar..

Dolgusuz Hücrelerden Toplam almak istiyorum..
Örnekteki gibi G1 Hücresine Toplamı hesaplayan makro var ise çok sevinirim..

Saygılarımla..
 

Ekli dosyalar

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Merhaba, aşağıdaki KTF'yi deneyiniz.
Kod:
Function DOLGUSUZ(alan)
For Each hcr In alan
    If IsNumeric(hcr) = True And hcr.Interior.ColorIndex = xlNone Then DOLGUSUZ = DOLGUSUZ + hcr
Next
End Function
Yukarıdaki kodu boş bir modüle kopyaladıktan sonra
Kod:
=DOLGUSUZ(C2:C12)
şeklinde kullanabilirsiniz.
 
Katılım
9 Nisan 2008
Mesajlar
338
Excel Vers. ve Dili
Office 2013 Plus Türkçe
Altın Üyelik Bitiş Tarihi
05.06.2019
Eyw Hocam Süper Çalışıyor..Allah Sizden razı olsun..

Bunun Dolgulusunun formülünüde ekstradan alabilirmiyim ilerde lazım olur.
 

Emir Hüseyin Çoban

Destek Ekibi
Destek Ekibi
Katılım
11 Ağustos 2008
Mesajlar
5,893
Excel Vers. ve Dili
Office 2013 Tr - Win10 x64
. . .

Dipnot: KTF ile kullanımda hücre rengini değiştirdiğinizde formül sonucu yenilenmeyecektir.
Sonucun yenilenmesi için formül hücresinde F2 Enter yapmanız gerekir.

. . .
 
Son düzenleme:
Katılım
9 Nisan 2008
Mesajlar
338
Excel Vers. ve Dili
Office 2013 Plus Türkçe
Altın Üyelik Bitiş Tarihi
05.06.2019
Korhan Hocam Ben Bunları Görmüştüm..Benim sorduğumda renk ve font vs. göre değil dolgu ne olursa olsun toplam ile ilgili bişeydi..Gösterdiğiniz örnekler şu hücre gibiyse bunu yap gibi örnekler..Araştırma yapıyorum yani..ilginiz için teşekkürler..
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,543
Excel Vers. ve Dili
Ofis 365 Türkçe
Korhan Hocam Ben Bunları Görmüştüm..Benim sorduğumda renk ve font vs. göre değil dolgu ne olursa olsun toplam ile ilgili bişeydi..Gösterdiğiniz örnekler şu hücre gibiyse bunu yap gibi örnekler..Araştırma yapıyorum yani..ilginiz için teşekkürler..
Korhan bey'in verdiği 1. linkteki renktopla fonksiyonu aşağıdaki gibi kullandığınızda sonuca erişiyorsunuz.

Kod:
=RenkTopla(C2:C12;C8)
 
Katılım
9 Nisan 2008
Mesajlar
338
Excel Vers. ve Dili
Office 2013 Plus Türkçe
Altın Üyelik Bitiş Tarihi
05.06.2019
Necdet Hocam Ordaki makroya dikkat etmemişim özür dilerim haklısınız hocam çok güzel çalışıyor teşekkür ederim..
 
Üst