Makro ile sayfaları çağırma

[Adalente]

Excell de Belirli sayfalar oluşturulacak.

Örnek a1 b1 c2 d3 gibi

ana sayfada bunlar aşağı açılır menüden seçilecek ve seçilen sayfaya gidecek bunu yapabileceğim bir makro kodu lazım yardımcı olabilirmisiniz.

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarina Uymayan Basliklar Hakkinda

.

 

[Adalente]

İstediğim örnek ektedir yardımlarınızı bekliyorum

 

[asi_kral]

İstediğim örnek ektedir yardımlarınızı bekliyorum

Merhaba
Sizin dosyanız için
Sayfanın üzerine bir CommandButton Oluşturun ve sayfanın kod bölümüne

Option Explicit
Private Sub ComboBox1_Change()
'Konu       :   Comboboxtan Seçtiğim Sayfaya Git
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Sheets(ComboBox1.Text).Select
MsgBox ComboBox1.Text & " Sayfasını Seçtiniz", vbInformation, "asi_kral_1967"
End Sub

Private Sub CommandButton1_Click()
'Konu       :   Sayfa İsimlerini Combobox'a Al
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Long
ComboBox1.Clear
For asi = 2 To Sheets.Count
ComboBox1.AddItem Sheets(asi).Name
Next
End Sub

Dosyanız Ekte.
Ayrıca bir dosyada ilk mesajınıza göre bir düzenleme yapmıştım.
A sütununa Yazdığınız sayfa adlarını C2'deki Açılır Listeye alır oradan seçtiğiniz sayfaya gider.

 

[Adalente]

Çok Teşekkür Ederim işime yaradı.

 

[asi_kral]

Çok Teşekkür Ederim işime yaradı.

Kolay Gelisn.