Veri Arama Problemi

[explain]

Öncelikle kusura bakmayın vaktim olmadığı için forumda böyle bir sorun çözülmüş mü diye arayamadım.

Yapmak istediğim şey şöyle ki;

2 sayfam var .
1.Sayfada İsim listem var
2.Sayfada da aynı isimler aynı sütunda ama karışık halde ve bunlara bağlı veriler bulunmakta.

1.Sayfadaki isme köprü atayıp 2.Sayfada aynı isme ulaştırıp 2.Sayfadaki ismin bulunduğu hücrede bırakmak istiyorum.

Ya da 1. veya 2.Sayfada ismi yazıp 2.Sayfada aradığım ismin olduğu hücreye gidebileceğim bir pencere açmak istiyorum.

Ctrl+f tuşunu sürekli kullanmak cazip gelmiyor.

Gün içinde bana yardımcı olabilirseniz çok sevinirim. Yapılabilecek herhangi bir formülü uyarlayabileceğimi düşünüyorum. Teşekkürler.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

2 farklı yöntem uygulanmıştır.
1- sayfa1 de isimleri çift tıklarsanız sayfa2'de ilgili hücreye gidersiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Set s1 = Sheets("sayfa2")
    If Not IsEmpty(Target) Then
    Set ara = s1.Cells.Find(Target, lookat:=xlWhole)
    If Not ara Is Nothing Then
    s1.Select
    s1.Range("" & ara.Address).Select
    Set ara = Nothing
    End If
    End If
End Sub

2- sayfa3 de önce makro ile köprü kurarak ilgili ismi tıkladığınızda sayfa2'de ilgili hücreye gidersiniz.

Sub hyperlink()
Set s3 = Sheets("Sayfa3")
Set s2 = Sheets("Sayfa2")
ss = s3.Range("a65536").End(3).Row
For i = 1 To ss
Satir = Application.WorksheetFunction.Match(Cells(i, 1).Text, s2.Range("a:a"), 0)
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:="", SubAddress:="Sayfa2!" & "A" & Satir
Next
End Sub
Public Sub KopruKaldir()
Sheets("Sayfa3").Select
Cells.Hyperlinks.Delete
End Sub

 

[explain]

Çift tıklama işimi gördü ama bazı başka formülleri forumdan aratıp bulabilince .

Aradığım ve uyguladığım diğer formuller ; "küçük harleri büyük harf yapma", "2 hücredeki yazıları herhangi bir karakter silinmeden birleştirme" oldu.

Çok çok teşekkür ederim. Çok işime yaradı yine.

Bu sefer tam olarak anlamadım nasıl yapıldığını ama uygulayabildiğim için işime yaradı. Nasıl yapıldığını da anlayabilirsem süper olacak.