Excel data da arama yapmak

[mf-murat]

Arkadaşlar aşağıdaki kodlar ile rakamsal değerleri arayavbiliyorum fakat metinsel değerleri arayamıyorum.
Örnek 89 rakamını aradığımda buluyorum fakat aynı sütünda AA.21.48.d kaydını aramak istediğimde bulamıyorum.

Yardımlarınızı bekliyorum


Private Sub B08_Click()
Application.ScreenUpdating = False
'Sheets("DATABASE").Visible = True
Sheets("DATABASE").Range("A1").Select
On Error Resume Next
Dim ALAN, ara, sayi As Variant
ara = InputBox("Aramak İstediğiniz Kaydın Döküman Numarasını Giriniz.", "Arama Formu")
sayi = Val(ara)
Set ALAN = Sheets("DATABASE").Range("D110001").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
ALAN02.SetFocus
'Sheets("DATABASE").Visible = xlVeryHidden
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[leumruk]

Merhaba,
Aşağıdaki satırı:

Set ALAN = Sheets("DATABASE").Range("D110001").Find(sayi)

Bununla değiştirin:

Set ALAN = Sheets("DATABASE").Range("D110001").Find(sayi,lookin:=xlvalues,lookat:=xlwhole)

Ve

sayi = Val(ara)

bu satırdaki val tanımlamasını kaldırın.

 

[mf-murat]

teşekkür ederim.Çok sağolun uygulamanız çalıştı.