Vba'da sırayla 10 tane min değer bulma

[EsogüÖzgün]

Merhaba arkadaşlar,
Excel vba ' da bir tabloda en küçük değeri bulup bu değerin bulunduğu satır ve sütunu yok sayarak diğer en küçük değerleri bulmam gerekiyor

Private Sub CommandButton1_Click()
minValue = 999
For k = 1 To 10
For i = 5 To 14
For j = 3 To 12
If (Cells(i, j).Value < minValue) Then
minValue = Cells(i, j).Value
j2 = j
i2 = i
End If
Next j
Next i
Cells(i2 + 13, j2).Value = "1"
Next k
End Sub

Kodum böyle arkadaşlar ilk değeri bulabiliyorum ama ikinci değere geçemiyorum yardımcı olur musunuz?

 

[halit3]

A sutünundaki on hücreden fazlası için en küçük ilk on sayıyı B sutünuna getiriyor.

Örnel A1-A50 arası hücrelerdeki sayıların ilk 10 küçük değerleri B sutünuna getiriyor.

kod

Private Sub CommandButton1_Click()
sut = 1

son1 = Cells(Rows.Count, sut).End(3).Row
Columns(sut + 1).ClearContents

ReDim ara1(son1)

For j = 1 To son1
ara1(j) = Cells(j, "A")
Next j

For k = 1 To [COLOR="Red"]10[/COLOR] 'son1
Min = WorksheetFunction.Min(Range(Cells(1, sut), Cells(son1, sut)))
For j = 1 To son1

If Cells(j, "A").Value = Min Then

Cells(k, "b").Value = Cells(j, "A").Value
Cells(j, "A").Value = ""
Exit For
End If
Next j
Next k

For i = 1 To son1
Cells(i, "A").Value = ara1(i)
Next i


End Sub

 

[askm]

Sub ASKM()
Dim Son As Long
Dim deger As String
Son = Range("A" & Rows.Count).End(xlUp).Row
Alan = Range("A1:A" & Son)
For i = 1 To 10
    sayi = WorksheetFunction.Small(Alan, i)
    deger = deger & sayi & vbLf
Next i
MsgBox "En küçük 10 değer : " & vbNewLine & deger, vbInformation, "ASKM"
End Sub