Soru Firma adı bulma

[sirkülasyon]

Ekli tabloda en yüksek veren firmaya ait tutar ve bu tutarı veren firma adını bulmak için ne yapabilirim?

 

[YUSUF44]

Formülle yapamadım, makroyla isterseniz aşağıdaki makroyu deneyin:

Sub ihale()
son = WorksheetFunction.Max(23, Cells(Rows.Count, "B").End(3).Row)
[H22] = WorksheetFunction.Max(Range("C23:E" & son))
For i = 23 To son
    If WorksheetFunction.CountIf(Range("C" & i & ":E" & i), [H22]) > 0 Then
        If Cells(i, "C") = [H22] Then
            [H23] = [C22]
        ElseIf Cells(i, "D") = [H22] Then
            [H23] = [D22]
        Else
            [H23] = [E22]
        End If
        i = son
    End If
Next
End Sub

 

[sirkülasyon]

Yusuf Abi Ellerine Sağlık. Sağ olasın