merhabalar.
aşağıda paylaşmış olduğum makroda hücre aralığına sonradan ilave edilen aynı renkli herhangi bir rakamı veya rakamları aynı renkli rakamların toplama hücresine anında eklemiyor. F9 tuşuyla yenileme yaptıktan sonra ekleme yapıyor.. Yardımcı olabilir misiniz ?
Public Function RENKTOPLA(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
If rng.Font.Color = pRange2.Font.Color Then
xTotal = xTotal + rng.Value
End If
Next
RENKTOPLA = xTotal
End Function
aşağıda paylaşmış olduğum makroda hücre aralığına sonradan ilave edilen aynı renkli herhangi bir rakamı veya rakamları aynı renkli rakamların toplama hücresine anında eklemiyor. F9 tuşuyla yenileme yaptıktan sonra ekleme yapıyor.. Yardımcı olabilir misiniz ?
Public Function RENKTOPLA(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
If rng.Font.Color = pRange2.Font.Color Then
xTotal = xTotal + rng.Value
End If
Next
RENKTOPLA = xTotal
End Function