aynı sayfadaki listelere kısa yoldan ulaşmak

[arifbirgen]

Değerli arkadaşlar

Aynı sayfadaki listelere kısa yoldan nasıl ulaşabiliriz.
Bu konuda yardımcı olursanız memnun olurum.

 

[uzmanamele]

merhaba

köprü ekleyebilirsiniz.
ad tanımlayarak yapabilirsiniz.
makro ile yapabilirsiniz.

ek dosya yeterli olmazsa makro yazmayı deneriz.

 

[Necdet]

Merhaba,

Makrolu çözümü de ben vereyim.

Not : A sütununda Birleştirilmiş hücre kullanmamalısınız.

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı, I sütununa çift tıklarsanız A sütununda Arama yapar, onun haricinde çift tıklamada I sütununa gider.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim c As Range
If Intersect(Target, [A:I]) Is Nothing Then Exit Sub
If Target.Column < 9 Then
    [I5].Select
Else
    Set c = Range("A:A").Find(Target, LookIn:=xlValues)
    If Not c Is Nothing Then
        Range("A" & c.Row).Select
    Else
        MsgBox "Adresi Bulamadım...."
    End If
End If
Son:
End Sub

 

[sefis]

sayın ustam masaalllah bilginiz var aynı bu köprüleme sistemil ile ilgili bir souda ben sorayım size aynı köprülemeyi arama moturuna yazınca istenilen yere yani sayfanın içinde bir hücreye köprü nasıl yapabiliriz yardımcı olursanız memnun olurum

Merhaba,

Makrolu çözümü de ben vereyim.

Not : A sütununda Birleştirilmiş hücre kullanmamalısınız.

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı, I sütununa çift tıklarsanız A sütununda Arama yapar, onun haricinde çift tıklamada I sütununa gider.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim c As Range
If Intersect(Target, [A:I]) Is Nothing Then Exit Sub
If Target.Column < 9 Then
    [I5].Select
Else
    Set c = Range("A:A").Find(Target, LookIn:=xlValues)
    If Not c Is Nothing Then
        Range("A" & c.Row).Select
    Else
        MsgBox "Adresi Bulamadım...."
    End If
End If
Son:
End Sub