Hücredeki Yüksek Değeri Bulma

[volkan5454]

Merhabalar F - G - H hücrelerimde değişken veriler var ben ekteki dosyada buton yardımı ile değerleri değiştiriyorum hücrede yazan en küçük değere filtre yaptırıyorum, bunu otomatik filtre yapabilecek bir makro varmıdır, otomatik bul a bastığımda üç hücredeki en küçük değeri bularak filtre yapmasını istiyorum. destekleriniz için şimdiden teşekkür ederim.

İndir Otomatik Filtre Çalışması

Dosyayı indir Otomatik Filtre Çalışması

dosya.co

 

[veyselemre]

Sub otoFiltre()
    mn = 99999999
    For i = 1 To 3
        If mn > Cells(5, i + 5).Value Then
            mn = Cells(5, i + 5).Value
            sut = i
        End If
    Next i
    Cells(5, sut + 5).Select
    Selection.AutoFilter
    ActiveSheet.Range("$E$5:$H$41").AutoFilter Field:=sut + 1, Criteria1:=Format(Selection, "0%")
End Sub

 

[volkan5454]

Sub otoFiltre()
    mn = 99999999
    For i = 1 To 3
        If mn > Cells(5, i + 5).Value Then
            mn = Cells(5, i + 5).Value
            sut = i
        End If
    Next i
    Cells(5, sut + 5).Select
    Selection.AutoFilter
    ActiveSheet.Range("$E$5:$H$41").AutoFilter Field:=sut + 1, Criteria1:=Format(Selection, "0%")
End Sub

Hocam çok teşekkür ederim, emeğinize sağlık.