Aranan hücredeki değere göre bulunan hücredeki değerin satırına gitme

[Cihan SK]

Merhaba Arkadaşlar,

Ben İngilizce çalışmak için yaklaşık 4500 kelimelik bir data oluşturdum.
Yapmaya çalıştığım ve şuana kadar yapamadığım,
Excel çalışma sayfamda 1 satır sabit ve bölmeleri dondurulmuş şekilde K1 hücresinde bir değer var ve devamlı değişiyor.
Bu değerin aynısı B1:B65536 arasında bulunmakta K1'de değer aratıldığında B sütunda bulup ilgili satıra gitsin. bunu yapmak mümkün mü araştırma yaptım. ama formül ile olduğunu düşünmüyorum. ya da varsa formül ya da makro kod ile yapılabilir mi. daha önce açılmış böyle bir konuda bulamadım.

Şimdiden yardımcı olacak arkadaşlara çok teşekkür ediyorum.

 

[Ömer]

Merhaba,

K2 hücresine yazın. Formül aradığınız hücreye köprü oluşturur. Git ibaresine tıklarsanız ilgili hücreye gidersiniz.

=EĞERHATA(KÖPRÜ(PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("[";HÜCRE("DOSYAADI";A1);1)
 ;255)&"!B"&KAÇINCI(K1;B:B;0);"Git");"Bulamadım")

.

 

[PLİNT]

Merhaba
Dosyanızın bir örneğini açıklama ekleyerek, eklerseniz daha hızlı cevap alabilirsiniz.
http://s3.dosya.tc/

 

[Cihan SK]

Merhaba,

K2 hücresine yazın. Formül aradığınız hücreye köprü oluşturur. Git ibaresine tıklarsanız ilgili hücreye gidersiniz.

=EĞERHATA(KÖPRÜ(PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("[";HÜCRE("DOSYAADI";A1);1)
 ;255)&"!B"&KAÇINCI(K1;B:B;0);"Git");"Bulamadım")

.

Ömer Bey,

Harikasınız. Super oldu ayrıca daha önce böyle birşey görmemiştim. Örnek oldu benim için yardımlarınız için çok teşekkürler.

 

[PLİNT]

Alternatif olarak kodlarla yapılmış örneği ekte
http://s3.dosya.tc/server11/roggps/sozluk.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$K$1" Or [K1] = "" Then Exit Sub
Application.EnableEvents = False
Set r = [B:B].Find([K1], , xlValues, xlWhole, , False)
Set x = [B:B].Find([K1], , xlValues, xlPart, , False)
If Not r Is Nothing Then Set x = r
If Not x Is Nothing Then
Cells(x.Row, "B").Select
Cells(x.Row, "B").Interior.ColorIndex = 4
On Error Resume Next
Cells(x.Row, "B").Speak
End If
Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$K$1" Then Exit Sub
[B:B].Interior.ColorIndex = xlNone
End Sub[/SIZE]

 

[mekist]

Merhaba,

K2 hücresine yazın. Formül aradığınız hücreye köprü oluşturur. Git ibaresine tıklarsanız ilgili hücreye gidersiniz.

=EĞERHATA(KÖPRÜ(PARÇAAL(HÜCRE("DOSYAADI";A1);BUL("[";HÜCRE("DOSYAADI";A1);1)
;255)&"!B"&KAÇINCI(K1;B:B;0);"Git");"Bulamadım")

.

Ömer Hocam
bu formül office 365' te çalışmıyor olabilir mi, birde arama N ve R sütunlarında yaapılıyor, buna göre nasıl revize etmemiz gerekir

 

[mekist]

Alternatif olarak kodlarla yapılmış örneği ekte
http://s3.dosya.tc/server11/roggps/sozluk.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$K$1" Or [K1] = "" Then Exit Sub
Application.EnableEvents = False
Set r = [B:B].Find([K1], , xlValues, xlWhole, , False)
Set x = [B:B].Find([K1], , xlValues, xlPart, , False)
If Not r Is Nothing Then Set x = r
If Not x Is Nothing Then
Cells(x.Row, "B").Select
Cells(x.Row, "B").Interior.ColorIndex = 4
On Error Resume Next
Cells(x.Row, "B").Speak
End If
Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$K$1" Then Exit Sub
[B:B].Interior.ColorIndex = xlNone
End Sub[/SIZE]

Merhaba
Kodda sadece bir sütuna gidiyor, belirlenmiş aralıktaki sütuna gidebilir mi
Örneğin; N ve R sütunlarında arayacak ( bunu yapıyorum) bulduğu hücreye gidecek, şu an tek sütuna gidiyor, tam bulduğu hücreye gidecek

 

[Korhan Ayhan]

Gidilebilir..