merhaba örneğin A sütunundaki renkli yazılmış yazıları tıplamasını istiyorum mesela sarı renkte yazılan yazıların toplaması gibi ben forumda bir makro buldum ama bunu uyguladığım zaman exceli inanılmaz derecede yavaşlatıyor ben makroyuda yazayım
Function RYSAY(Aralık As Range, Kriter As Range)
On Error Resume Next
Dim Hücre As Range
Application.Volatile
For Each Hücre In Aralık
If Hücre.Font.ColorIndex = Kriter.Font.ColorIndex And IsNumeric(Hücre) Then
Sonuç = Sonuç + 1
End If
Next Hücre
RYSAY = Sonuç
End Function
yardımcı olursanız sevinirim iyi çalışmalar şimdiden teşekkürler
Function RYSAY(Aralık As Range, Kriter As Range)
On Error Resume Next
Dim Hücre As Range
Application.Volatile
For Each Hücre In Aralık
If Hücre.Font.ColorIndex = Kriter.Font.ColorIndex And IsNumeric(Hücre) Then
Sonuç = Sonuç + 1
End If
Next Hücre
RYSAY = Sonuç
End Function
yardımcı olursanız sevinirim iyi çalışmalar şimdiden teşekkürler