Excel Vba Sayfa içeriğini bakşa çalışma kitabına aktarma

[ESEZEN]

Merhabalar,
Aşağıdaki kodda Talep-Tedarik Raporu.xlsm adlı çalışma kitabına sürekli sayfa ekleyerek kopyalıyor.
İstediğim FTL Data adında sayfama sadece verileri kopyalasın.
Yardımlarınız rica ederim.


Private Sub copya_Click()
Dim s1 As Worksheet, s2 As Worksheet, wb As Workbook
Set s1 = ActiveSheet
Application.DisplayAlerts = False
If Workbooks.Open("\\trdtcl374\ortak\TUBORG GENEL TAKİP DOSYALARI\Talep-Tedarik Raporu.xlsm").ReadOnly = True Then
Workbooks("Talep-Tedarik Raporu.xlsm").Close False
End If
Application.DisplayAlerts = True
Set wb = Workbooks("Talep-Tedarik Raporu.xlsm")
wb.Worksheets.Add after:=wb.Sheets(wb.Sheets.Count)
Set s2 = wb.ActiveSheet
s1.Cells.Copy
s2.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Range("A1").Select
Set s1 = Nothing
Set s2 = Nothing
Set wb = Nothing
MsgBox "Sayfa kopyalandı." & vbLf


End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub copya_Click()
    Dim s1 As Worksheet, s2 As Worksheet, wb As Workbook
    
    Set s1 = ActiveSheet
    
    Application.DisplayAlerts = False
    If Workbooks.Open("\\trdtcl374\ortak\TUBORG GENEL TAKİP DOSYALARI\Talep-Tedarik Raporu.xlsm").ReadOnly = True Then
        Workbooks("Talep-Tedarik Raporu.xlsm").Close False
    End If
    Application.DisplayAlerts = True
    
    Set wb = Workbooks("Talep-Tedarik Raporu.xlsm")
    Set s2 = wb.Sheets("FTL Data")
    
    s1.Cells.Copy
    s2.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    Range("A1").Select
    
    Set s1 = Nothing
    Set s2 = Nothing
    Set wb = Nothing
    
    MsgBox "Sayfa kopyalandı." & vbLf
End Sub

 

[ESEZEN]

Çok teşekkür ederim oldu