Birden çok sayfadaki verileri bir araya alma hakkında yardım.

[mbasoguz]

Arkadaşlar konumu okuyarak yardımda bulunan herkese şimdiden teşekkürler.
Benim bir sorunum var bir excel kitabı oluşturdum bu kitapta yaklaşık olarak 600 sayfa var ve sayfa isimlerinin hepsi birbirinden farklı. Ben bu sayfadaki verilerin sadece s4:bz33 aralığında bulunan verileri başka bir çalışma kitabında alt alta gelecek şekilde bir sayfaya çekmek istiyorum. Fakat bağlantılı olması gerekli ki ilerleyen zamanda tüm sayfaların bulunduğu excel kitabıma yeni bir sayfa eklediğimde ya da diğerleri üzerinde değişiklik yaptığım zaman bu değişikler yeni yaptığım (makro ile verileri çektiğim) kitaba yansısın. Bu konuda bana yardım edebilecek biri çıkarsa minnettar kalım. Bu konu ile ilgili bir kod buldum aslında ama pek işe yaramadı.

Sub muratsimitci()
Dim yol As String, dosya As String
Dim syf As Worksheet, kop As Range, yap As Integer
Dim bas As Range, bit As Range
yol = ThisWorkbook.Path & "\"
dosya = Dir(yol & "*.xls")
If dosya = ThisWorkbook.Name Then GoTo a:
Do
Workbooks.Open yol & dosya
ThisWorkbook.Activate
For Each syf In Workbooks(dosya).Worksheets
Set bas = Workbooks(dosya).Worksheets(syf.Name).Range("A2")
Set bit = Workbooks(dosya).Worksheets(syf.Name).Range("A1").SpecialCells(xlCellTypeLastCell)
yap = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1
Set kop = Workbooks(dosya).Worksheets(syf.Name).Range(bas, bit)
kop.Copy Range("A" & yap)
Next syf
Workbooks(dosya).Close False
a:
dosya = Dir
Loop Until dosya = ""
End Sub

 

[mbasoguz]

Sanırım çok zor bir soru sordum