Hücreye makro atamak

[acolkesen1]

Merhaba arkadaşlar.. Forumda hücreye makro atamak ile ilgili birkaç çözüm buldum ama benim sorum onlardan biraz daha farklı. Çözüm önerileri bir sayfadaki tek bir hücreye makro atamayı gerektiriyor. Veya Sn Leventm in gönderdiği aşağıdaki kodda sütundaki herhangi bir hücreye tıklandığında makro çalışıyor.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 3 Then
'........
End If
End Sub
Benim yapmak istediğim şu:
1- Aynı sayfadaki birden fazla hücreye farklı makrolar atamak..
2- Yukarıdaki kodda .... şeklinde belirtilen boşluğa kodun tamamını değil de " apt_08 " şeklinde makro adını yazarak çalıştırmak mümkün müdür?
İlgilenen arkadaşlara şimdiden teşekkürler..

 

[Mahmut Kök]

Aşağıdaki örnekte A5 ve E15 hücreleri çift tıklanınca, adı verilen makrolar çalışır. (Makro adını yazmanız yeterli.)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Address = "$A$5" Then
'Makro adı
End If
 
If ActiveCell.Address = "$E$15" Then
'Makro adı
End If
End Sub

 

[acolkesen1]

Değerli mesleki, ilginize teşekkür ederim, yazdığınız kodlar işlevini yerine getirdi. Elinize sağlık..

 

[rekkezum]

ellerıne saglık kullanıslı bır ıslem ....