Soru Sayfa Çoğaltma

[okan32]

Sayfa2 den istediğim kadar aynı şablonda çoğaltmak istiyorum. ekteki örnek dosyamda yapmak istediğimi açıkladım. yardımlarınız için çok teşekkür ederim

 

[okan32]

Korhan hocamın daha önce yazmış olduğu kod işimi gördü yalnız çoğaltılan sayfalar 1-2-3 diye isimlendiriliyor ben sayfa3-Sayfa4-Sayfa5 diye isimlendirilsin istiyorum

Sub SAYFA_KOPYALA()
    İLK = Time
    SAY = InputBox("Kopyalanacak sayfa sayısını giriniz...")

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For X = 2 To SAY
        Sheets("Sayfa2").Copy After:=Sheets(Worksheets.Count)
        ActiveSheet.Name = X
        ActiveSheet.Range("A5").Value = X
    Next

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
    "İşlem süresi ; " & Format(Time - İLK, "hh:mm:ss")
End Sub

 

[okan32]

ActiveSheet.Name = "Sayfa" & X şeklinde yaparak çözdüm arkadaşlar

 

[assenucler]

Paylaşım için teşekkürler.