Selam arkadaşlar
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?
Kod:
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