VBA de maximum kodu

[enginbora123]

Ekte koyduğum dosyada her satır için o satırdaki değerlerin maximumunu bulmak için VBA de nasıl bir kod yazabilirim? yardımcı olabilir misiniz? Teşekkürler.

 

[mmuratakgul]

Niye excel'in mak formülünü kullanmıyor sunuz? çok daha basit olur. Eke koydum.

 

[Orion1]

Dosyanız ektedir.

Sub maksimum_59()
Dim sat As Long, i As Long
sat = Cells(Rows.Count, "E").End(xlUp).Row
Application.ScreenUpdating = False
Range("D5:D" & Rows.Count).ClearContents
For i = 5 To sat
Cells(i, "D").Value = WorksheetFunction.Max _
(Range("E" & i & ":I" & i))
Next
Application.ScreenUpdating = True
MsgBox "Maximum konusu tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKCancel + vbInformation
End Sub

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz.

Sub MAXİMUMU_BUL()
    With Range("D5:D9")
        .Formula = "=MAX(E5:I5)"
        .Value = .Value
    End With
End Sub

 

[enginbora123]

Teşekkürler işe yaradı