renk topla makrosu

[hayri tekin]

Selamlar, elimde aşağıda yazılı şekilde bir renk toplama makrosu kullanıyorum.Bu makroyu çoklu çalışma sayfasında kullanıyorum.Ancak çalışma kitabında renkte bir değişiklik yapıp hesapla dediğimde =renkli_topla($A$1;H$8:H$31) bu formül çalışmıyor, formül üzerine gelip F2 Enter yapmak zorunda kalıyorum.Bu sorunumu nasıl çözebilirim acaba ?

Function renkli_topla(renk As Range, alan As Range)
Dim toplam As Double, hcr As Range
For Each hcr In alan
If hcr.Interior.ColorIndex = renk.Interior.ColorIndex Then
toplam = toplam + hcr.Value
End If
Next
renkli_topla = toplam
End Function

 

[Korhan Ayhan]

Deneyiniz.

Function renkli_topla(renk As Range, alan As Range)
Dim toplam As Double, hcr As Range
Application.Volatile True
For Each hcr In alan
If hcr.Interior.ColorIndex = renk.Interior.ColorIndex Then
toplam = toplam + hcr.Value
End If
Next
renkli_topla = toplam
End Function

 

[hayri tekin]

Korhan hocam denedim ve oldu,çok teşekkür ediyorum; saygılar..