Sayfaları Menü haline getirmek?

[last19]

Merhaba arkadaşlar.

Bir excell dosyasında bulunan sayları menü halinde nasıl listeleyebilirim acaba?
Bir örnek ekledim. Fiyat listesi oluşturmak amacıyla kullanacağız bunu.

Yardımlarınız için şimdiden teşekkürler.

 

[uzmanamele]

merhaba

bu kodları ana sayfanın kod bölümüne yazarak deneyiniz.

Private Sub Worksheet_Activate()
Range("a1") = "Menü"
For i = 2 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a2:a65536")) Is Nothing Then Exit Sub
Sheets(Target.Text).Select
End Sub

 

[last19]

Hocam ilginiz için teşekkürler.

Kodları denedim fakat aşağıdaki gibi bir hata aldım.

compile error
variable not define

diye bi hata verdi hocam. daha sonra sarı renkle şağıdaki kodu işaretledi

Private Sub Worksheet_Activate()

 

[uzmanamele]

merhaba

dosyanızda Private Sub Workbook_Activate() bir tane var, 2. yi yazarsanız hata alırsınız.
her 2 prosedürü birleştirmeniz gerekir.