ana sayfadan diğer sayfalara geçiş

[mpinal]

benim bir ana sayfam var ve bunun dışında a1,a2,a3.... seklinde isimlendirdiğim 50 adet sayfam var ana sayfadan git komutuyla istediğim sayfaya ulaşmak istiyorum.Bunu basit bir makroyla yapıp sonra aynı makroyu 50 defa kopyalayıp 50 ayrı düğmeye atıyorum haliyle birkaç saat sürüyor şu şekilde yapmak mümkün mü acaba ana sayfadaki a1 hücresine sayfa adını girip tekbir GİT makrosuyla istediğim sayfaya yönlendirme yapabilirmiyim.Yada önerebileceğiniz daha basit bir yöntem varmı?İlginize ,şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Sub Test()
    With Sheets(1)
        For i = 1 To Sheets.Count
            Cells(i, 1) = Sheets(i).Name
                    .Hyperlinks.Add Anchor:=Cells(i, 1), _
                     Address:="", SubAddress:=Sheets(i).Name & "!A1"
                Sheets(i).Range("A1") = Sheets(1).Name
            Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), _
            Address:="", SubAddress:=Sheets(1).Name & "!A1"
        Next
    End With
End Sub

Kodlar Haluk Bey'in bir çalışmasından alıntıdır..

.

 

[mpinal]

uygulamam doğrumu

Merhaba,

Sub Test()
    With Sheets(1)
        For i = 1 To Sheets.Count
            Cells(i, 1) = Sheets(i).Name
                    .Hyperlinks.Add Anchor:=Cells(i, 1), _
                     Address:="", SubAddress:=Sheets(i).Name & "!A1"
                Sheets(i).Range("A1") = Sheets(1).Name
            Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).Range("A1"), _
            Address:="", SubAddress:=Sheets(1).Name & "!A1"
        Next
    End With
End Sub

Kodlar Haluk Bey'in bir çalışmasından alıntıdır..

.

arkadaşım öncelikle ilgilendiğiniz için teşekkür ederim.
Yukarıdaki kodu yapıştırıp bir düğmeye atadımve çalıştırdım. Ana sayfamda her sayfa için yeni bir bağlantı oluştu.Altı çizili çalışma kitabımda bulunan tüm sayfalar için linkler oluştu.İşimi görecek bir çalışma ancak ben şunu öğrenmek istiyorum örneğini ekledimzaman ayırabilirseniz sevinirim.

 

[Ömer]

arkadaşım öncelikle ilgilendiğiniz için teşekkür ederim.
Yukarıdaki kodu yapıştırıp bir düğmeye atadımve çalıştırdım. Ana sayfamda her sayfa için yeni bir bağlantı oluştu.Altı çizili çalışma kitabımda bulunan tüm sayfalar için linkler oluştu.İşimi görecek bir çalışma ancak ben şunu öğrenmek istiyorum örneğini ekledimzaman ayırabilirseniz sevinirim.

Sub Aç()
 Sheets("" & [A1]).Select
End Sub

Bu şekilde deneyiniz..

.

 

[mpinal]

teşekkür ederim.

Tam aradığım buydu teşekkür ederim.İyi çalışmalar.İyi ki varsınız.

 

[Ömer]

Rica ederim, iyi çalışmalar..