Sütunda Bolt olan hücrelerin toplamını almak

[Colibri]

Başlıkta da dediğim gibi bir Sütunda yer alan Bolt olarak yazılmış hücrelerin içindekilerin toplamını alıp en alta yazmak mümkün mü?

 

[Emir Hüseyin Çoban]

. . .

A sütunu için kodlar:

Sub kod()
Application.ScreenUpdating = False
son = [a65536].End(3).Row
Top = 0

For i = 1 To son

If Cells(i, "a").Font.Bold = True Then
Top = Top + Cells(i, "a")
Else
End If
Next i

Range("a" & son + 1) = Top
Application.ScreenUpdating = True
End Sub

. . .

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kullanıcı tanımlı fonksiyonu da kullanabilirsiniz.

Boş bir modüle uygulayın.

Function BOLD_TOPLA(Alan As Range)
    Dim Veri As Range

    Application.Volatile True
    
    For Each Veri In Alan
        If Veri.Font.Bold = True Then
            BOLD_TOPLA = BOLD_TOPLA + Veri.Value
        End If
    Next
End Function

Hücrede aşağıdaki şekilde kullanabilirsiniz.

=BOLD_TOPLA(A1:A100)

 

[Colibri]

Süpersiniz çok teşekkürler.