Sayfalar Menü yapılabilirmi

[selvetdibic]

İyi akşamlar, Ek ' te gönderdiğim dosyada veri sayfasında giriş yaptığım kişilere otomatik sayfa açılıyor. Kişiler bayağı bir fazla olduğundan aradığım kişiyi bulmak baya bir zor oluyor. Benim isteğim mümkünse Veri sayfasına bir buton koyup bastığım zaman sayfalardaki kişilerin alfabetik sıraya göre bir liste halinde ekrana gelmesi aradığım kişiye basıncada direk sayfasına gitmesi. Şimdiden teşekkürler.

 

[selvetdibic]

Biraz araştırma yaptım şöyle bir kod buldum fakat benim sayfa formatı gereği sayfaların listesi açılır bir listede veya sil dediğimde silinmicek bir sayfada olması gerekiyor.


Sub ExcelceSayfaListesi()
For Each sayfa In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 0) = sayfa.Name
Next sayfa
End Sub

Sub ExcelceSayfaKoprule()
For Each sayfa In ThisWorkbook.Worksheets
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name
Next sayfa
End Sub

Ama bunları uyarlamak zor iş.

 

[selvetdibic]

Yardımcı olabilecek biri varmı ?

 

[Merhum İdris SERDAR]

.

Sizinki uzun bir yol.

Başka kısa hızlı bir yol Pivot Table - Özet Tabloyu deneyin derim.

Öyle Her kişiye sayfa açmak, dosyayı şişirmeye de gerek yok.

Birazdan örneği eklerim.

.

 

[selvetdibic]

Bekliyorum

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.

 

[selvetdibic]

Bu benim anlıyacağım şekilde değil. Ama güzel bir örnek faydalanacağım.