Sayfalardan veri toplamak

[necip54]

İyi günler,
İçinde 100 sayfa olan bir Excel çalışma kitabında son sayfanın adı OZET olacak ve solundaki bütün sayfalardan aşağıda belirtilen hücrelerdeki değerleri alarak OZET sayfasında önceden belirtilen yerlere bir MAKRO ile yazdırarak butun sayfalardaki bilgileri OZET sayfasında alt alta gelecek şekilde bir tablo oluşturmak istiyorum. MAKRO her çalıştığında b2:h101 aralığını silmesi lazım.
örnek tablo eklidir.

Yardımcı olacak herkese şimdiden teşekkürler ediyorum.
necip54

 

[necip54]

sayfalardaki bilgilerin ve gidecekleri yerlerin hücreleri aşağıdaki gibi olacaktır, soru metninde yazmayı unutmuşum. Ã?zür dilerim.


1,2,3,4,5.......100 numaralı sayfalardaki
E18 deki değer OZET sayfasında B2 ye
E19 deki değer OZET sayfasında C2 ye
E20 deki değer OZET sayfasında D2 ye

E24 deki değer OZET sayfasında F2 ye
E25 deki değer OZET sayfasında G2 ye
E26 deki değer OZET sayfasında H2 ye

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ecd10a5585]Sub listele()
Set s1 = Sheets("ozet")
s1.[b2:h65536].ClearContents
For a = 1 To Sheets.Count
If Sheets(a).Name = "ozet" Then Exit Sub
For b = 2 To 4
sonsat = s1.Cells(65536, b).End(3).Row
s1.Cells(sonsat + 1, b) = Sheets(a).Cells(b + 16, "e")
Next
For c = 6 To 8
sonsat = s1.Cells(65536, c).End(3).Row
s1.Cells(sonsat + 1, c) = Sheets(a).Cells(c + 18, "e")
Next
Next
End Sub[/vb:1:ecd10a5585]

 

[necip54]

Çok teşekkür ederim Sn Leventm, işimi çok iyi gördü.

 

[aydgur]

leventm,
snLeventm ; sayfa adları isim olan sayfalarımın e2 ;e3;e4....gibi hücrelerimdeki değerleri stok sayfasına bir makro ile nasıl yazdırabilirim? stok adları asütununda yaklaşık 75 adet olarak yazılı bir düğme yardımı ile hepsinin karşısına sayfalarımdaki e1;e2;e3..gibi değerlerin yazılmasını istiyorum ,böyle birşey mümkünmü? saygılarımla

 

[Levent Menteşoğlu]

Mümkün elbette, dosyanızın kısaltılmış bir örneğini eklerseniz yardımcı olmaya çalışalım.