başa sayfadan saydırma

[murat rasim seres]

İstatistik yaptığım bir excel sayfası var. Sayfa1 in B6 hücresine sayfa2 nin A2:A sütunundaki 1 sayısını saydırmak, yeni aynı sayfa1 in C6 hücresine sayfa2 nin B2:B sütunun daki verileri de toplamak istiyorum. Bunu eğer ve topla formülleri ile yapıyorum ancak dosya çok büyük olduğundan kayıt etmede ve açılışlarda çok zorlanıyor. benim sizden ricam bunu makro olarak yazabilirmiyiz.
veya daha önce çalışılmış kod var ise linkin alabilirmiyim.

 

[murat rasim seres]

Merhabalar;
Herkese kolay gelsin daha önceki notumda başlık olarak yazdığımı yanlışlıkla gönderdim mümkünse "Başka Sayfadan sütun içindekileri saydırma" olarak düzeltirseniz sevinirim.
Saygılarımla.
Ayrıca:
sayfa2nin HL sütünundaki 11 rakamlı olan değerleri topla sayfa1deki 1.satır 2.colona yani b2 ye yazma kodu
Sub Topla()
Sheets("Sayfa1").Cells(1, 2) = WorksheetFunction.SumIf([sayfa2!HL:HL], "11")
olarak yapılabiliyor
Bir diğeride
sayfa2nin HL sütünundaki tüm rakamları topla sayfa1 deki 1.satır 2.colona yani b2 ye yazma kodu
Sheets("Sayfa1").Cells(1, 2) = WorksheetFunction.Sum([sayfa2!HL:HL])

 

[murat rasim seres]

şimdi aynı sütunda aynı metinleri saydırmak için makroya çalışmaktayım
yeni başladığımdan yanlışlarım olabailir. şimdiden teşekkürler
herkese kolaygelsin