Belli alandakı en kucuk cıft sayıyı veren fonksıyon bulamadıgım hatam

[lewent27]

ıyı gunler oncelıkle ben bellı bır alanda en kucuk cıft sayıyı veren fonksıyonu yazmaya calıstım ama nedense fonksıyon calısmadı daha yenı basladım bu işe acaba bılen bırısı hatamın nerde oldugunu solerse sevınırım istedıgınız kadar hucreye kelime tek sayı ve cıft sayı gırceksınız bos hucrede bırakabılırsınız bu fonksıyonla bu alandakı en kucuk cıft sayıyı bulcaksınız amac buydu ama yapamadım. yazdıgım kodların resmını koyuyorum sımdıden kolay gelsın.

 

[Orion1]

kullanışı;
=cift_kucuk(A1:E10)

Function cift_kucuk(alan As Range)
Dim kucuk As Double, hcr As Range
kucuk = WorksheetFunction.Max(alan) + 1
For Each hcr In alan
    If hcr.Value <> "" And IsNumeric(hcr.Value) Then
        If hcr.Value Mod 2 = 0 Then
            If hcr.Value < kucuk Then kucuk = hcr.Value
        End If
    End If
Next
cift_kucuk = kucuk
End Function

 

[Orion1]

İsterseniz böyle kullanırsanı isteğe göre çift yada tek sayıda en küçük sayıyı bulabilirsiniz.
cift sayı için 0 tek sayı için 1 kullanınız.
Kullanışıft sayıda en küçüğü bulur);
=cift_tek_kucuk(B8:E15;0)

Function cift_tek_kucuk(alan As Range, ct As Integer) As Double
Dim kucuk As Double, hcr As Range
kucuk = WorksheetFunction.Max(alan) + 1
For Each hcr In alan
    If hcr.Value <> "" And IsNumeric(hcr.Value) Then
        If hcr.Value Mod 2 = ct Then
            If hcr.Value < kucuk Then kucuk = hcr.Value
        End If
    End If
Next
cift_tek_kucuk = kucuk
End Function

 

[lewent27]

cok tesekur ederım pekı benıım yazdıgım neden calısmıyor acaba ? hatayı bulabıldınmı bı sorum daha olcak WorksheetFunction.Max komutu ne işe yarıyor

 

[Orion1]

cok tesekur ederım pekı benıım yazdıgım neden calısmıyor acaba ? hatayı bulabıldınmı bı sorum daha olcak WorksheetFunction.Max komutu ne işe yarıyor

o alandaki en büyük değeri buluyor.
ona 1 ekleyerek kücük değerine atıyoruz.
Aksi takdirde kücük değri 0 oludu daha başlarken yapılan bütün sorgulamalarda devre dışı kalrdı.
Siz nerde hata yaptınız ona bakmadım.Ona siz benim yaptığım fonksiyona bakarak siz karar verceksiniz.

 

[Ömer]

Merhaba,

Buda yerleşik fonksiyonlarla olanı. Alternatif olsun.

=MİN(EĞER(MOD(A1:B10;2)=0;EĞER(A1:B10<>"";A1:B10)))

Dizi formülüdür. ctrl shift enter tuş kombinasyonu ile girişini tamalayınız..

.

 

[modoste]

soru benim sorum değil ama alternatif çözümde formüllü çalışma için teşekkür ettim Ömer Hocam