Hücrede Yazılı Makroyu Çağırmak

[tuvons]

Arkadaşlar merhaba,

For döngüsü içinde belirli kurallar dahilinde farklı bir modüldeki(Modül ismi "Kontroller") makroyu çağırmak istiyorum. Burada "D" sütununda şehir isimleri, "G" sütununda "Kontrol Edilecek" veya "Kontrol Edilmeyecek" kriteri ve "H" sütununda "kontrol001" vb gibi devam eden kontrol makro isimleri var.
Benim istediğim for döngüsü içinde "D" sütunundaki şehir ismi "ANKARA" ve "G" sütununda "Kontrol Edilecek" yazılı olan satırlar için "H" sütununda yazılı makroyu çağırmak. Bunu nasıl yapabiliriz? Benim yazdığım kodda call kısmı hata(Compile error: Expected Sub, Function or Property) veriyor.

For i2 = 2 To sonsatir2
    If ws00.Cells(i2, 4) = "ANKARA" And _
       ws00.Cells(i2, 7) = "Kontrol Edilecek" Then
       kontrolmakrono = "Kontroller." & ws00.Cells(i2, 8)
       Call kontrolmakrono
    End If
Next i2

 

[uzmanamele]

Merhaba

Bunun gibi bir şey mi istiyorsunuz.
Sayfa1 A1'de makro1
Sayfa1 A2'de makro2
Sayfa1 A3'de makro3

Sub makro1()
MsgBox "makro1 çalıştı"
End Sub
Sub makro2()
MsgBox "makro2 çalıştı"
End Sub
Sub makro3()
MsgBox "makro3 çalıştı"
End Sub

Sub makro4()
For i = 1 To 3
makro = Sheets("Sayfa1").Cells(i, 1)
Run makro
Next
End Sub

 

[tuvons]

Merhaba @uzmanamele

Evet yazdığınız gibi bir şey istiyorum ama sizinki de hata veriyor.

 

[alicimri]

Eğer D13 hücresinde goster yazıyorsa, makro5deki kod goster makrosunuda çalıştırır.

Sub Makro5()
Run Range("d13").Value
End Sub

Sub goster()
MsgBox 456
End Sub

 

[alicimri]

NOT: Makroların tek bir modülde yada ayrı ayrı modüllerde olması fark etmez, çalıştırmak için makro ismi yeter.

 

[tuvons]

teşekkürler @alicimri

 

[uzmanamele]

Merhaba @uzmanamele

Evet yazdığınız gibi bir şey istiyorum ama sizinki de hata veriyor.

Merhaba
Kod hata vermez, siz bir şeyi eksik yapıyorsunuzdur.

Ya da boşverin benim yazdığım kodları.
Kendi kodlarınızı kullanın, Call yerine Run yazın