Farklı Çalışma Sayfalarını Birleştirme

Katılım
7 Şubat 2009
Mesajlar
94
Excel Vers. ve Dili
2003 ingilizce
Merhaba;

Forumda konu ile ilgili araştırma yaptım, yakın olan konular olsada tam olarak kendi durumuma çözüm bulamadım, sizlerden kendi durumum üzerinde destek rica ederim.

Aynı formatta(aynı başlık isimleriyle) 12 adet çalışma sayfalarım mevcut; ben bunları tek bir sayfa altında tek başlık satırı altında toplamak istiyorum.

Örnek;

Her hafta içine sayfalar yüklenen bir ana klasörüm var, içinde alt klasörler mevcut, ocak,şubat,mart, nisan ve daha sonra mayıs, haziran...da eklenecek, her bir klasör altında ise haftalık klasörler var, 01.01.2010, 08.02.2010... gibi, bu klasörlerin içinde ise 12şer adet faklı çalışma kitabı mevcut.

Öyle bir makro yazmak istiyorumki, ana klasör altında AnaData.xls adlı bir sayfa oluşturayım bu sayfada bir buton olsun, ben o butona bastığımda, öncelikle haftalık klasörler kendi aralarında tek bir haftayı, daha sonra haftalar, tek bir ayı, daha sonra aylar ise tek bir datayı verecek şekilde birleşşin.

Aslında makroyu şu anda elimde bulunan dosyalar için yapabiliyorum ancak her yeni eklenecek ay alt klasörünüde görebilecek bir makro konusunda yardımınızı rica ederim.
 
Katılım
7 Şubat 2009
Mesajlar
94
Excel Vers. ve Dili
2003 ingilizce
Konuyla ilgili bir fikir verebilecek biri dahi yok mudur acaba?
 
Katılım
7 Şubat 2009
Mesajlar
94
Excel Vers. ve Dili
2003 ingilizce
Terkar merhaba;

Sanırım konuda detay olmayınca pek anlatamadım, ekte detaylı bir şekilde anlatıp örnek dosya koydum, onları inceleyip bana yardımcı olabilirseniz çok sevinirim.
 

Ekli dosyalar

Katılım
21 Ocak 2006
Mesajlar
2
Sub veritoplama()
sayfasayisi = Sheets.Count
For i = 2 To sayfasayisi
Sheets(i).Select
Range("a2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(1).Select
satirsayisi = Range("a1").CurrentRegion.EntireRow.Count
Cells(satirsayisi + 1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
Cells.Select
Cells.EntireColumn.AutoFit
Range("a1").Select

sayfaadi = ActiveSheet.Name
Sheets(sayfaadi).Copy
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\" & sayfaadi & ".xlsx"
End Sub



'umarım işine yarar
 
Üst