Tam arama

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
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
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
Çok teşekkürler
 
Üst