Çalışma sayfasındaki sayfaları birleştirmek

[okankaya]

arkadaşlar merhaba

Elimde a b c d olarak 3 adet excel dosyası var

bunların içindede adana, adıyaman ....., düzce olarak sayfalar mevcut

a dosyasında 20 sayfa
b dosyasında 22 sayfa
c dosyasında 18 sayfa
d dosyasında 19 sayfa


sayfa mevcut durumdadır.
Ben bunları iller adı altında bir dosyada birleştirip tüm sayfaları da harfe
göre sıralamak istiyorum.

Nasıl yapabiliriz ?
Bana yardımcı olabilir misiniz ?

 

[dEdE]

Merhaba,
İller adında boş bir dosya oluşturup, aşağıdaki kodları bu dosyada modüle yapıştırdıktan sonra bu dosyayı sayfaları almak istediğiniz dosyalarla aynı klasöre kaydedin. Makroyu çalıştırınca istediğinizi yapar.

Sub BaskaDosyadanSayfalarıAl()
    Application.ScreenUpdating = False
    Yol = ThisWorkbook.Path & "\"
    Set COfs = CreateObject("Scripting.FileSystemObject")
For Each Dosya In COfs.GetFolder(Yol).Files
    If Dosya.Name <> ThisWorkbook.Name Then
    Set WBook = Workbooks.Open(Yol & Dosya.Name)
        For i = 1 To WBook.Sheets.Count
            WBook.Sheets(i).Copy ThisWorkbook.Sheets("Sayfa1")
        Next
    WBook.Close 0
    End If
Next

For i = 1 To Sheets.Count
    For j = 1 To Sheets.Count - 1
        If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
            Sheets(j).Move After:=Sheets(j + 1)
        End If
    Next j
Next i

    Application.ScreenUpdating = True
    MsgBox "İşlem Tamam...", vbInformation, "dEdE " & Application.UserName & "'e Başarılar Diler..."
End Sub

 

[ELİFAYSİMA]

bu siteden ben konuşacak kimseyi bulamıyorum

acemilere hiç yadım eden yokmudur

 

[ELİFAYSİMA]

ben daha nasıl tablo ile size nasıl soru soracağım

 

[Excelmy]

ben daha nasıl tablo ile size nasıl soru soracağım

Link: http://www.excel.web.tr/attachment.php?attachmentid=144241&d=1357680517

 

[okankaya]

Merhaba,
İller adında boş bir dosya oluşturup, aşağıdaki kodları bu dosyada modüle yapıştırdıktan sonra bu dosyayı sayfaları almak istediğiniz dosyalarla aynı klasöre kaydedin. Makroyu çalıştırınca istediğinizi yapar.

Sub BaskaDosyadanSayfalarıAl()
    Application.ScreenUpdating = False
    Yol = ThisWorkbook.Path & "\"
    Set COfs = CreateObject("Scripting.FileSystemObject")
For Each Dosya In COfs.GetFolder(Yol).Files
    If Dosya.Name <> ThisWorkbook.Name Then
    Set WBook = Workbooks.Open(Yol & Dosya.Name)
        For i = 1 To WBook.Sheets.Count
            WBook.Sheets(i).Copy ThisWorkbook.Sheets("Sayfa1")
        Next
    WBook.Close 0
    End If
Next

For i = 1 To Sheets.Count
    For j = 1 To Sheets.Count - 1
        If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
            Sheets(j).Move After:=Sheets(j + 1)
        End If
    Next j
Next i

    Application.ScreenUpdating = True
    MsgBox "İşlem Tamam...", vbInformation, "dEdE " & Application.UserName & "'e Başarılar Diler..."
End Sub

eline sağlık hocam teşekkür ediyorum

 

[dEdE]

bu siteden ben konuşacak kimseyi bulamıyorum
acemilere hiç yadım eden yokmudur ....ben daha nasıl tablo ile size nasıl soru soracağım

Sayın ELİFAYSİMA,
Burası yardımlaşma sitesidir. Mutlaka yardım eden birileri olur.
"...konuşacak.." sözünüz chat anlamına geliyorsa bunu bulamazsınız.
Sorunuzu/sorununuzu ilgisiz mesajların altına eklemek yerine, ilgili bölümde yeni bir başlık açıp; Ne istediğinizi düzgün bir Türkçe ile ve yazım kurallarına dikkat ederek yazarsanız, yardımcı olunur.
Nasıl yeni başlık açılacağını, nasıl dosya ekleneceğini, forumun kurallarını bilmiyorum diyorsanız buraya bakabilirsiniz.
Hoşçakalın