Butonlar yardımıyla sayfaları açmak?

[dbicer83]

çalışma sayfasındaki sayfaları sayfa1 deki butonlar yardımıyla sayfa2-3-4...- yönlendirmek. ilk excel açılacak örnek sayfa1 burada butonlar olacak bu butonlar yardımıyla istenile sayfalara gidecek gidilen sayfadanda geri butonu yardmıyla ana sayfa olan sayfa 1 geri dönülebilecek.Yardımızdan dolayı şimdiden teşekkürler

 

[akrhector]

sub sayfa_sec ()
sheets("SayfaAdı").select
End Sub

Sayfa adı kısmına sayfanızın adını yazın daha sonra excel sayfasına bir tane düğme ekleyin daha sonra bu düğmeye sağ klick yapın ve makro ata seçeneğini işaretleyin burada önünüze yukarıdaki sayfasec makrosu çıkacak bunu işaretleyin ve tamama basın artık düğmeniz aktif olmalı
kolay gelsin

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.Text).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Long
ComboBox1.Clear
For I = 2 To Sheets.Count
ComboBox1.AddItem Sheets(I).Name
Next
End Sub

 

[karagöz55]

N. ZİYA HİÇDURMAZ BEYEFENDİ'YE SORUM
Yukarıda vermiş olduğunuz örnek çok hoş, dikkatimi çekti
Ancak Sayfa1'in A1 hücresinde oluşturduğunuz ve sayfa numaralarını yazan pencereyi nasıl yaptığınızı anlayamadım. Gerçi vermiş olduğunuz VBA kodlarını VBA penceresine yapıştırdım ama yine de yapamadım, Benim kitabımda çok sayıda değişik adlarda sayfalar var, onların isimlerini nereye tanımlayacağım, açıklarsanız sevinirim

 

[Seyit Tiken]

Kitabınıza sayfalar ekledikçe veya sildikçe, form otomatik olarak işlemi gerçekleştiriyor. Ekli dosyada sayfalar arası rahatça gezinti yapabilirsiniz.

 

[karagöz55]

Sayın Seyit Tiken Arkadaşım,
Hazırlamış olduğunuz sayfalar arası geçişi sağlayan düğmeler gerçekten çok ilginç ve çok kullanışlı.
Ancak bu düğmeleri bu sayfadan bağımsız olarak biz kendi kitaplarımıza nasıl uygulacağız.
Gerçi ben sayfa kopyala yöntemi ile benim kitaba bir sayfa ilavesi yöntemi ile yaptım ama düğmeyi çalıştırmak için sizin gönderdiğiniz sayfanın mutlaka açılması gerekiyor. O sayfa olmadan makro çalışmıyor Yani benim sorum sizin yaptığınız sayfa açılmadan da bu düğmeleri nasıl çalıştırılacağı.
Yardımlarınız için şimdiden teşekkürler

 

[Seyit Tiken]

Kendi çalışmalarınızdan örnek bir dosya ekleyin, uyarlayalım. Kodların mantığını anlamaya çalışın, yapacağınıza inanıyorum.

 

[buseen]

deneme

işine yarar umarım

 

[dbicer83]

ilginizden dolayı herbirinize ayrı ayrı teşekkür ederim arkadaşlar.sağolun.sorunumu halletim.