DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
module kopyalayacağım nedir cevabınızda bir şey göremedim
Function RenkTopla(Dizi As Range, Renk_Tipi)
Toplam = 0
Application.Volatile
For Each Hucre In Dizi
If Hucre.Font.ColorIndex = Renk_Tipi.Font.ColorIndex And _
Hucre.Interior.Color = Renk_Tipi.Interior.Color And IsNumeric(Hucre) = True And _
Hucre.Font.Bold = Renk_Tipi.Font.Bold And _
Hucre.Font.Italic = Renk_Tipi.Font.Italic And _
Hucre.Font.Underline = Renk_Tipi.Font.Underline And _
Hucre.Font.Size = Renk_Tipi.Font.Size And _
Hucre.Font.Name = Renk_Tipi.Font.Name Then
Toplam = Toplam + Hucre
End If
Next
RenkTopla = Toplam
End Function