Kapalı Dosyalardaki Sayfaları Tek Çalışma Kitabında Birleştirme

[mukoli]

Merhabalar aşağıdaki kod istediğimi yapmaktadır. Fakat aynı isimdeki sayfayı örnek,örnek (1) olarak almaktadır.Aynı isimdeki sayfayı temizleyip tekrar alması lazım mümkünmüdür . Kolay gelsin dilerim

Sub ConslidateWorkbooks()
'Created by Sumit Bansal from Online Excel Tips & Tutorials
Dim FolderPath As String
Dim Filename As String
Dim Sheet As Worksheet
Application.ScreenUpdating = False
FolderPath = "\\195.142.107.17\merkez\Fark Klasor\"
Filename = Dir(FolderPath & "*.xls*")
Do While Filename <> ""
Workbooks.Open Filename:=FolderPath & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

İçerdeki döngü bölümünü aşağıdaki gibi değiştirip deneyiniz.

    For Each Sheet In ActiveWorkbook.Sheets
        On Error Resume Next
        Set Sh = Nothing
        Set Sh = ThisWorkbook.Sheets(Sheet.Name)
        On Error GoTo 0
        If Not Sh Is Nothing Then
            Sheet.Cells.Copy Sh.Cells
        Else
            Sheet.Copy After:=ThisWorkbook.Sheets(1)
        End If
    Next Sheet

 

[mukoli]

Çok teşekkür ederim elinize sağlık iyi günler dilerim