Formülün vba şekli

[sirkülasyon]

=EĞER(DEĞİL(TOPLA(F4:F6)>50);TOPLA(F4:F6);"Hata")

Makro kaydet ile yaptığım zaman exceli kilitliyor. Rica etsen bu formülün makro şekli için yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    If WorksheetFunction.Sum(Range("F4:F6")) > 50 Then
        MsgBox "Hata"
    Else
        MsgBox WorksheetFunction.Sum(Range("F4:F6"))
    End If
End Sub

Yada

Sub test2()
    MsgBox IIf(WorksheetFunction.Sum(Range("F4:F6")) > 50, "Hata", WorksheetFunction.Sum(Range("F4:F6")))
End Sub

 

[sirkülasyon]

Var Olasın. Yardımınız İçin Teşekkür ederim