İndex match maksimumu bul

[yeliz.yilmaz]

Merhaba arkadaşlar,

bir tabloda değerler içinde maksimum değerleri ariyorum. index match ile yapmaya calistim ama yapamadım.

yardımcı olur musunuz.

https://drive.google.com/open?id=1gzkFfnqpHZK1Bf41YGSMO18432q_NSBf

slm

 

[YUSUF44]

=MAK(A1:A50)

Formülü A1:A50 arasındaki en büyük değeri verir. Farklı bir çözüm arıyorsanız lütfen örnek dosya paylaşın.

 

[yeliz.yilmaz]

Merhaba Yusuf Bey,

https://drive.google.com/open?id=1gzkFfnqpHZK1Bf41YGSMO18432q_NSBf bu linkte paylastim. gorunuyor mu?

 

[YUSUF44]

Eğer Dosya no ve revizyonun en büyük değerini arıyorsanız aşağıdaki makroyu deneyin:

Sub maksimum()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    If WorksheetFunction.CountIfs(Range("A1:A" & i), Cells(i, "A"), Range("B1:B" & i), Cells(i, "B")) = 1 Then
        yeni = Cells(Rows.Count, "F").End(3).Row + 1
        Cells(yeni, "F") = Cells(i, "A")
        Cells(yeni, "G") = Cells(i, "B")
        Cells(yeni, "H") = Cells(i, "C")
    Else
        enson = Cells(Rows.Count, "F").End(3).Row
        For j = 2 To enson
            If Cells(j, "F") = Cells(i, "A") And Cells(j, "G") = Cells(i, "B") And Cells(j, "H") < Cells(i, "C") Then
                Cells(j, "H") = Cells(i, "C")
            End If
        Next
    End If
Next
End Sub

Eğer revizyon numarasına bakılmadan dosya numarasının en büyük değerini istiyorsanız aşağıdaki makroyu deneyin:

Sub maksimum1()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A")) = 1 Then
        yeni = Cells(Rows.Count, "F").End(3).Row + 1
        Cells(yeni, "F") = Cells(i, "A")
        Cells(yeni, "G") = Cells(i, "B")
        Cells(yeni, "H") = Cells(i, "C")
    Else
        enson = Cells(Rows.Count, "F").End(3).Row
        For j = 2 To enson
            If Cells(j, "F") = Cells(i, "A") And Cells(j, "H") < Cells(i, "C") Then
                Cells(j, "G") = Cells(i, "B")
                Cells(j, "H") = Cells(i, "C")
            End If
        Next
    End If
Next
End Sub

 

[yeliz.yilmaz]

cok teşekkür ediyorum. hemen deneyeceğim. inş. başaririm

 

[çıtır]

Formülle oluşturulmuş çözüm.
https://www.dosyaupload.com/jcsM