101 sayfaki belirli hücrelerden rapor oluşturma

[harziyan]

Dosyam ekte, 101 adet sayfanın belirli hücrelerindeki verileri sayfa1'de alt alta özetlemek istiyorum. Ek Bilgi; Örnek dosyamda sayfa sayısı 101 ama diğer dosyalarımda sayfa sayısı değişiyor. Yardımlarınız için şimdiden teşekkürler.
Not; İllaki uzmanlarımızın el atmasını beklemeyelim arkadaşlar, orta seviyede bilgisi olan arkadaşlardan herhangi bir fikir veren olursa (gırgır geçerler diye düşünmeden) deneme yanılma yolu ile belki çözüme ulaşabiliriz.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub raporla()
Dim i, s As Long
[a2:h10000] = Empty
s = 2
Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
         Cells(s, "a") = Sheets(i).Range("h5").Value
         Cells(s, "b") = Sheets(i).Range("u5").Value
         Cells(s, "c") = Sheets(i).Range("aı5").Value
         Cells(s, "d") = Sheets(i).Range("h7").Value
         Cells(s, "e") = Sheets(i).Range("h7").Value
         Cells(s, "f") = Sheets(i).Range("u6").Value
         Cells(s, "g") = Sheets(i).Range("u4").Value
         Cells(s, "h") = Sheets(i).Range("u7").Value
        s = s + 1
    Next
Application.ScreenUpdating = True
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[harziyan]

Mükemmel olmuş Ziya Hocam, ellerinize sağlık, işimi ne kadar kolaylaştırdığınızı bir bilseniz...:bravo:

 

[N.Ziya Hiçdurmaz]

Bir şey değil Sayın harziyan.

 

[tahsinanarat]

Alınacak verinin kriteri ne olacağını anlayamadım ben.

Ben anlayana kadar mükemmel cevap gelmiş zaten

 

[ugur.onal2]

Raporlama Yapmak istiyorum zaman kazanmak için

Günlük iş takibi için yapmış olduğumuz excel tablosunda gün sonunda raporlama yapmak için süzme işlemi yaparak ayırt edip daha sonrada diğer sayfaya kopyala yapıştır yapmaktan ise raporlama yapmak için nasıl yardımcı olursun:hey::dusun:uz