Hücre değeri değişince makro değişsin

[seyfiseval]

selam
a1="1" ise makro1 çalışsın
a1="2" ise makro2 çalışsın
.....
....
.....
15 tane makro çalıştırıcam a1 deki değere göre
yardımlarınız için şimdiden teşekkürler.

 

[bedri41]

selam
a1="1" ise makro1 çalışsın
a1="2" ise makro2 çalışsın
.....
....
.....
15 tane makro çalıştırıcam a1 deki değere göre
yardımlarınız için şimdiden teşekkürler.

Sayfanin kod bölümüne yapıştırıp 15 makronuz için çoğaltırsınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Sheets("sayfa1").[A1]) Is Nothing Then Exit Sub
If [A1] = "1" Then
Call Makro1
End If
If [A1] = "2" Then
Call Makro2
End If
End Sub

Kolay Gelsin

 

[seyfiseval]

Allah senden razı olsun arkadaş...
teşekkür ederim.

 

[Orion1]

alternatif.

Run (Range("A1").Text)