dikdörtgen şekildeki isim ile aynı sayfaya gitme

[acar6783]

merhabalar;

Sub sayfaya_git()

git = Selection.ShapeRange.TextFrame2.TextRange
Sheets(git).Select
End Sub

Sayfada bulunan dikdörtgen şekile yukarıdaki makroyu atadığımda çalışmıyor.

Ancak şekli seçip kodu manuel olarak çalıştırınca ilgili sayfaya gitme işlemi gerçekleşiyor.
Alternatif olarak (köprü hariç) ne yapabilirim?

 

[acar6783]

Örnek dosya olsun

 

[YUSUF44]

Ne yapmaya çalıştığınızı anlamadım maalesef. Sayfadaki mavi kutulardan hangisi seçiliyse, Düğme1'e tıklandığında o sayfaya gidiyor. Sizin yapmak istediğiniz o düğme1'i kullanmadan, mavi kutulara tıkladığınızda ilgili sayfaya gitmesi mi?

 

[acar6783]

Bi an aklıma 80ler dizindeki replik geldi

"aynen convaynen"


Evet her bir kutuya aynı makroyu atayıp o kutuda ne yazıyorsa o sayfaya gitmesi.

 

[Necdet]

Merhaba,

Ben işin kısa yolunu seçiyorum bu gibi durumlarda.

Şekillere Sayfa isimlerini veriniz ve tüm şekillere aynı makroyu atayınız. Kod aşağıdaki gibi kısalacaktır.

Sub sayfaya_git()
    
    Sheets(Application.Caller).Select
    
End Sub

 

[acar6783]

Aynen yaptım fakat hata verdi?

 

[Emir Hüseyin Çoban]

. . .

Nesneye makro atayınca ilk tıklamadaki select özelliği iptal oluyor.
Benzer bir sıkıntı hücrelerde köprü tanımlayıncada yaşanıyor.

. . .

 

[acar6783]

Sonuç olarak birşey yapılamıyor mu demek?

 

[acar6783]

Merhaba,

Ben işin kısa yolunu seçiyorum bu gibi durumlarda.

Şekillere Sayfa isimlerini veriniz ve tüm şekillere aynı makroyu atayınız. Kod aşağıdaki gibi kısalacaktır.

Sub sayfaya_git()
    
    Sheets(Application.Caller).Select
    
End Sub

Necdet hocamteşekkürler sorun çözülmüştür.

"1 Yuvarlatılmış Dikdörtgen" yazan yere sayfa isimlerini yazınca oldu