Fonksiyon içinden makro çalıştırabilirmiyiz?

[mozkara]

Merhaba arkadaşlar,
makroları her şekilde çalıştırabiliyoruz. aktif hücrede, aktif sayfada, hücre değeri şu iken vb. ama benim öğrenmek istediğim, bir formül içinde gerekli şartlar sağlandıktan sonra ilgili makroyu nasıl çalıştırabiliriz.
Örnek:
=eğer(a1=100;Makro adı;"")

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
If [b1].Value = "Makro adı" Then
MsgBox "Makro adı makrosu çalıştı"
End If
End Sub

 

[Orion1]

Merhaba arkadaşlar,
makroları her şekilde çalıştırabiliyoruz. aktif hücrede, aktif sayfada, hücre değeri şu iken vb. ama benim öğrenmek istediğim, bir formül içinde gerekli şartlar sağlandıktan sonra ilgili makroyu nasıl çalıştırabiliriz.
Örnek:
=eğer(a1=100;Makro adı;"")

Merhaba.
Makro ile yazılmış KTF(Kullanıcı Tanımlı Fonksiyon) kulanabilirsiniz.
Aşağıdaki KTF 'yi bir modüle kopyalayın.
ve Bir Hücreye =KTF(A1) yazın.
A1 hücresine 100 girin ve sonucu gözlemleyin.

Function KTF(a As Range)
If a = 100 Then MsgBox "Hücre 100"
End Function

 

[Necdet]

ya da :

Bir fonksiyon yazılabilir (Kullanıcı Tanımlı)

Function Mesaj()
        MsgBox "Merhaba"
End Function

Excelde de :

=IF(A1=100;mesaj();"")
=EĞER(A1=100;mesaj();"")

 

[mozkara]

hepinizin verdiği cevaplar için teşekkür ederim.
Necdet Yesertener'in verdiği cevap bana daha mantıklı geldi ama excelde formül içine yazacağımız makro ille de kullanıcı tanımlı fonksiyon mu olması gerekiyor.

 

[Levent Menteşoğlu]

hepinizin verdiği cevaplar için teşekkür ederim.
Necdet Yesertener'in verdiği cevap bana daha mantıklı geldi ama excelde formül içine yazacağımız makro ille de kullanıcı tanımlı fonksiyon mu olması gerekiyor.

Hayır, normal bir fonksiyon kullanıp, fonksiyonun bulunduğu hücredeki değere göre makroyu çalıştıran bir kodu, worksheet_calculate veya worksheet_change olayına yazabilirsiniz.

 

[mozkara]

leventm
rica etsem konuyu biraz açabilirmisin?

 

[mozkara]

leventm yazdığını ilk önce anlamamıştım ama biraz araştırınca olayı çözdüm.
teşekkür ederim.