formül içinde makro çalıştırma

[mnz]

=eğer(a1=1;1;(SAYI isimli makroyu çalıştır))

 

[Kemal Demir]

Umarım İşinizi görür

Sub başla()
if Range("a1").value=1 then
Application.run "SAYI"
Else
MsgBox("Koşul Geçersizdir")
End if
End Sub


Zannedersem Siz Direkt olarak Formul içerisinden çalışsın diyorsunuz.
Yukarıdaki Örnek Formul sonucuna Göre Calısıyor umarım buda işinizi görür