Çift Tıklama İlgili Sayfaların Açılması

[manly]

Ek'te gönderdiğim Sayfanın A sütunundaki sayfa ismine çift tıklayınca ilgili sayfaya gidiyor. O sayfada iken boş bir yere tıklayınca tekrar başa dönüyor. Benim isteğim A sütununa ekleyerek Ek'te gönderdiğin diğer dosyaların sayfalarını da açmak.

 

[manly]

Yardim lutfen...

 

[Korhan Ayhan]

Excelin köprü özelliğini denediniz mi?

 

[işsiz123]

İşinizi Görebilir

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
    On Error GoTo Ekle
 
    If Not ActiveSheet.Name = "ANA SAYFA" Then
        Sheets("ANA SAYFA").Select
    Else
        If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
        If Target.Row < 2 Then Exit Sub
        Sheets(Target.Value).Select
        Exit Sub
Ekle:
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    End If
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\" & Target.Value & ".xls"     
End Sub

 

[manly]

Excelin köprü özelliğini denediniz mi?

Hocam gönderdiğim dosyada yaptığım combobox çalışmasında oluyor. Hücre olayını çözemedim.

 

[manly]

İşinizi Görebilir

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
    On Error GoTo Ekle
 
    If Not ActiveSheet.Name = "ANA SAYFA" Then
        Sheets("ANA SAYFA").Select
    Else
        If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
        If Target.Row < 2 Then Exit Sub
        Sheets(Target.Value).Select
        Exit Sub
Ekle:
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    End If
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\" & Target.Value & ".xls"     
End Sub

Yeni Bİr Sayfa Açmadan Direkt Dosya Açılsa... Açılan Dosyaların Alt Sayfaları da var. Direkt O Sayfanın açılması nasıl olacak.

 

[işsiz123]

Dosya Ekte

 

[manly]

Dosya Ekte

Gönderdiğim dosylarda;
Userform üzerinde combobox ile zaten yapıyorum. Benim istediğim Combobox ile değil Hücrelere çift tıkladığımda dosya ve sayfaların açılması.

 

[işsiz123]

Aşağıdaki kodu deneyebilirsiniz

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 
    On Error GoTo Ekle
 
    If Not ActiveSheet.Name = "ANA SAYFA" Then
        Sheets("ANA SAYFA").Select
    Else
        If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
        If Target.Row < 2 Then Exit Sub
        Sheets(Target.Value).Select
        Exit Sub
Ekle:
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\" & Target.Value & ".xls#" & [b1] 'B1 yerine Sayfa adı ve hücre adı Örnek: Sayfa1!A3
    End If
    
    
End Sub

 

[manly]

Çok Teşekkür Ederim. Ellerinize sağlık...

 

[işsiz123]

Çok Teşekkür Ederim. Ellerinize sağlık...

Rica ederim
Kolay. Gelsin