formül çok agır makro yazılabilirmi?

[uguristanbul]

arkadaslar
aşagıda ekli dosyada personel prim hesaplama ile ilgili bir çalışma var kodlar sayfası personele ait data sayfasıda cari verilere kodlar sayfası b sutunu satış personelinin kodlarına ait ve ksutunu ile v sutunu arasıda saış personelinin aylık satıs raporlarını data sayfası gerekli hucrelerden alıp aylara gore kodlar sayfası k sutunu ile v sutunu arasında formule uyan hücrelere yazmakta sorun şu:
ben 45 personele kadar topla.çarpım formulü ile yaptım ancak excel acılırken zorlanmakta ki 45 personele kadar boyle oysa ben bu formülü kodlar sayfasının k ile v sutunu arasında en alta kadar kullanmak istiyorum ancak bu formülle yapmam sanırım cok zor bunun icin bir makro yazılabilirmi?yardım edecek arkadaslara simdiden tesekkur ederim

 

[Korhan Ayhan]

Selamlar,

Bu kadar çok veriyle çalışmak exceli baya bir zorlayacaktır. Umarım aşağıdaki kod işinize yarar.

Not: Satır sayısı arttıkça hesaplama zamanıda artacaktır.

Sub HESAPLA()
    Sheets("KODLAR").Select
    [K2:V65536].ClearContents
    ADRES1 = "DATA!" & "K6:K" & [DATA!L65536].End(3).Row
    ADRES2 = "DATA!" & "L6:L" & [DATA!L65536].End(3).Row
    ADRES3 = "DATA!" & "F6:F" & [DATA!L65536].End(3).Row
    For X = 2 To [B65536].End(3).Row
    For Y = 11 To 22
    TARİH1 = CLng(DateSerial(Year(Date), Y - 10, 1))
    TARİH2 = CLng(DateSerial(Year(Date), Y - 10 + 1, 0))
    KRİTER = Cells(X, 2).Address(0, 0)
    Cells(X, Y) = Evaluate("=SUMPRODUCT((" & ADRES1 & "=" & KR&#304;TER & ")*(" & ADRES2 & ">=" & TAR&#304;H1 & ")*(" & ADRES2 & "<=" & TAR&#304;H2 & ")*(" & ADRES3 & "))")
    Next
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[uguristanbul]

hocam ellerine saglık cok tesekkur ederim cok guzel olmus ancak simdi sorun su bunu nasıl otomatik olarak calıstırabilirim?
yani data sayfasına veri girişi oldugunda kodlar sayfasında otomatik olarak hesaplabilirmiyim (yani makroya calıstır demeden)?
simdiden teskkur ederim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. DATA isimli sayfada yaptığınız her değişiklikten sonra makro otomatik olarak çalışacaktır.