Makro Kodunu 2 Kere RUN Etmek

[baydeniro]

Merhaba arkadaşlar. Bir makro kodunu hücrede belirlenen sayıda RUN etmek mümkün mü. Örneğin VBA kodunun tanımı ACNEX. L1 hücresinde 3 yazılı ise bu kodu 3 kere peş peşe çalıştırsın.

Örnek dosya ekte.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub MAKRO_ÇALIŞTIR()
    Dim Say
 
    Do
        Application.Run "hedef.xlsm!ACNEX"
        Say = Say + 1
    Loop While Say < Range("L1")
End Sub

Ya da;

Sub MAKRO_ÇALIŞTIR()
    Dim Say
    
    Do
        Application.Run "hedef.xlsm!ACNEX"
        Say = Say + 1
        If Say> Range("L1") Then Exit Do
    Loop
End Sub

 

[Korhan Ayhan]

Merhaba,

Bu da başka bir alternatif;

Sub MAKRO_ÇALIŞTIR()
    Dim X
 
    For X = 1 To Range("L1")
        Application.Run "hedef.xlsm!ACNEX"
    Next
End Sub

 

[baydeniro]

Çok teşekkür ederim Sayın Korhan Ayhan. Bu kod ile şu sonuç alınabilir mi ?
Kod önce 1 kere çalışacak.
2. turda peş peşe 2 kere çalışacak.
3. turda peş peşe 3 kere çalışacak.
4. turda peş peşe 4 kere çalışacak. gibi sonucu sağlayana kadar her turda 1 fazla RUN olarak devam edecek.

 

[ExcelF1]

Korhan Hocam'ın affına sığınarak, şu şekilde bir deneyiniz.

Sub MAKRO_ÇALIŞTIR()
Dim a
For a = 1 To Range("L1")
For b = 1 to a
Application.Run "hedef.xlsm!ACNEX"
Next:Next
End Sub

 

[halit3]

Alternatif kod;

Sub ACNEX()
Dim i
For i = 1 To Cells(1, "L").Value
ActiveWindow.ActivateNext
Next
End Sub

 

[baydeniro]

Sayın üstadlarımız Korhan Ayhan, ExcelF1 ve halit3 çok çok teşekkür ederim. Çok ilginç ve çok işe yarar bir kod oldu. Sağlıcakla kalın, Allah sizlere zeval vermesin.

 

[ExcelF1]

Amin, cümlemize.