buton ile sayfaya gitmek

[skynetparkie]

Merhaba yeni üyeyim forumunuza konuyu yanlış yere açtı isem şimdiden özür benim bir sorum var.

tek bir excell dosyasında 1 den 31 e kadar sayfalarım var "ama" sayfa1 sayfa2 şeklinde değil isimlerini 1 2 3 diye değiştirmiştim. 32. sayfaya genel adını verdim oraya 31 tane buton koyup tıkladığımda ilgili sayfaya gitmesini istiyorum. mesela genel sayfasındaki 1. butona tıkladığımda 1. sayfaya gelmesini istiyorum. 1. sayfaya da genel'e git butonu koyup genel sayfasına geri dönmek istiyorum nasil yapabilirim acaba. bu arada excell 2010 kullanıyorum. yarcımcı olabileceklere şimdiden tşkler

 

[rabbace]

Merhaba,

Köprü ile yapabilirsiniz bunu.

Linki inceleyiniz. http://www.excel.web.tr/f157/kopru-olu-turmak-resimli-anlatym-t83300.html

 

[skynetparkie]

buton ile yapmak mümkün değilmi yani ?

 

[Orion1]

1nci sayfaya gitmek için;

Sheets("1").Select

genel sayfasına gitmek için;

Sheets("genel").Select

 

[aerten]

"Ekle" Sekmesinde "Çizimler" Bölümünden "Şekiller" aracı ile istediğiniz bir biçimi seçip, istediğiniz sayfaya yerleştiriniz. Eklediğiniz "buton"a 2 nolu mesajın link verdiği biçimde "Köprü" ekleyiniz.

Buton ile istediğiniz sayfaya köprü oluşturmuş olacaksınız.

 

[Eyupcan Tasar]

Bir çözüm de benden olsun.

önce düğmeleri oluşturun. mesela sayfa 1'e gitmek için "makro kaydet"e basıp, sayfa 1'i açıp a1 hücresine tıklayın ve kaydı durdurun. diğer sayfalar için de aynı şekilde makroları kaydedip tuşlara atayabilirsiniz.

 

[Necdet]

Merhaba,

Düğmesiz bir önerim var

Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayın.

Hangi boş hücrede Çift tıklarsanız, tıklanan satır numarasını göre ilgili sayfaya gidersiniz.
31 den büyük bir satıra Çift tıklarsınız Genel sayfasına gider.

Butonlarla uğraşmaktansa

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

    Dim syf As String
    
    If Target = "" Then
        syf = Target.Row
        If Target.Row < 31 Then
            Sheets(syf).Select
        Else
            Sheets("Genel").Select
        End If
    End If
    
End Sub

 

[ccuneyt13]

Herkes kolayına kaçmış. :biggrin: (Şaka tabiki )

Amelelik bizim işimiz :tongue: (Şaka değil )

Tüm sayfalara buton eklenmiş hali ektedir :hihoho:

http://s2.dosya.tc/server/jsp57u/Buton_Sayfaya_Git.rar.html

 

[Korhan Ayhan]

Alternatif;

Örnek Dosya

 

[ccuneyt13]

Alternatif;

Örnek Dosya

Korhan Hocam,
Sırf bir üstat benim yaptığımı görüp acır, ne yapıyo bu çocuk der, kısa yolunu gönderir diye "amale"lik yapıp bir dünya kodu eklemiştim

Tam olarak beklediğim cevabı verdiniz, :bravo:

Saygılar..