DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub HESAPLA_1()
For Each Alan In Selection
If Not IsEmpty(Alan.Value) Then Alan.Value = Evaluate("=" & Alan.Formula & "")
Next
End Sub
Sub HESAPLA_2()
For Each Alan In Selection
If Not IsEmpty(Alan.Value) Then Alan.Formula = "=" & Alan.Formula
Next
End Sub
En başa = "Eşittir" Koyun.
Formül:
=466+233+315+70+51