Makro istediğim kadar tekrar çalışsın

[sametozyavuz]

yazmış olduğum bir makronun her seferinde benim
belirleyeceğim bir sayıda tekrar etmesini istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
sor = InputBox("Çalışma Sayısı Girin")
If sor = "" Then Exit Sub
For i = 1 To sor
Call makro_ismi
[COLOR="Green"]'veya
'makro kodlarınızı bıraya yazın[/COLOR]
Next i
End Sub

. . .

 

[sametozyavuz]

çok teşekkürler.