Döngü içerisinde minimum değeri bulma

[tamer42]

Merhabalar,

..............
..............

for i=1 to 5
a=cells(i, 10)
next i

..............
..............

buradaki "a" değerleri içerisinde en küçük değeri nasıl öğrenebiliriz.

Teşekkürler, İyi Çalışmalar...

 

[mehmett]

Aşağıdaki kodu deneyin, sonucu A1 hücresine yazacak.

[A1] hücreniz boş değilse onun yerine başka bir hücre belirleyin.

Sub enkucuk()
enkucuk = Cells(1, 10)
For i = 1 To 5
x = Cells(i, 10)
If x < enkucuk Then enkucuk = x
Next
[A1] = enkucuk
End Sub

 

[Kemal Demir]

Sub minik()
bak = WorksheetFunction.Min(Sheets(1).Range("a1:a5"))
Range("b1").value=bak
End Sub


Böylede Bir Çözüm üretilebilinir diye dusundum.