Hücredeki makro adı olan makroyu çalıştırma

[tactless]

Merhabalar

A1 den A10 kadar hücre içerisinde daha öncede oluşturduğum makrolarımın adı bulunmaktadır.

Sonuç hangi hücre çıktı ise içerisinde yazan makro isimli makrom çalışsın. Daha açık yazmam gerekirse;

Module1.sms yerine

Module1.Sheets("Yetki").Range("A" & i) gibi birşey yazmak istiyorum. Fakat doğru bir ifade olmuyor. (Range("A" & i) = A5 hücresinde sms yazdığını farz edelim.)

Böyle birşey mümkün mü? Mümkünse Nasıl yazmalıyım. Arka arka if yazmak istemiyorum.

Destek için teşekkürler. Saygılarımla.

 

[Ömer]

Merhaba,

Yanlış anlamadıysam Run komutunu kullanarak yapabilirsiniz.
Açıklamanızı tam anlayamadığım için küçük bir örnek hazırladım. Sms komutunu çalıştırmanız gerekiyor.

Sub A1()
    MsgBox "A1 Değeri"
End Sub

Sub A2()
    MsgBox "A2 Değeri"
    
End Sub

Sub A3()
    MsgBox "A3 Değeri"
End Sub

Sub Sms()
    i = 2
    Application.Run "Module1." & Sheets("Yetki").Range("A" & i).Value   
End Sub

.

 

[tactless]

Application.Run "Module1." & Sheets("Yetki").Range("A" & i).Value

Tam istediğim buydu. Teşekkür ederim Üstad.

 

[dellerlim]

Sayın tactless kodların uygulanmış halinin olduğu örnek bir dosya yükleyebilir misiniz, ihtiyacı olanlar faydalansınlar.

 

[tactless]

Sub MWork()
Dim yetkisay As Long
Dim kullanici
yetkisay = WorksheetFunction.CountA(Sheets("Yetki").Range("A1:A10000"))
For i = 2 To yetkisay

If Environ("username") = Sheets("Yetki").Range("a" & i) Then
Sheets("servis").Select
Application.Run "Module7." & Sheets("Yetki").Range("F" & i).Value
Sheets("Teknik").Select
Exit Sub
End If
Next i
End Sub

Yetki sayfasının A kolonunda pc adı, F kolonunda ise çalışacak olan makronun adı yazmaktadır.

Saygılarımla.