Excel VBA kod hatası

omrumtolga · 27 Ekim 2013

Merhaba arkadaşlar sizden excel deki vba hakkında yardım isteyecektim. Kodların bir yerinde bir hata var ve ben uzun süredir uğraşmama rağmen bulamadım. Eğer bulan arkadaş varsa ve söylerse çok sevinirim. Kodları aşağıya yazıcam. Kodları çalıştırdığımızda excel'in A sütununda bulunun 1. satırdan 9. satıra kadar olan sayıların arasından bana en küçük ve en büyük olanları D sütununun 1. ve 2. satırına eklemesi lazım. Hatayı bulan yazarsa sevinirim. Recep abi yine senden bekliyorum cevabı çünkü sen kendini baya geliştirmişsin bu konularda.

Kod:

Sub deneme4()
    Dim n As Integer, i As Integer, y As Double
    n = 9
    ReDim a(n) As Double
    
    For i = 1 To n
        a(i - 1) = Cells(i, 1).Value
        'MsgBox i & " " & a(i - 1)
    Next i
    
    y = ekb(n, a, "ek")
     Range("D1").Value = y
    y = ekb(n, a, "eb")
     Range("D2").Value = y
         
End Sub


Function ekb(ByVal n As Integer, _
    ByRef a() As Double, ByVal sekb As String) As Double
    
    Dim x As Double, i As Integer
    
    MsgBox sekb
    If sekb = "ek" Then
        x = 999
    Else
        x = -999
    End If
    
    For i = 1 To n
        If sekb = "ek" Then
            If x < a(i - 1) Then x = a(i - 1)
        Else
            If x > a(i - 1) Then x = a(i - 1)
        End If
    Next i
    
End Function

Excel VBA kod hatası

omrumtolga

Hectopat