Bu hata nasıl düzelir acaba?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Topla()
    Dim wf As WorksheetFunction
        For x = 1 To 8
            Cells(5 + x, 4) = wf.Sum(Cells(6, 3).Resize(x, 1))
        Next x
End Sub

Bu makroda niçin hata mesajı alıyorum ve nasıl çözümleyebilirim?
Saygılarımla

 

[bmutlu966]

Aşağıdaki şekillerde kullanabilirsiniz.

Sub Topla()
    Dim wf As WorksheetFunction
    
    Set wf = WorksheetFunction
        For x = 1 To 8
            Cells(5 + x, 4) = wf.Sum(Cells(6, 3).Resize(x, 1))
        Next x
End Sub

Sub Topla()

        For x = 1 To 8
            Cells(5 + x, 4) = WorksheetFunction.Sum(Cells(6, 3).Resize(x, 1))
        Next x
End Sub

 

[YUSUF44]

wf yerine Worksheetfunction yazınca düzeldi. Nedenini bilmiyorum.

 

[Tevfik_Kursun]

Çok teşekkür ederim arkadaşlar, nasıl dikkatimden kaçtı anlamadım.
Saygılarımla