Açıklaması olan hüceleri topla

[Mehmet Sait]

Merhabalar,

İçerisine açıklama eklenen hücreleri toplatabilmek için ne yapmam gerek ?

Teşekkürler

 

[Murat OSMA]

Merhabalar,

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim evn As Range, topla#
    For Each evn In Cells.[COLOR="Blue"]SpecialCells[/COLOR]([COLOR="Red"]xlCellTypeComments[/COLOR])
        topla = topla + evn.Value
    Next evn
    MsgBox topla
    topla = Empty: Set evn = Nothing
End Sub[/SIZE][/FONT]

 

[Mehmet Sait]

Merhabalar,

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim evn As Range, topla#
    For Each evn In Cells.[COLOR="Blue"]SpecialCells[/COLOR]([COLOR="Red"]xlCellTypeComments[/COLOR])
        topla = topla + evn.Value
    Next evn
    MsgBox topla
    topla = Empty: Set evn = Nothing
End Sub[/SIZE][/FONT]

Teşekkür ederim

 

[Murat OSMA]

Rica ederim, iyi günler.​