Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 4 sonuçtan 1 ile 4 arasındakiler gösteriliyor.

Konu: buton ekleyerek sayfalara ulaşmak

  1. #1
    Üye
    Üyelik tarihi
    Dec 2013
    Mesajlar
    60

    buton ekleyerek sayfalara ulaşmak

    herkese selamlar
    yapmak istediğim sey excell içerisinde 50 yakın sayfa var sayfalardan
    1=menü
    2_x
    3=y
    4=k
    diyelim.diğer sayfalarda 1,2,3,4,5,diyelim .
    burda yapmak istediğim sayfalara buton ekleyip mesela menü butonu butona bastığım zaman menü sayfasına gitmesi
    x butonu ekleyip x sayfasına gitmek için butona basmam yeterli olması herkese tesekkürler...

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Merhaba sayın kastelliengin,
    Ekli kodlar isteğinizi yerine getirecektir.
    VBA' da Alt+F11 ile geçildiğinde kodları görebilirsiniz. Ayrıca yeni sayfalar için kopyasını kullanıp gerekli değişiklikleri yapabilirsiniz.
    Gerektiğinde alt sekmeleri gizleyebilirsiniz.
    Örnek program ekte. Dosya açılışında Makroları etkinleştir i seçmelisiniz. Açılışta hep MENÜ sayfası gelecektir.
    Sağlıcakla kalın.

    Sub MENÜYE_DÖN()
    '
    ' MENÜYE_DÖN Makro
    Sheets("MENÜ").Select
    Range("A1").Select
    MsgBox "BURASI MENÜ SAYFASI", , "MERHABA KASTELLİENGİN!"
    End Sub


    Sub X_E_GİT()
    '
    ' X_E_GİT Makro
    Sheets("X").Select
    MsgBox "BURASI X SAYFASI", , "MERHABA KASTELLİENGİN!"
    End Sub

    Sub Y_E_GİT()

    ' Y_YE_GİT Makro
    Sheets("Y").Select
    MsgBox "BURASI Y SAYFASI", , "MERHABA KASTELLİENGİN!"
    End Sub

    Sub K_E_GİT()
    '
    ' K_YA_GİT Makro
    Sheets("K").Select
    MsgBox "BURASI K SAYFASI", , "MERHABA KASTELLİENGİN!"
    End Sub

    http://s4.dosya.tc/server/zgna5b/MENU.xls.html
    Konu behcet tarafından (04.06.2016 Saat 21:21 ) değiştirilmiştir.

  3. #3
    Üye
    Üyelik tarihi
    Dec 2013
    Mesajlar
    60
    behcet bey süper olmuş lakın ben kendi sayfama uyarlıyamadım (beceremedim).

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Jun 2010
    Nereden
    Erbaa
    Versiyon
    2010 TR
    Mesajlar
    1.018
    Mrb,
    Makro içersindeki örneğin Sheets("Y").Select yazan yerlerde Y yerine kendi sayfanızın adını yazacaksınız.
    Sayfa adı tam olmalı..Sayfa adlarında boşluk bırakmayınız . Örneğin "Müşteri Listesi" yerine "Müşteri_Listesi" şeklinde yazmalısınız.
    Zaten makroyu butona atayıp çalıştırınca makro satırında nerede hata var ise sarı alan rengiyle size işaretleyecektir.
    Yapabileceğine inanıyorum. Çünkü Excel i seviyorsunuz.
    Sağlıcakla kalın.
    Konu behcet tarafından (04.06.2016 Saat 21:22 ) değiştirilmiştir.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •