Listboxdaki 10. stunda bulunan en küçük değeri yazdırmak?

[udentr2002]

Merhaba arkadaşlar ekli dosya olarak gönderdiğim örneğimde yapmaya çalıştığım comboboxa veri girmeye başlayınca listboxa süzme yapıyor bu süzme yaptığı sırada label17'ye süzme yaparken listboxun 10 sütununda bulunan değerler arasındaki en küçük değeri yazdırmak istiyorum bunun için ne yapabilrim.
Ekli dosyaya bakarsanız ne demek istediğimi daha iyi anlayacaksınız. Şimdiden ilgilene tüm hocalarıma teşekkür ederim.

SAĞLICAKLA KALIN

 

[Orion1]

Aşağıdaki kodları kullanınız.

Sub listele()
Dim i As Long, a As Long, k As Byte, deg As Double
ListBox1.RowSource = ""
ReDim myarr(1 To 12, 1 To 1)
For i = 3 To Cells(65536, "B").End(xlUp).Row
    If LCase(Replace(Replace(Cells(i, "C").Value, "I", "ı"), "İ", "i")) Like ComboBox1.Value & "*" _
    And LCase(Replace(Replace(Cells(i, "E").Value, "I", "ı"), "İ", "i")) Like ComboBox2.Value & "*" _
    And LCase(Replace(Replace(Cells(i, "F").Value, "I", "ı"), "İ", "i")) Like ComboBox3.Value & "*" Then
    
        a = a + 1
        ReDim Preserve myarr(1 To 12, 1 To a)
        For k = 1 To 12
            myarr(k, a) = Cells(i, k).Value
        Next k
        If a = 1 Then
            deg = Cells(i, 10).Value
            ElseIf Cells(i, 10).Value < deg Then
            deg = Cells(i, 10).Value
        End If
    End If
Next i
If a > 0 Then ListBox1.Column = myarr
Erase myarr
Label17.Caption = Format(deg, "#,##0.00")
End Sub

 

[udentr2002]

Hocam çok teşekkür ederim ellerinize sağlık

 

[Orion1]

Hocam çok teşekkür ederim ellerinize sağlık

Rica ederim.
İyi çalışmalar.