Soru Sütunda Enküçük Enbüyük Sayı

[leonadies]

Evet Düzeldi. Çok teşekkür ederim

 

[AdemCan]

Rica ederim,
Dim dizi() As Variant olarak da tanımlama yapabilirsiniz, yazmayı unutmuşum.

 

[veyselemre]

Sub ornek()
    zor = Range("A" & Rows.Count).End(xlUp).Row
    dizi = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value

    mx = 0
    mn = 10 ^ 99

    If UBound(dizi) > 1 Then
        For x = 1 To UBound(dizi)
            VER = dizi(x, 1)
            If VER <> "" Then
                If InStr(VER, "-") Then VER = Val(Split(dizi(x, 1), "-")(0))
                If IsNumeric(VER) Then
                    If VER > mx Then mx = VER
                    If VER < mn Then mn = VER
                End If
            End If
        Next x
    End If

    Range("C1") = mn
    Range("C2") = mx
End Sub

 

[Korhan Ayhan]

Alternatif;

Önerdiğim fonksiyonun boş hücreleri değerlendirmeye almayan makro halidir.

Option Explicit

Sub Test()
    Dim Son As Long
    Son = Cells(Rows.Count, 1).End(3).Row
    Range("C1") = Evaluate("=MIN(IF(--LEFT(0&A1:A" & Son & ",6)<>0,--LEFT(0&A1:A" & Son & ",6)))")
    Range("C2") = Evaluate("=MAX(IF(--LEFT(0&A1:A" & Son & ",6)<>0,--LEFT(0&A1:A" & Son & ",6)))")
End Sub

 

[leonadies]

Harika kısa ve net teşekkürler @Korhan Ayhan hocam