Benim istediğim adete göre makronun tekrarlanması.

[yilmazarslan]

Makronun benim istediğim adet kadar çalışmasını istiyorum .

 

[Nazmi YAZICI]

Mrb,

Sub Tekrarla()
Dim i, Kac_Kere As Integer
i = 1
Kac_Kere = 5
Do While i <= Kac_Kere
    MsgBox "Bu mesaj " & Kac_Kere - i & " kere daha karşınız gelecek", vbCritical, "Deneme"
    i = i + 1
Loop
End Sub

 

[yasso38]

Merhaba,

Yukarıdaki kodu aşağıdaki koda nasıl uygulayacağız. Aşağıdaki kodun mesela 40 defa tekrarlanmasını istiyorum.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    Sheets("örnek-2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("örnek-1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("BİLGİLERİ BURAYA GİRİN").Select
    Application.ScreenUpdating = False
    Range("AL7:AN7").Select
    If [al7] < 41 Then [al7] = [al7] + 1
    Sheets("BİLGİLERİ BURAYA GİRİN").Select
    Range("AL2:AN2").Select
End Sub

 

[Seyit Tiken]

Bu şekilde de kullanılabilir.

Sub Düğme1_Tıklat()
For s = 1 To 5
MsgBox (s) & " " & "Excel.Web.tr"
Next
End Sub

 

[yasso38]

Merhaba,

Verdiğiniz kodu benim verdiğim kodun neresine uygulamam gerekiyor.

CommandButton'a bastığım zaman, CommandButton'daki kodun 40 defa tekrarlanmasını istiyorum.

 

[Mahmut Bayram]

Kodlarınızı buraya yazar mısınız.

 

[yasso38]

Kodlarınızı buraya yazar mısınız.

Daha önce yazmıştım ama, tekrar yazıyorum.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
    Sheets("örnek-2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("örnek-1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("BİLGİLERİ BURAYA GİRİN").Select
    Application.ScreenUpdating = False
    Range("AL7:AN7").Select
    If [al7] < 41 Then [al7] = [al7] + 1
    Sheets("BİLGİLERİ BURAYA GİRİN").Select
    Range("AL2:AN2").Select
End Sub