Soru Bir sütundaki verileri belirli aralığa göre toplama yapıp yan sütuna yazdırma

[hadromer]

Merhaba,
Aynı dosya içerisinde bir çok sayfadan oluşan verilerim var.
Sayfaları oluşturmak için forumdan yardım almıştım.
Sayfaların tüm sütun pozisyonları sabit. A-B-C-D-E sütunları her sayfada var. Örnek dosyada yer alan "acat" sayfasındaki gibi I-J-K-L sütunları tüm sayfada aynı pozisyonda olacak. L sütunu zaten formüllü. K sütunu doldukça formül çalışıyor.
Bir sınıflandırma ölçeğim var. (<15, 15-35, 35-55... gibi)
E sütunu verilerinin bu ölçek aralığında yer alan satır sayısına göre D sütunundaki verileri toplayıp K sütununda yer alan ölçeğe göre yazdırmak istiyorum.

örnek dosyada yer alan "acat" sayfasında I-J-K-L sütunundaki hücrelere tıklarsanız formüllü hücreleri görebilirsiniz. Yapılan ve yapılmak istenen işlemi daha iyi ifade etmek için manuel olarak doldurdum.

Örneğin E2 ve E3 hücresindeki veriler <15 sınıfında olduğu için K3 hücresine D2+D3 işleminin sonucunu yazdık.
başka bir örnek;
E8-E11 arasındaki veriler 35-<55 sınıfında olduğu için K5 hücresine D8-D11 aralığındaki verilerin toplamını yazdık.

Bunu dosyada yer alan tüm sayfalara uygulamam gerekiyor.
Yardımcı olabilir misiniz ?
Teşekkür ederim.

 

[muygun]

Merhaba;
Sayfalarınızdaki gri hücreleri tüm sayfalarınıza uygulayın.
İyi çalışmalar.

 

[hadromer]

Merhaba Sn. muygun,
yardımınız için çok teşekkür ederim. Düzenlemeler çok güzel olmuş. Ancak benim "şimdilik" 400'den fazla sayfam var. Acaba gri renkli F sütununu tüm sayfalara daha hızlı uygulamanın bir yolu var mıdır ?

Ayrıca I-J-K-L sütunlarında yer alan tablo diğer sayfalarda yok. Ben örnek dosyaya manuel olarak ekledim o tabloyu da. Bu koınuda da yardımcı olabilir misiniz?

 

[hadromer]

aşağıdaki gibi bir kod var. A1 hücresindeki veriyi tüm sayfalardaki a1 hücresine kopyalıyor. Bunu kendi dosyamızda F-L arası sütunları kapsayacak şekilde yeniden düzenlemeyi denedim. Ancak başarılı olamadım

Sub deneme()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).[a1].Value = Worksheets("sayfa1").[a1]
Next i
End Sub

 

[hadromer]

Ben şimdilik manuel olarak çözdüm. Konu başlığındaki problemim çözülmüştür. Teşekkür ederim