ilk sayfanın belli bir kesimini kitabın diğer sayfalarına kopyalama

[meda58]

sub kopyala()
Sheets("GENEL PERSONEL").Range("A1:E75").Copy
Dim sh As Worksheet
For Each sh In Worksheets
Range("A1:E75").PasteSpecial
Application.CutCopyMode = False

Next

MsgBox "Kopyalama Yapıldı..!!"



End Sub



yukarıdaki kodu ilk sayfa (GENEL PERSONEL) hariç kitabın diğer sayfalarına sütün ve satır aralığını hiç bozmadan tüm verileriyle beraber nasıl kopyalaya bilirim
kopyalamada istediğim sayfaları hariç tutabilirmiyim.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?

Sub kopyala()
Sheets("GENEL PERSONEL").Range("A1:E75").Copy
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "GENEL PERSONEL" Then
sh.Range("A1:E75").PasteSpecial
End If
Next
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"


End Sub

 

[veyselemre]

Sub kopyala()
    Sheets("GENEL PERSONEL").Range("A1:E75").Copy
    
    Dim sh As Worksheet
    
    For Each sh In Worksheets
        Select Case sh.Name
            Case "Sheet2", "Sheet4", "Sheet5" 'Hariç sayfalar
            Case Else
                sh.Range("A1").PasteSpecial
        End Select
    Next
    
    Application.CutCopyMode = False
    
    MsgBox "Kopyalama Yapıldı..!!"

End Sub

 

[meda58]

Merhaba,

İstediğiniz bu mu?

Sub kopyala()
Sheets("GENEL PERSONEL").Range("A1:E75").Copy
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "GENEL PERSONEL" Then
sh.Range("A1:E75").PasteSpecial
End If
Next
Application.CutCopyMode = False
MsgBox "Kopyalama Yapıldı..!!"


End Sub

harika çalışıyor

 

[meda58]

Sub kopyala()
    Sheets("GENEL PERSONEL").Range("A1:E75").Copy
   
    Dim sh As Worksheet
   
    For Each sh In Worksheets
        Select Case sh.Name
            Case "Sheet2", "Sheet4", "Sheet5" 'Hariç sayfalar
            Case Else
                sh.Range("A1").PasteSpecial
        End Select
    Next
   
    Application.CutCopyMode = False
   
    MsgBox "Kopyalama Yapıldı..!!"

End Sub

harika çalışıyor