Veri Listelemede Hızlı Arama

[Teknik27]

Merhaba ,

Veri Listelemede çektigimiz 1000 kayıt arasından hızlı aramayı nasıl yapabiliriz.Böle bir imkanımız varmı ?

 

[Ömer BARAN]

Merhaba.
ALTIN ÜYELİK olmadığına göre; örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip,
oradan alacağınız erişim bağlantısını burada paylaşırsanız daha çabuk ve net cevap alacağınızı düşünüyorum.

 

[Teknik27]

Örnek bir taslak yaptım..içerideki veriyi seri bir şekilde bulmak istiyorum.

http://s6.dosya.tc/server/sop8j4/Ornek.xlsx.html

 

[Orion1]

Aşağıdaki linkten dosyanızı indirebilirsiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sh As Worksheet
If Intersect(Target, [D5]) Is Nothing Then Exit Sub
Set sh = Sheets("VERİ")
Set k = sh.Range("C:C").Find(Target.Value, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "Bu veri bulunamadı!", vbCritical, "VERİ YOK"
    Else
    sh.Select
    k.Select
End If
End Sub

 

[Teknik27]

Sanırım Yanlış anlasıldı..benim yapmak iştedigim veriye gitmek degil..

örnek filtreleme gibi veri list acdıgım zaman yazarak listedeki veriye ulasmak liste arasında asagıya dogru aramadan ismini yazıp yada baska bir şekil hızlıca bulmak amacım.

 

[Orion1]

Yazmak istediğiniz veriyi o hücreye yazınız.

 

[Teknik27]

Tam eşleşme olmadan bulmak çok zor yazım kuralları aynı olması gerekli sanırım.

Örnek : PİSTON 34785 verisini tam adı yazılmadan veri yok diyor.

 

[Orion1]

Evet tam adı yazmanız lazım.