Bir dizide verilen sayıdan küçük en büyük sayı, büyük en küçük sayı nasıl bulunur?

[Tevfik_Kursun]

Günaydın Arkadaşlar,
Verilen bir dizide belirtilen sayıdan küçük en büyük sayı, büyük en küçük sayı nasıl bulunur? (formül ve makro ile farklı çözüm arıyorum)
Saygılarımla

 

[veyselemre]

Sub test()
    Dim values, krt, enByk, enKck, v
    krt = 11
    enKck = 10 ^ 100
    enByk = 0
    values = Range("A1:J1").Value
    For Each v In values
        If v <> "" And IsNumeric(v) And v <> krt Then
            If v < krt Then
                If v > enByk Then enByk = v
            Else
                If v < enKck Then enKck = v
            End If
        End If
    Next v
    Range("B6").Value = enByk
    Range("D6").Value = enKck
End Sub

 

[Tevfik_Kursun]

Sayın Veysel Emre Hocam,
İlginize çok teşekkür ederim. Makbule geçti.
Saygılarımla

 

[Necdet]

Merhaba,
Alternatif olsun, Fonksiyonun makroda kullanımına örnek :

Sub Makro1()

Dim rng As Range

Set rng = Range("A1:J1")

Range("b7") = Evaluate("=MAX(IF(" & rng.Address & "<11," & rng.Address & "))")
Range("D7") = Evaluate("=MIN(IF(" & rng.Address & ">11," & rng.Address & "))")
        
End Sub

 

[Tevfik_Kursun]

Sayın Necdet Hocam,
İlginize çok teşekkür ederim.
Saygılarımla