arama yapıp sonuçları işleme sokma

[mf-murat]

Arkadaşlar geliştirmek istediğim bir programda ;

bul butonuna basıldığında excel database sayfasında A kolonunda bulununda değerler içerisinde arama yapılıyor.

D kolonunda yazılı kayıtlar arasında arama yapabilmem için kodu nasıl düzenlemem gerekiyor.

Aranan değer hem rakam hem harf ile başlayarak kayıt edilmiş olabiliyor.Harf ve rakamlar arasında noktalama işaretleri bulunabiliyor.

Aranacak değer içinÖrnek : ACL.1257.18.doc


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 Numarasını Giriniz.", "Arama Formu")
sayi = Val(ara)
Set ALAN = Sheets("DATABASE").Range("A1:A10001").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