Dim wfTOPLA As WorksheetFunction ve set etme

[hsayar]

Dim wfTOPLA As WorksheetFunction

Set wfTOPLA = WorksheetFunction.Sum

şeklinde denedim ama hata veriyor, amacım

Cells(9, "M").Value = WorksheetFunction.Sum(Range("M10:M20"))
şeklinde yazım yerine

Cells(9, "M").Value = wfTOPLA(Range("M10:M20"))
yıkarıdaki gibi yazımdır. yardımlarınız için teşekkürler

 

[hsayar]

güncel ilginize şimdiden teşekkürler

 

[hsayar]

güncel yardımlarınız için şimdiden teşekkürler

 

[hsayar]

güncel yardımlarınız için şimdiden teşekkürler

 

[Haluk]

Alternatif-1:

Sub Test()
    Set WF = WorksheetFunction
    MsgBox WF.Sum(Range("M10:M20"))
End Sub

Alternatif-2:

Sub Test2()
    MsgBox wfTOPLA(Range("M10:M20"))
End Sub
'
Function wfTOPLA(MyRng As Range)
    wfTOPLA = WorksheetFunction.Sum(MyRng)
End Function

 

[hsayar]

teşekkürler