Değişken Boş Geliyor

[tamermaster]

Deger Boş Geliyor , String de Denedim Yine Boş Geliyor
Başvurdu Kücre Formül Sonucu Harf Rakam İçeriyor
Eğer Başka Bir Hücreye Sadece Harf Yada Sadece Rakam Yazarsam Deger Dolu Geliyor
Burada Nerede Hata Yapıyurum
Şimdiden Teşekkürler
Function Meger(ByVal AramaAlani As Range, ByVal BulmaAlani As Range, Deger As Variant)

veri = AramaAlani.Value2
veri2 = BulmaAlani.Value2
For i = 1 To UBound(veri)
x = CDbl(veri(i, 1))
If Deger = CStr(veri(i, 1)) Then

Adet = CDbl(veri2(i, 1))
End If
Next i
Meger = Adet
End Function

 

[NBATMAN]

Merhaba,

ben aşağıdaki şekilde düzenleyerek kullanabildim.

Private Sub CommandButton1_Click()
     MsgBox (Meger(Range("A1:A10"), Range("B1:B10"), "6"))
End Sub

Function Meger(ByVal AramaAlani As Range, ByVal BulmaAlani As Range, Deger As Variant)
Dim adet
veri = AramaAlani.Value
veri2 = BulmaAlani.Value
For i = 1 To UBound(veri)
x = CDbl(veri(i, 1))
If Deger = CStr(veri(i, 1)) Then

adet = CStr(veri2(i, 1))
End If
Next i
Meger = adet
End Function

 

[tamermaster]

Deneyip Döneceğim
Cevap İçin Teşekkürler

 

[Muzaffer Ali]

Düşeyaradan farkı ne ben onu anlamadım.

 

[NBATMAN]

Düşeyaradan farkı ne ben onu anlamadım.

Sn. dalgalikur; açıkçası bende anlamadım, lakin Sn. tamermaster'in vardır bir bildiği vardır.

 

[tamermaster]

Uğraştığın İçin Teşekkür Ederim Böyle Çözdüm
İşine Yarasa Diye Bırakıyorum

Function ECokAra(ByVal Sehir As String, ByVal Mesafe As String, ByVal Yol As String, ByVal Sonuc As String, ByVal AramaAlani As Range) As String
On Error Resume Next
Dim Metin As String, veri As Variant, i As Long

If Sehir = "" Then Exit Function
veri = AramaAlani.Value2
For i = 1 To UBound(veri)
    If CStr(veri(i, 1)) = Sehir Then
     If veri(i, 2) = Mesafe Then
      If veri(i, 3) = Yol Then
       If veri(i, 4) = Sonuc Then
        Metin = Metin & veri(i, 6) & ","
        veri2 = AramaAlani2.Value2
       End If
      End If
     End If
    End If
Next i
    ECokAra = Mid(Metin, 1, Len(Metin) - 1)
End Function

 

[tamermaster]

Düşey Ara İle Tüm Sonuçları Alamazsın Kardeşim
Düşeyara İlk Sonucu Döndürür