X hücresinde ki makroyu çalıştır.

[desıgner1]

İyi günler değerli forum sakinleri.
Ekli dosyada küçük bir örnek hazırladım.
Aşağıda ki gibi bir makroya ihtiyacım var.
Değerli yardımlarınızı bekliyorum.
Sevgi/Saygı

F sütununu 5 satırdan itibaren döngüye alıyoruz son dolu hücreye kadar
Eğer döngünün D sütunu dolu ise ;
ilgili satırda I ve N sütunlarındaki makroları çalıştırıyoruz.

Örneğimize göre;
Döngü İzmir e geldiğinde makro2 çalışacak
Döngü İstanbula geldiğinde Makro5 Makro2 Makro1 Makro7 ve Makro3 çalışacak
Döngü samsun a geldiğinde Makro3 ve makro1 çalışacak.

lakin makrolar çalışırken makro ismi kullanmayacağız.
I ve N sütunlarını döngüye alacağız. Eğer hücre boş değilse şartını koyup
ona göre makroyu çalıştıracağız.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Calistir()
    
    Dim i As Long, j As Byte
    
    For i = 5 To Cells(Rows.Count, "F").End(xlUp).Row
        If Cells(i, "D") <> "" Then
            For j = 9 To 14
                If Cells(i, j) <> "" Then
                    Application.Run "Module1." & Cells(i, j).Value
                End If
            Next j
        End If
    Next i
    
End Sub

.

 

[desıgner1]

Teşekkür ederim Ömer Bey.
Elinize zihninize sağlık.