Birden fazla Makro Çalıştırmak

[ademb28]

İyi Akşamlar;

Şöyle birşey yapmak istiyorum yardımlarınızı rica ediyorum,

- Stok ve stok1 isminde makrolarım var,öncelikle stok sonrada stok1 isimli makro çalışması gerekiyor.Bunu aşağıdaki kodla yapıyorum.

Sub calıstır ()
Call Stok
Call stok1
End sub

yapamadığım kısım ise;

Stok isimli makroda b1 hücresine manuel 1 yazıp enter tuşuna bastıktan sonra stok makrosunu çalıştırıp daha sonra stok1 isimli makroyu çalıştırmam gerekiyor.

Her defasında manuel 1 den 50 ye kadar sonra 60 tan 70 e kadar daha sonra 100 yazıp çalıştırmak yerine makro ile yapmak mümkünmüdür?


Range("B1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B2").Select
Application.Run "STOK.xls'!stok"
Application.Run "STOK.xls'!stok1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "2"
Range("B2").Select
Application.Run "STOK.xls'!stok"
Application.Run "STOK.xls'!stok1"
.....
.....


Yukarıdaki kayıt makrosu ile işimi halledebilirim ama daha kısa kodla nasıl yapabileceğimi bilmiyorum.Yardımlarınız için şimdiden teşekkür ediyorum.Saygılar,

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

    For i = 1 To 100
        Cells(1, 2).Value = i
        Call stok
        Call stok1
        If i = 50 Then i = i + 9
        If i = 70 Then i = 99
    Next
End Sub

 

[mancubus]

şöyle bir şey olabilir:

Sub test()

For i = 1 To 50
    Range("B1") = i
    Application.Run "STOK.xls'!stok"
    Application.Run "STOK.xls'!stok1"
Next

For i = 60 To 70
    Range("B1") = i
    Application.Run "STOK.xls'!stok"
    Application.Run "STOK.xls'!stok1"
Next

Range("B1") = 100
Application.Run "STOK.xls'!stok"
Application.Run "STOK.xls'!stok1"

End Sub

 

[ademb28]

dEdE ve mancubus, üstadlarım sizler bir harikasınız.Teşekkür ediyorum emeğinize sağlık.her iki kodda sorunsuz çalışıyor.Allah zihin açıklığı versin.Saygılar

 

[mancubus]

ben doğrudan sizin kayıt makrosu üzerinden gittim.

sn dede'nin kodları benim tercih ettiğim stil. onları kullanın.