- Katılım
- 16 Mart 2018
- Mesajlar
- 2
- Excel Vers. ve Dili
- türkçe
İyi günler arkadaşlar office 2010 kullanıyorum. İş yerinde ay içinde işe gidip gitmeyen kişi bazlı hücre rengi dolgusuna göre saydırma yapıyorum. Yalnız kod hücre dolgusunu değiştirdiğimde otomatik olarak güncellenmiyor. Tekrardan belirlediğim aralığa gelip güncellemem gerekiyor. Kod aşağıdaki gibidir. Örn. =RenkSay(A1:A8;A1) kullanarak A9 aralığına yazdırıyorum aralıkta A7 dolgu rengini değiştirdiğim zaman kendiliğinden A9 kendini güncellesin istiyorum.
Function RenkSay(Rng As Range, RngColor As Range) As Integer
Dim Cll As Range
Dim Clr As Long
Clr = RngColor.Interior.Color
For Each Cll In Rng
If Cll.Interior.Color = Clr Then
RenkSay = RenkSay + 1
End If
Next Cll
Function RenkSay(Rng As Range, RngColor As Range) As Integer
Dim Cll As Range
Dim Clr As Long
Clr = RngColor.Interior.Color
For Each Cll In Rng
If Cll.Interior.Color = Clr Then
RenkSay = RenkSay + 1
End If
Next Cll