Belirli hücrlerdeki değerlerin maxı

[Carpintero]

Merhaba arkadaşlar;

5. satırda verilerimizi olduğunu varsayar isek.
Örneğin C5 F5 K5 hücrelerindeki en büyük değeri
A5 hücresine Makro ile yazdırmak istiyorum.

Bu konuda tecrübeli arkadaşların kıymetli yardımlarını
bekliyorum. Teşekkür ederim.

 

[recepkull]

Sub enbüyük()
Range("A5") = WorksheetFunction.Max(Range("C5,F5,K5"))
End Sub

 

[Carpintero]

Teşekkür ederim sayın Recep.
Elinize sağlık.

İlgili kod satırını for next döngüye alsak nasıl olurdu acaba ?

 

[Korhan Ayhan]

Döngü yerine işlemi blok halinde yaparsanız daha hızlı sonuç alırsınız.

Option Explicit

Sub Test()
    Dim Son As Long
    
    Range("A5:A" & Rows.Count).ClearContents
    Son = Cells.Find("*", , xlValues, , , xlPrevious).Row
    
    With Range("A5:A" & Son)
        .Formula = "=MAX(C5,F5,K5)"
        .Value = .Value
    End With
End Sub

 

[Carpintero]

Çok teşekkür ederim
Korhan Hocam
elinize sağlık.