En Küçük Pozitif Sayının Seçilmesi

[mlakdag]

Sayın Forum Üyeleri,

A1:A5 aralığında -10,-20, 15, 20 ve 30 sayılarının olduğunu varsaydığımızda en küçük pozitif sayı olan 15'in seçilmesi için gerekli kod konusunda yardımlarınızı rica etmekteyim.

Yardımlarınız için şimdiden teşekkürlerimi sunuyorum.

Saygılarımla.

 

[hamitcan]

Sayın Mlakdag,

Aşağıdaki formül işinizi görebilir bir deneyin.

=KAYDIR(A1;KAÇINCI(KÜÇÜK(A1:A6;1);A1:A6;0);0)

İyi Çalışmalar...

 

[Serpily]

Bir fikir.

B1:B5 e şunu yazıyorsunuz.

=Eğer(b1>0;b1;"")


B6'ya da şunu;


=min(b1:b5)

sanırım işinizi görür.

 

[danersin]

Buda kodla çözüm.
Sıfırı pozitif kabul etmez, etmesi gerekiyorsa >0 yerine >=0 yazarsınız.

Sub Macro1()
aranan = 9999999999#
For i = 1 To Cells(1, 1).End(xlDown)
If Cells(i, 1) > 0 And Cells(i, 1) < aranan Then aranan = Cells(i, 1)
Next i
Cells(1, 2) = aranan
End Sub

 

[mlakdag]

Sayın Hamitcan ve Sayın Serpily,

Ã?ncelikle zaman ayırdığınız için çok teşekkür ediyorum.

Sayın Hamitcan'ın çözümünde en küçük sayıdan sonraki rakam bulunuyor gibi geldi bana. Ancak kullanım alanımda bu şekilde bir sıralamayı sağlayamayabilirim.

Sayın Serpily'nin çözümünden kod üretmeye çalışmam gerekiyor.

Tekrar teşekkürler.

 

[hamitcan]

Birde bu formülü denermisiniz


=KÜÇÜK(A1:A15;EÐERSAY(A1:A15;"<0")+1)