• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tam arama

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Merhaba
Aşağıdaki kod ile kapalı bir dosyadan arama yapıyorum..Ancak tam verim alamadım.Benzer veya yakın değerlerde çıkıyor.
Tam birebir arama nasıl yapabilirim.wholematch gibi bir şeyler vardı ama tam hatırlayamadım.Yardımlarınız için şimdiden teşekkürler

Kod :
TextBox2.Value = ""
Workbooks.Open ThisWorkbook.Path & "\EvrakGiris.xls"
Worksheets("sayfa1").Select
Range("j2:j65000").Find(TextBox1.Value).Activate
TextBox2.Value = ActiveCell.Offset(0, 5).Value
Workbooks("EvrakGiris.xls").Close True
 
Aşağıdaki gibi deneyin.

[vb:1:d840ffac6e]TextBox2.Value = ""
Workbooks.Open ThisWorkbook.Path & "\EvrakGiris.xls"
Worksheets("sayfa1").Select
Range("j2:j65000").Find(What:=Textbox1.Value, LookAt:=xlWhole).Activate
TextBox2.Value = ActiveCell.Offset(0, 5).Value
Workbooks("EvrakGiris.xls").Close True
[/vb:1:d840ffac6e]
 
Çok teşekkürler
 
Geri
Üst