Formülleri makrolaştırma

[cannet005]

=TOPLA(E12:E2202)-(TOPLA(C12:C2202))
=TOPLA(J12:J2202)-(TOPLA(K12:K2202))
=TOPLA(Q12:Q2202)-(TOPLA(P122202))
=+F2203+H2203+I2203

300 sekmeli bir excel sayfamda yukarıdaki formülleri kullanmaktayım. Veri girişi yapıldıkça dosya açılışı aşırı derecede yavaşlamakta. Otomatik hesaplamayı kapattım ama elle hesaplama çok uğraştırıyor. Onun için yukarıdaki formülleri Makro ile otomatik hesaplama yaptırabilirmiyiz. Bu konuda ki yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kod yukarda verdiğiniz sıradaki işlemleri E1, J1, Q1 ve F1 hücrelerine yapar:

Sub topla()
[E1] = WorksheetFunction.Sum([E12:E2202]) - WorksheetFunction.Sum([C12:C2202])
[J1] = WorksheetFunction.Sum([J12:J2202]) - WorksheetFunction.Sum([K12:K2202])
[Q1] = WorksheetFunction.Sum([Q12:Q2202]) - WorksheetFunction.Sum([P12:P2202])
[F1] = [F2203] + [H2203] + [I2203]
End Sub

İhtiyacınıza göre güncelleyebilirsiniz.