- Katılım
- 25 Eylül 2006
- Mesajlar
- 611
- Excel Vers. ve Dili
-
Windows-XP_TR
Ofis-2003_TR
- Altın Üyelik Bitiş Tarihi
- 26/10/2022
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
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