numaralandırılmış sayfa kopyalama

[Crazy Drake]

aynı çalışma kitabındaki "1" ve "1-" isimli sayfaları 2 2- 3 3- .... 80 80- dizilimiyle kopyalamam gerekiyor

yani "1" isimli sayfayı kopyalayacak ismi "2" olacak sonra "1-" isimli sayfayı kopyalayacak ismi "2-" olacak şekilde en son 80 ve 80- olacak şekilde son bulacak .

umarım anlatabilmişimdir. yardımcı olabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFA_KOPYALA()
    Dim X As Byte
 
    Application.ScreenUpdating = False
 
    For X = 2 To 81
        If X = 2 Then
            Sheets("1").Copy After:=Sheets(Worksheets.Count)
            ActiveSheet.Name = "1-"
        Else
            Sheets("1").Copy After:=Sheets(Worksheets.Count)
            ActiveSheet.Name = X - 1
            Sheets("1").Copy After:=Sheets(Worksheets.Count)
            ActiveSheet.Name = X - 1 & "-"
        End If
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Skorpiyon]

Sayın Crazy_Drake,

1 ve 1- sayfalarını 80 kez çoğaltmak mı istiyorsunuz ?

Korhan hocam cevaplamış ama alternatif olsun.

 

[Crazy Drake]

çok teşekkür ederim tek tek elimle yapacaktım