Değişik değereler göre çalışan değişik makrolar

[OZCANLOK]

Arkadaşlar Formada aradım fakat bulmadım bu konuda yardımcı olursanız
Çok sevinirm

A2 hücresine formul ile 1 den 25 kadar rakam getiriyoruz.

buradaki her rakama karşılıkta bir makro var

sorum şu

a2 hücresi 1 olursa ona karşılık makro çalısın 5 olursa ona karşılık gelen makro çalışsın vb.

ilginize şimdiden teşekkürler

 

[bedersu]

Sub makro1()
MsgBox "Bu 1 numaralı makro"
End Sub
Sub makro2()
MsgBox "Bu 2 numaralı makro"
End Sub
Sub makro3()
MsgBox "Bu 3 numaralı makro"
End Sub
Sub makro4()
MsgBox "Bu 4 numaralı makro"
End Sub
Sub makro5()
MsgBox "Bu 5 numaralı makro"
End Sub
Sub çağır()
If [A2] = 1 Then Call makro1
If [A2] = 2 Then Call makro2
If [A2] = 3 Then Call makro3
If [A2] = 4 Then Call makro4
End Sub

 

[OZCANLOK]

Bunu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Yapmamız mümkumü

 

[Seyit Tiken]

Bu şekilde uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a2] = 1 Then makro1
If [a2] = 2 Then makro2

End Sub