En Küçük Değeri Almak

[musaagac]

arkadaşlar exce userformda 7 Tane TextBox kutucuğu var. aktardığım sayılarla toplam işlemi yapıyorum. hücrelere aktarıl aşağıda yazdığım gibi
[A1]= Val(textbox1)
[A2]= Val(textbox2)
[A3]= Val(textbox3)
[A4]= Val(textbox4)
[A5]= Val(textbox5)
[A6]= Val(textbox6)
[A7]= Val(textbox7)

böylelikle aktardığım textboxlarda değer yazmadığımı hücreye sıfır olarak geciyor. Bende bunların için sıfır hariç en küçük değeri almak istiyorum nasıl yaparım.

 

[hamitcan]

Sub sifiraenyakinsayi()
    [a8].FormulaArray = "=MIN(IF(R1C1:R[-1]C1<>0,R1C:R[-1]C1))"
    [a8] = [a8].Value
End Sub

 

[musaagac]

Exceldeki hücreye yazacağım komutu user form üzerine değil

 

[hamitcan]

A1:A7 arasındaki en küçük değeri A8 hücresine yazar.

 

[musaagac]

örnek olarak bir excelde yapıp gönderebilirmisiniz?