Çalışma sayfadaki Sekmeleri Toplu Kopyalamak Makro

[praxumit]

Aşağıdaki resimdeki gibi 1,2,3,4,5 Sekmelerini Toplu Olarak 200 - 300 tane kopyalama makrosu var mı acaba Yardım edebilirmisiniz....

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sayfa_Kopyala()

    Dim i As Integer, sayfalar()
    
    sayfalar = Array("(1)", "(2)", "(3)", "(4)", "(5)")'sayfa adları
    
    On Error GoTo atla
    
    For i = 1 To 200 ' 200 kopyalama yapar
        Sheets(sayfalar).Copy After:=Sheets(Sheets.Count)
    Next i
    
    Exit Sub
atla:
    MsgBox "Sayfalardan bulamadığım var", , "Kontrol Edin"
    
End Sub

.

 

[praxumit]

Teşşekkür Ederim...

 

[darkgod]

Merhaba,

Bu şekilde deneyin.

Sub Sayfa_Kopyala()

    Dim i As Integer, sayfalar()
    
    sayfalar = Array("(1)", "(2)", "(3)", "(4)", "(5)")'sayfa adları
    
    On Error GoTo atla
    
    For i = 1 To 200 ' 200 kopyalama yapar
        Sheets(sayfalar).Copy After:=Sheets(Sheets.Count)
    Next i
    
    Exit Sub
atla:
    MsgBox "Sayfalardan bulamadığım var", , "Kontrol Edin"
    
End Sub

.

Merhaba
Bu kodu çalıştırmayı deniyorum fakat sürekli "Sayfalardan bulamadığım var" hatası alıyorum. Sayfa adlarını değiştirdim, hem kendi verdiğim isimle hem de gerçek sayfa ismi ile (Sayfa3 gibi) yine de çalışmadı.

Aslında tek sayfayı herşeyi ile birebir aynı şekilde 74 kez kopyalamak istiyorum.

Yardımcı olursanız sevinirim.

Not ve Düzeltme: Şu şekilde değiştirmek gerekiyormuş parantez olmayacak şu anda çalışıyor. sayfalar = Array("(1)", "(2)", "(3)", "(4)", "(5)")'sayfa adları
sayfalar = Array("1", "2", "3", "4", "5")'sayfa adları