ETOPLA Formüllü işlem

[mbattal]

Arkadaşlar Merhaba,
Sizlere yine işim düştü kusura bakmayın
Eklediğim dosyadaki 'HARCANAN' Sayfasındaki Aylar göstergesinin altındaki ETOPLA formülüyle yaptığım işlem 'ÇIKIŞ' sayfasından veri alarak işlem yapıyor.
Bu işlemi makrolu olarak yapabilirmiyiz.
Satır sayısı çok fazla olduğundan formülle yapınca excel yavaşlıyor.
(harcanan sayfası yaklaşık 1500 satır, çıkış sayfası yaklaşık 20000 satır olacak)
Şimdiden teşekkürler
Hakkınızı Helal edin
Saygılarımla

 

[Halit TÜRK]

Merhabalar..

O sütunu için bir düğmeye bağlayarak çalıştırırsanız sonuç veriyor..
O sütununda karşılık olduğu için örnek aldım. e826 arasında olması için nasıl bir değişiklik yapılmalı bilemiyorum. Başlangıç olması için yeterli diye düşünüyorum. İlgili arkadaşlar devamını getirir zannederim.. İyi çalışmalar.

Sub MYSUMIF5()
Set s1 = Sheets("ÇIKIŞ")
Range("o826").ClearContents
For i = 8 To 26 's1.[b65536].End(3).Row
Cells(i, "o").Value = WorksheetFunction.SumIf(s1.[f2:f9998], Cells(i, "ac"), s1.[d2:d9998])
Next i
Set s1 = Nothing
End Sub

 

[Halit TÜRK]

Tekrar merhabalar..
Bu makro tam sonuç veriyor.. Sadece biraz daha kısa bir şekilde nasıl yazılır bende merak ediyorum...

 

[mbattal]

Sayın htrk,
Çok teşekkür ederim

 

[Halit TÜRK]

Rica ederim, ne mutlu çözüm olduysa...