aramayı sayılara göre değil textlere göre yapmak

[dersmx]

Selam arkadaşlar

Private Sub BTNBUL_Click()
On Error Resume Next
Dim alan, ara, sayi As Variant
ara = InputBox("Aramak İstediğiniz Kaydın Sıra Numarasını Giriniz.", "IDARE")
sayi = Val(ara)
Set alan = Range("B1:B1001").Find(sayi)
If alan Is Nothing Then
MsgBox "Aradığınız Kayıt Bulunamadı.", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
Exit Sub
Else
alan.Select
Call VeriAl
End If
ALANISADI.SetFocus
End Sub

Bu kodda B hücresindeki rakamsal ifadeleri (örneğin 28 adet ağaç dikimi) buluyor fakat harfsel ifadeleri (örneğin ilçelerdeki öğrenci sayısı) bulmuyor nerde yanlışlık yapıyorum?

 

[Recep İpek]

sayi = Val(ara)

satırını

sayi = (ara)

olarak değiştirebilirmisiniz?

 

[dersmx]

Sayın ripek
zannedersem oldu çok sağolun
Saygılarımla