Maksimum fonksiyonunun makro ile yazılması

[gokhan83]

Herkese merhaba;
Maksimum fonksiyonu ile tablomun F ve G sütununda data sayfasından en son ödeme tarihini ve yükleme tarihini buluyorum.Tablonun orjinali 5000 satır bu sebeple hesaplamalar çok uzun sürüyor. Yapmak istediğim bu fonksiyonları makro ile hesaplatıp hücreye sadece son değeri yazmak istiyorum. Doğru kodların yazılması konusunda yardımcı olabilir misiniz?

 

[hamitcan]

Bu şekilde deneyin.

Sub Makro1()
    For i = 3 To [a65536].End(3).Row
        Cells(i, "h").FormulaArray = "=MAX(IF(GData!R2C1:R65500C1=" & Cells(i, 1) & ",IF(GData!R2C4:R65500C4=""Ödeme"",GData!R2C2:R65500C2)))"
        Cells(i, "h") = Cells(i, "h").Value
    Next
End Sub

 

[gokhan83]

İlginiz için teşekkür ederim. Sorun çözüldü.