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.

 

[Ferhat Pazarçevirdi]

Fonksiyonunuzu aşağıdaki şekilde geliştiriniz..

Function EnkucukBul(a As Range) As Long
    Dim rng As Range
    Dim lEnk As Long
    Dim sayac As Long
    
[COLOR=DarkGreen]    'Eğer fonksiyonun Argumanı bir Excel aralığını gösteriyorsa[/COLOR]
    If TypeOf a Is Excel.Range Then
[COLOR=DarkGreen]        'Aralıktaki herbir hücreyi dolaş[/COLOR]
        For Each rng In a.Cells
[COLOR=DarkGreen]            'Eğer hücre dolu ise[/COLOR]
            If Len(rng) > 0 Then
[COLOR=DarkGreen]                'eğer hücre içeriği nümerikse[/COLOR]
                If IsNumeric(rng) Then
[COLOR=DarkGreen]                    'Eğer hücre çift sayı ise[/COLOR]
                    If rng Mod 2 = 0 Then
[COLOR=DarkGreen]                        'Sayacı artır[/COLOR]
                        sayac = sayac + 1
[COLOR=DarkGreen]                        'Eğer bulunan ilk çift sayı ise[/COLOR]
                        If sayac = 1 Then
[COLOR=DarkGreen]                            'Enküçük değeri bu kabul et[/COLOR]
                            lEnk = rng
[COLOR=DarkGreen]                        'Değilse[/COLOR]
                        Else
     [COLOR=DarkGreen]                       'Eğer hücre, enküçük değerden küçükse?[/COLOR]
                            If rng < lEnk Then
[COLOR=DarkGreen]                                'En küçük değer, budur[/COLOR]
                                lEnk = rng
                            End If
                        End If
                    End If
                End If
            End If
        Next
    End If
[COLOR=DarkGreen]    'Fonksiyon sonucu[/COLOR]
    EnkucukBul = lEnk
End Function

...