Sayfa adlarına göre toplam alma

[relaxim]

Merhabalar,
Değerli Excell üstadları ekteki küçü örnekte,
Buton ile güncellediğimde; yeni sayfa eklenmişse onu alta eklemesini, F1 deki toplamı Bx yazmasını ve alfabetik sıraya göre sıralamasını yaptırabilirmiyim?

Saygılarımı sunuyorum.

 

[Ziynettin]

Buton ile güncellediğimde; yeni sayfa eklenmişse onu alta eklemesini, F1 deki toplamı Bx yazmasını ve alfabetik sıraya göre sıralamasını yaptırabilirmiyim?

Merhaba,
F1 deki toplamı Bx yazmasını nedir anlamadım.
Ekli dosyada anladığım kadarıyla yardımcı olmaya çalıştım.

 

[relaxim]

Sn tasmed ilgniz için teşekkürler.
Bx teki x oradaki hangi satır nosu ise onun için öyle yazmıştım.

Eklentiyi birazdan incleyeceğim.

 

[relaxim]

Sn tasmed eklenen sayfayı Genel sayfasına ekleyip sıralama tamam.
Diğer sayflardaki Ör:A daki F1 B deki F1 ... leri Genel Sayfasında B sütununa yazsın.

 

[Ziynettin]

.Cells(i, 2) = WorksheetFunction.Sum(Sheets(i).Range("E3:E" & Sheets(i).Range("E" & Rows.Count).End(3).Row))

kod satırı yerine aşağıdaki satırı kullanın,

.Cells(i, 2) = Sheets(i).[F1]

 

[relaxim]

Sn tasmed hızlı ve doğru yardımınız için hem tebrik hem teşekkür ediyorum.