dolgu olmayanı topla formülü

[ozserdar]

dolgu olmayanı toplatmak için bir formül lazım ustalar. yardımlarınızı rica ediyorum.

 

[ÖmerBey]

Formüllerle biçim kontrolü yapamazsınız.
Özel kod kullanmanız gerekir. Aşağıdaki kullanıcı tanımlı fonksiyonu deneyiniz. Dolgu rengi olmayan hücrelerdeki sayıları toplar.

Boş bir modüle aşağıdaki kodu kopyalayınız.

Function DOLGUSUZTOPLAM(aralık)
For Each hücre In aralık
    If hücre.Interior.ColorIndex = xlNone Then DOLGUSUZTOPLAM = DOLGUSUZTOPLAM + hücre.Value
Next
End Function

Daha sonra

=DOLGUSUZTOPLAM(B2:D2)

şeklinde kullanabilirsiniz.

 

[ozserdar]

Çok teşekkür ederim üstadım