SAYFALARDA BELİRLENEN ALANDAN VERİ ALMA(kapalı dosyalardan)

[Erdinç FIRTINA]

Değerli Forum üyeleri,
Forumdan alınan aşağıdaki kodlar ile açık olan bir dosyanın 1-31 arasındaki sayfalarından ve belirlenen bir alandaki verileri alınıyor. Acaba, kapalı olan çok sayıdaki dosyalardan aynı şekilde veri alma nasıl yapılabilir?(örnek dosyalar ektedir)
Forumdan kapalı dosyalardan veri alma örneklerine göre uyarlamaya çalıştım ama maalesef beceremedim.
Yardımlarınız için şimdiden teşekkürler !!!

Sub dbağışlar_rapor()
Dim sno As Long, sat2 As Long, sat As Long, sonsat As Long
Dim i As Integer, k As Long
Application.ScreenUpdating = False
Sheets("33 BAĞIŞLAR").Range("A3:G65536").ClearContents
sno = 1: sat2 = 3
For i = 1 To Worksheets.Count
If Sheets(i).Name >= 1 And Sheets(i).Name <= 31 Then
sat = Sheets(i).Cells(52, "H").End(xlUp).Row
If sat > 51 Then sat = 51
If sat >= 42 Then
For k = 42 To sat
adr1 = Range(Cells(k, "G"), Cells(k, "J")).Address
adr2 = Range(Cells(sat2, "B"), Cells(sat2, "F")).Address
Sheets("33 BAĞIŞLAR").Cells(sat2, "A").Value = sno
Sheets("33 BAĞIŞLAR").Range(adr2).Value = Sheets(i).Range(adr1).Value
Sheets("33 BAĞIŞLAR").Cells(sat2, "E").Value = Sheets(i).Range("A1").Value
sat2 = sat2 + 1
sno = sno + 1
Next k
End If
End If
Next i
sonsat = Sheets("33 BAĞIŞLAR").Cells(65536, "F").End(xlUp).Row
Sheets("33 BAĞIŞLAR").Cells(sonsat + 1, "F").Value = "TOPLAM...YTL...:"
Sheets("33 BAĞIŞLAR").Cells(sonsat + 1, "G").Value = _
WorksheetFunction.Sum(Sheets("33 BAĞIŞLAR").Range("D3" & sonsat))
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub