Soru Makro Yardım

[bulentkars]

Arkadaşlar Merhaba,
Aşağıdaki kod ile 1.xlsm sayfasını For i = 1 To 12 çoğaltıyorum, ancak ben to 12 dinamik yapmak istiyorum, şöyleki makroyu çalıştırdığımda inputbox gelecek ben içerisine 12 yazdığımda 1 den 12 ye çoğaltacak. 20 yazdığımda 20 ye kadar çoğaltacak. şu anda makrınun içerisine girerek müdahale ediyorum, aynı şekilde inputbax içinde görülen varsayılan 12 olmasını istiyorum. yardımcı olabilirseniz sevinrim. İyi çalışmalar

Sub kopyala()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Local Error Resume Next
    
    
    For i = 1 To 12
        ad = "O:\Ortak\TALIMATLAR\TALIMAT\" & i & ".xlsm"
        ActiveWorkbook.SaveAs Filename:=ad
If Err Then
MsgBox ad & " adlı sayfanız açık olabilir, kaydedilmedi", vbExclamation, "Bülent Kars Der ki :"
Err.Clear
End If
    Next
     Application.ScreenUpdating = True
     Application.DisplayAlerts = True
    MsgBox "Kopyalam İşleminiz tamamlanmıştır.", vbInformation, "Bilgi"
    
    

End Sub

 

[Muzaffer Ali]

Merhaba.

Sub kopyala()
    Dim rkm As String
    Dim i As Integer
    Dim Ad As String
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    On Error Resume Next
    rkm = InputBox("Lütfen bir rakam giriniz.", , 12)
    If rkm = "" Then
        Exit Sub
    ElseIf Not IsNumeric(rkm) Then
        MsgBox "Lütfen rakam giriniz."
        Exit Sub
    End If
    For i = 1 To rkm
        Ad = "O:\Ortak\TALIMATLAR\TALIMAT\" & i & ".xlsm"
        ActiveWorkbook.SaveAs Filename:="O:\Ortak\TALIMATLAR\TALIMAT\" & i & ".xlsm"
        If Err Then
            MsgBox Ad & " adlı sayfanız açık olabilir, kaydedilmedi", vbExclamation, "Bülent Kars Der ki :"
            Err.Clear
        End If
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "Kopyalam İşleminiz tamamlanmıştır.", vbInformation, "Bilgi"
End Sub

 

[bulentkars]

Muzaffer Ali Bey
Çok teşekkür ederim. Elinize sağlık