Çift tıklanan değeri sayfalarda bul ve seç

[thugangel]

Forumda çok aradım ancak bulduklarımı kendime göre düzenleyemedim.Ekli dosyada yapmak istediğimi anlatmaya çalıştım. Yardımlarınızı rica ediyorum.

 

[thugangel]

yardım lütfen

 

[thugangel]

http://www.excel.web.tr/f48/hucre-okuma-ve-alynan-bilgiyi-ba-ka-bir-t39887.html
Bu adresten çözüm ürettim. Değerli üstatlara teşekkürler

 

[Murat OSMA]

Alternatif olsun...

S1 - S2 - S3... satırlarının üstüne (ilk satıra) sayfa isimlerini (A-B-C....) yazın..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim evn As Range
    Dim a As String
    a = Cells(1, Target.Column)
    Sheets(a).Select
    Set evn = Sheets(a).Cells.Find(Target.Value, , , 1)
    If Not evn Is Nothing Then evn.Select
    a = vbNullString: Set evn = Nothing
    Cancel = True
End Sub

 

[thugangel]

Teşekkürler

 

[Murat OSMA]

Rica ederim.