Açılır Listeden Sayfa Seçme Makrosu

[ERMAN SAYINALP]

Merhaba,

Ekteki ÖRNEK üzerinde detay açıklaması olan;

Açılır Liste içerisinden seçilen tarihin Sayfasına gitme MAKRO'su için değerli yardımlarınızı rica ederim.

Saygılarımla.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[ERMAN SAYINALP]

Teşekkür ederim.

 

[muhasebeciyiz]

Muygun Hocam ;

Yapmış olduğunuz çalışmayı açılır iste içerisinden sekme ismine göre sayfalara gitme şeklinde ayarlayabilirmisiniz

Saygılarımla.

 

[mustafakoker]

Teşekkür ederim.

Merhaba;Bir örnekte benden olsun Listeden seçim yapabilirsin Açılışta Komut sayfasına gider Listede bu sayfa 1.sayfa olduğu için çıkmaz koddan ayarlama yapılabilir. For s = 3 To Sheets.Count '2.SAYFADAN İTİBAREN LİSTELE

 

[muhasebeciyiz]

Merhaba;Bir örnekte benden olsun Listeden seçim yapabilirsin Açılışta Komut sayfasına gider Listede bu sayfa 1.sayfa olduğu için çıkmaz koddan ayarlama yapılabilir. For s = 3 To Sheets.Count '2.SAYFADAN İTİBAREN LİSTELE

Teşekkürler.

 

[muratgunay48]

@mustafakoker Hocam emeğinize sağlık. Peki sayfa isimlerini değiştirmek mümkün mü?

 

[ERMAN SAYINALP]

Muygun Hocam ;

Yapmış olduğunuz çalışmayı açılır iste içerisinden sekme ismine göre sayfalara gitme şeklinde ayarlayabilirmisiniz

Saygılarımla.
[/ALINTI]
Merhaba,

Sizin istediğinizden anladığım kadarına bir yanıt da benden olsun.
Benim soruma verilen Cevap içinde, sizin istediğiniz ihtiyacın cevabı var zaten.
Örnek Dosyada H Sütunundaki SARI alanlara, siz kendi dosyanızdaki Sayfa (sekme) isimlerini yazın. Açılır Listeniz sizin istediğiniz gibi olsun.

 

[1mak1mak]

Merhaba;Bir örnekte benden olsun Listeden seçim yapabilirsin Açılışta Komut sayfasına gider Listede bu sayfa 1.sayfa olduğu için çıkmaz koddan ayarlama yapılabilir. For s = 3 To Sheets.Count '2.SAYFADAN İTİBAREN LİSTELE

Merhaba
Elinize sağlık teşekkürler güzel olmuş.
Sayfa seçiminden sonra "Sayfa İsim Liste" Penceresi kapanmayıp üstte kalsa Başka sayfalara gitmek ve
Ana Sayfaya geri gelebilmek açısından daha iyi olabilir tabi bu benim düşüncem.

 

[mustafakoker]

@mustafakoker Hocam emeğinize sağlık. Peki sayfa isimlerini değiştirmek mümkün mü?

evet tabiki sadece açılışta komut sayfasına giden kırmızı alanı değiştirmeyi unutmayınız yoksa makro hata verecektir Kitap açıldığında ilk sayfaya git komutu var çünkü

Private Sub Workbook_Open()

Sheets("KOMUT").Select
Range("a1").Select
End Sub

 

[mustafakoker]

Merhaba
Elinize sağlık teşekkürler güzel olmuş.
Sayfa seçiminden sonra "Sayfa İsim Liste" Penceresi kapanmayıp üstte kalsa Başka sayfalara gitmek ve
Ana Sayfaya geri gelebilmek açısından daha iyi olabilir tabi bu benim düşüncem.

Merhaba Ana sayfa dediğiniz KOMUT sayfası 1.sayfa listboxta yoktu şayet onun da görünmesini istiyorsanız kodu revize ediniz, ayrıca unload me kısmını kaldırdığınızda Listbox açık kalacaktır seçtiğiniz sayfaya gider. Userformun içindeki kodları yenileyiniz.


Private Sub ListBox1_Click()
On Error Resume Next
Application.DisplayAlerts = False
Sheets(Me.ListBox1.Text).Select
Application.DisplayAlerts = True
'Unload Me
End Sub


Private Sub UserForm_Activate()
For s = 1 To Sheets.Count '1.SAYFADAN İTİBAREN LİSTELE
Me.ListBox1.AddItem Sheets(s).Name
Next
End Sub

 

[mustafakoker]

sayın Murat OSMA'ya ait çalışmadan örnek ektedir.

ComboBox İle Sayfa geçişi

Günaydınlar; Ekteki örnek dosyada ComboBox1'den 1.sayıyı seçtiğimde "A" sayfası,2.sayıyı seçtiğimde "B" sayfası,3.sayıyı seçtiğimde "C" sayfasına geçiş yapabilirmiyiz ?.Yardımlarınız için şimdiden teşekkür ederim.

www.excel.web.tr

combobaxtan seçtiğinizde o sayfaya gider seçili değeri KOMUT sayfasında H3'e yazar

 

[muratgunay48]

evet tabiki sadece açılışta komut sayfasına giden kırmızı alanı değiştirmeyi unutmayınız yoksa makro hata verecektir Kitap açıldığında ilk sayfaya git komutu var çünkü

Private Sub Workbook_Open()

Sheets("KOMUT").Select
Range("a1").Select
End Sub

Hocam 01 isimli sayfanın adını A1 yapıyorum. Açılır listeden tıklayınca sayfa yok diyor. Sayfa ad bölümünden ve listeden değiştiriyorum. Hata veriyor.
Nerede hata yapıyorum acaba.

 

[muratgunay48]

evet tabiki sadece açılışta komut sayfasına giden kırmızı alanı değiştirmeyi unutmayınız yoksa makro hata verecektir Kitap açıldığında ilk sayfaya git komutu var çünkü

Private Sub Workbook_Open()

Sheets("KOMUT").Select
Range("a1").Select
End Sub

Tamamdır hocam, yaptım. Teşekkür ederim.