Sutunlar arasındaki koyu renkli olan rakamların toplanması

[musaagac]

A1:A100 sutun arasındaki rakamların bazıları koyu renkli yapıldı.
A101 sutununa A1:A100 arasında koyu renk olanların toplamını almak istiyorum

 

[Vedat Özer]

Selamlar,

İnceleyin.
http://www.excel.web.tr/showthread.php?t=87042

 

[musaagac]

Formul olarak ne yazacağız ekteki dosyada bulamadım

 

[Vedat Özer]

Selamlar,

Ben daha öndecen buna benzer soru soruldugu için o sorurunun linkini vermiştim.

Sayın,Yurttaş hocamızın çalışması ektedir...

 

[musaagac]

örnek çalışma

Ektedeki çalışmadaki istiyorum

 

[musaagac]

örnek çalışma

istediğim çalışma ekte. koyu renklileri toplanacak

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanıcı tanımlı fonksiyon uygulanmıştır. Kodu boş bir modüle ekleyin.

Option Explicit
 
Private Function KTOPLA(Veri As Range)
    Dim Hücre As Range
    
    Application.Volatile True
    
    For Each Hücre In Veri
        If Hücre.Font.Bold = True And IsNumeric(Hücre.Value) Then
            KTOPLA = KTOPLA + Hücre.Value
        End If
    Next
End Function

 

[Vedat Özer]

Selamlar,

Korhan hocam vermiş oldugunuz kodlar sadece koyu renkli hücreleri toplamını alıyo ?
Kusura bakmayın mantıgı tam anlayamadım .

 

[Korhan Ayhan]

Selamlar,

Vedat bey soruda istenen hücrenin zemin rengine göre toplam almak değil. Yazı kalınlığına göre toplam alınmak isteniyor. Sizin kullanmış olduğunuz KTF zemin rengine göre hesap yapmaktadır.