DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Run CStr([b1])
End Sub
Sub makro1()
MsgBox "selam"
End Sub
Sub makro2()
MsgBox "merhaba"
End Sub
merhaba
bu işinizi görür mü?
A1'e veri giriniz, B2'e formül yazınız =EĞER(A1=5;"makro1";"makro2")
Kod:Run CStr([b1])
merhaba
ek dosyada kod çalışıyor, deneyiniz.