kullanarak veya bir macro yardımı ile seçili hücrelerde yeralan rakamlardan en büyük veya en küçüğünü anında bulabiliriz. Mesela elimizdeni excel tablosunda , en yüksek satış miktarları yeralıyordur veya rakamlar içerisinden en düşük fiyatı bulmak isteyebiliriz , aşağıdaki örneklerde bu işin nasıl yapıldığını açıklamaya çalışacağız.

1. Excelde Hücreler içerisindeki en büyük rakamı bulalım (Fonksiyon)

Elimizde herhangi bir ürünün Adedini içeren bir tablo olsun , satır aralarında bilerek boşluk bıraktım , bu örnekteki rakamların onbinlerce satırdan oluştuğunu hayal edin amacımız en küçük rakamı bulmak olsun . Excelin bu konuda bize sunduğu formüller aşağıdaki tabloda verilmiştir. (örneğimizde rakamlar B3 - B18 aralığında sıralanmaktadır)

=MAK(B3:B18)
=BÜYÜK(B3:B18;1)
=BÜYÜK(B3:B18;2)
=BÜYÜK(B3:B18;EĞERSAY(B3:B18;MAK(B3:B18))+1)

İlk iki formül en büyük rakamı , sonraki iki formül ise en büyük ikinci rakamı vermektedir , eğer en büyük üçüncü rakamı bulmak istiyorsak formülde Noktalı virgülden sonra "3" rakamını kullanmamız gerekir.

Excelde Maksimum (En büyük) değeri veren Macro

Eğer bu iş için bir macro kullanmak istersek aşağıdaki kodları çalıştırmamız yeterlidir.

Sub FindMaxValue()

    Dim oRg As Range, iMax As Variant

    Set oRg = Cells
    'Finding the maximum value
    'change Application.Max(oRg) into Application.Max(oRg) to find the maximum value
    iMax = Application.Max(oRg)

    'Select cell containing the min value
    oRg.Find(What:=iMax, _
        After:=oRg.Range("A1"), _
        LookIn:=xlValues, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False _
        ).Select

    'Change selected cell format
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    'Displaying min value info
    With Selection
        MsgBox "Max value : " & iMax & vbCrLf & _
        "Cell position " & vbCrLf & _
        "Row : " & .Row & vbCrLf & _
        "Column : " & .Column
    End With

End Sub

Macroların nasıl kaydedileceği konusunda ayrıntılı açıklamaları Buradaki başlığımızda vermiş ve birde video paylaşmıştık. İlaveten sayfa sonundaki linkte yeralan Download linkinden edineceğiniz excel tablosunda macronun çalışmasını inceleyebilir ve Macro kodlarına text şeklinde ulaşabilirsiniz. En büyük sayıyı bulmak istediğiniz hücreleri seçtikten sonra Klavyedeki Ctrl ve s tuşlarına basarsanız karşınıza aşağıdaki gibi bir ekran gelecektir.

2. Excelde Hücreler içerisindeki en küçük (Minimum) rakamı bulalım (Fonksiyon)

Üstteki örneğimizde busefer en küçük rakamı bulmaya çalışırsak Bu seferde aşağıdaki formülleri kullanmamız gerekecektir

=MİN(B3:B18)
=KÜÇÜK(B3:B18;1)
=KÜÇÜK(B3:B18;2)
=KÜÇÜK(B3:B18;EĞERSAY(B3:B18;MAK(B3:B18))+1)

Üstteki formüllerde ilk iki formül en küçük rakamı sondaki iki formül ise En küçük ikinci rakamı vermektedir , Eğer en küçük Üçüncü rakamı bulmak istiyorsak bu durumda Noktalı virgülden sonra Üç rakamını kullanmamız gerekecektir.

Excelde Minimum (En küçük) değeri veren Macro

Bir klavye tuşu ile seçtiğiniz hücrelerin içerisindeki en küçük rakamı anında bulmak istiyorsanız aşağıdaki macroyu kullanabilirsiniz.

Sub FindMinValue()

    Dim oRg As Range, iMin As Variant

    Set oRg = Cells
    'Finding the minimum value
    'change Application.Min(oRg) into Application.Max(oRg) to find the maximum value
    iMin = Application.Min(oRg)

    'Select cell containing the min value
    oRg.Find(What:=iMin, _
        After:=oRg.Range("A1"), _
        LookIn:=xlValues, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False _
        ).Select

    'Change selected cell format
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

    'Displaying min value info
    With Selection
        MsgBox "Min value : " & iMin & vbCrLf & _
        "Cell position " & vbCrLf & _
        "Row : " & .Row & vbCrLf & _
        "Column : " & .Column
    End With

End Sub

Sayfa sonundaki "mak_min.xlsm" excel dosyasını indirdikten sonra en küçük değeri otomatik olarak buldurmak için Klavyenizdeki Ctrl ve a tuşlarına basınız otomatik olarak en küçük değeri size verecektir.

- Excel de sütun harfleri sayı oldu Burada

- Excelde rakamlara sıra numarası vermek Burada

- Excel'de satırları birer arayla renklendirme Burada

- Excelde klavye yön tuşları çalışmaz oldu Burada

- Excel de Düşayara (Vlookup) Komutu Burada