Ana sayfadan diğer excel sayfalarını görüntülemek

[cavanoos]

Merhaba arkadaşlar;

Düşününki excel kitapçığında 12 adet sekme var.Ocak,Şubat,Mart diye gidiyor
13.sekmeyide açıcam.Ama burada bir seçenek penceresi çıkmalı.Seçeneklerde ise sekmelerin adları yazmalı.Ben sekmeyi seçip tuşladığımda o sekme 13. sekmede görüntülenmeli...

Böyle bir şey mümkün müdür acaba ???

Çok fazla sekme kelimesi kullanmışım

 

[leumruk]

Olmasını istediğiniz şekli bir örnek dosya ile belirtebilir misiniz?

 

[leumruk]

Örneği inceleyiniz. m1 hücresinden ayları seçebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("m1")) Is Nothing Then Exit Sub
Set Bul = [a1:l1].Find(Target, LookIn:=xlValues, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Range("m2:m65536").ClearContents
Sat = Cells(65536, Bul.Column).End(3).Row
Range(Cells(Bul.Row + 1, Bul.Column), Cells(Sat, Bul.Column)).Copy
[m2].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End If
End Sub

 

[cavanoos]

dosyanızı inceledim.
m1 hücresinde yaptığınızı,oradaki seçenekleri sekmelerin isminden almalı.mesela oradaki sayfa1,sayfa2,sayfa3 dür.

mesela ben sayfa1 mi seçtim.sayfa1 ekranını görmeliyim...

Seçenekleri sıralama olayı tam düşündüğüm gibi olmuş...

 

[leumruk]

İlgili sayfalara veri girip deneyin.