e topla formülü yerine makro

[ERENYILMAZ]

Bir çalşma kitabında e topla formülü ile başka sayfalardan bilgiler alınıp toplanmakta.
=etopla(sayfa4!C:C;C2;sayfa4!F:F) Fornülünün yerine makro kullanabilir miyiz? Bu konuda yardımlarınızı bekliyorum. İyi akşamlar.

 

[alibaskan]

Örnek dosya eklerseniz yardımcı olabilirim.

 

[vagabond28]

İyi akşamlar

Ekteki tabloya yapılabilirmi acaba, yardımcı olabilirmisiniz.

 

[ERENYILMAZ]

Sayın alibaskan, ilginize teşekkür ederim.
Örnek dosye ektedir

 

[Halit TÜRK]

Sayın alibaskan, ilginize teşekkür ederim.
Örnek dosye ektedir

Selam,

D ve E Borç ve Alacak formülleri için;

Sub ETOPLA()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    [D:E].ClearContents
    For i = 2 To [A65536].End(3).Row
    Cells(i, "D").Value = WorksheetFunction.SumIf(Sheets("Sayfa3").Range("C:C"), Sheets("Sayfa6").Cells(i, "C").Value, Sheets("Sayfa3").Range("F:F"))
    Cells(i, "E").Value = WorksheetFunction.SumIf(Sheets("Sayfa4").Range("C:C"), Sheets("Sayfa6").Cells(i, "C").Value, Sheets("SAYFA4").Range("F:F"))
    Next
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "Tamamlandı...", vbOKOnly
End Sub

 

[ERENYILMAZ]

Sayın Halit TÜRK
İlginize çok teşekkür ederim,kusuruma bakmayın Sizler kadar usta değilim. Bu makroyu nereye uygulamam gerekiyor?

 

[Halit TÜRK]

Dosyanız ektedir..

 

[ERENYILMAZ]

Teşekkür ederim Sayın Hali TÜRK

 

[Halit TÜRK]

Rica ederim, iyi çalışmalar...