Köprü çoğaltıldığı ilk sayfaya gitmesin

[eskihoca]

Yaptığım çalışma kitabında ,sayfa içinde köprüler var.Bu sayfayı aynı çalışma kitabı içinde kopyalayıp çoğaltım.
Çoğaltığım sayfalara isim verdim.
Yeni oluşan sayfadaki köprüler , ilk kopyalama yaptığım sayfaya yönlendiriyor.

Aynı sayfadaki köprüler, kopyalanıp çoğaldıktan sonra yeni isim verilen sayfa içinde kalmasını istiyorum.ilk kopyalandığı sayfaya bağlantı gitmesin istiyorum
Ustaların yardımını bekliyorum.

 

[Muzaffer Ali]

Aşağıdaki kodu bir module yazın. Çalıştırdığınızda Aktif olan sayfanın Köprülerini istediğiniz gibi ayarlayacaktır

Sub KopruAyarla()
    Dim Bak As Hyperlink
    For Each Bak In Cells.Hyperlinks
        If Bak.Range.Value = "BAŞA DÖN" Then
            Bak.SubAddress = ActiveSheet.Name & "!A1"
        ElseIf Bak.Range.Value = "YAPI KREDİ" Then
            Bak.SubAddress = ActiveSheet.Name & "!Z1"
        End If
        'diğer linkleri de bu şekilde devam ettirerek düzeltebilirsiniz.
    Next
End Sub

 

[eskihoca]

Aşağıdaki kodu bir module yazın. Çalıştırdığınızda Aktif olan sayfanın Köprülerini istediğiniz gibi ayarlayacaktır

Sub KopruAyarla()
    Dim Bak As Hyperlink
    For Each Bak In Cells.Hyperlinks
        If Bak.Range.Value = "BAŞA DÖN" Then
            Bak.SubAddress = ActiveSheet.Name & "!A1"
        ElseIf Bak.Range.Value = "YAPI KREDİ" Then
            Bak.SubAddress = ActiveSheet.Name & "!Z1"
        End If
        'diğer linkleri de bu şekilde devam ettirerek düzeltebilirsiniz.
    Next
End Sub

Teşekkür ederim deneyeceğim

 

[eskihoca]

Aşağıdaki kodu bir module yazın. Çalıştırdığınızda Aktif olan sayfanın Köprülerini istediğiniz gibi ayarlayacaktır

Sub KopruAyarla()
    Dim Bak As Hyperlink
    For Each Bak In Cells.Hyperlinks
        If Bak.Range.Value = "BAŞA DÖN" Then
            Bak.SubAddress = ActiveSheet.Name & "!A1"
        ElseIf Bak.Range.Value = "YAPI KREDİ" Then
            Bak.SubAddress = ActiveSheet.Name & "!Z1"
        End If
        'diğer linkleri de bu şekilde devam ettirerek düzeltebilirsiniz.
    Next
End Sub

Kodları denedim.Fazla bilgim olmadığından bir taraftan yapaerken diğer tarafı bozdum.
Sizden ricam örnek dosyadakine, kodları çalışır bir şekilde yazarmısınız.

 

[eskihoca]

Sayın dalgalikur yardımınızı bekliyorum.tekrar deniyorum .başvuru geçerli değil yazıyor.

 

[Muzaffer Ali]

Dosyanız ekte. İYi çalışmalar

 

[eskihoca]

Dosyanız ekte. İYi çalışmalar

Çok teşekkür ederim.İyi çalışmalar.