Şartlı Max

[oydemir]

Elimdeki formülü makro olarak yazılması hakkında yardım istiyorum. Teşekkürler
=MAK(EĞER($B$2:$B$5000=B14;$AC$2:$AC$5000;""))+1

 

[Korhan Ayhan]

Merhaba,

Deneyiniz...

Option Explicit

Sub Test()
    Dim X As Long
    X = Evaluate("MAX(IF($B$2:$B$5000=B14,$AC$2:$AC$5000,""""))+1")
End Sub

 

[oydemir]

Korhan hocam teşekkürler elinize sağlık . Beceremedim yapmak istediğim ekteki örnekte mevcut. Formülle yapabiliyorum bu işlemi makro ile yapmak istiyorum. Teşekkürler