Aynı çalışma kitabında istenilen sayfayı buldurmak

[KONYA42]

Mrb.arkadaşlar,Çalışma kitabımda 10 adet sayfam var.Sayfa 1 sayfası ana sayfam.Sayfa 1 sayfasının a2 hücresine yazdığım sayfa ismini, aynı çalışma kitabında bulup seçmek.Biraz uğraştım ama yapamadım.

 

[unreal_avci]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b1:b550]) Is Nothing Then Exit Sub
SUT = Target
Sheets(SUT).Select
Sheets("MENU").[B2:e550].ClearContents
For I = 2 To Sheets.Count
S = S + 1
Sheets("MENU").Cells(1 + S, "B") = Sheets(I).Name
Sheets("MENU").Cells(1 + S, "C") = Sheets(I).[c5].Value
Sheets("MENU").Cells(1 + S, "D") = Sheets(I).[g3].Value
Sheets("MENU").Cells(1 + S, "E") = Sheets(I).[g5].Value

Next
End Sub
____________________________


"MENU" isminde sayfa olusturup bu makroyu o sayfaya keydedersen butun sayfalari listeleyecektir.

 

[KONYA42]

Teşekür ederim.Ama bu kod bana karışık geldi.Tam olarak anlayamadım.Benim istediğim listelenmesi değil,hedef sayfayı seçmek.Ekteki kitabımda buton yaptım.Butona basınca a2 hücresine yazdığım sayfa ismi açılacak.

 

[unreal_avci]

macro ekledigim dosyada calisir durumda. fakat sizin sayfa isimleri sayi oldugundan sanirim sayfaya gitmiyor. b1 hucresini secerseniz sayfalari siralar istediginiz sayfa ismine tiklarsaniz o sayfaua gidecektir. macroyu duzenleyerek sayfalardan istediginiz verileri alabilirsiniz.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub

 

[KONYA42]

Syn unreal avcı teşekür ederim ama bu kodlar benim kullanmak istediğim kitapta olmuyor.Çünkü ben o düğmeye basınca a2 hücresindeki sayfa ismi açılacak ve oraya arşiv kaydı (rapor ya da özet vs.) yapacak.Arşiv kaydını ben uğraşacağım.Ama a2 hücresindeki sayfa ismi düğmeyle açılmalı.Tekrar teşekür ederim.

Syn Evren GİZLEN, sizin kodlar kullanışlı gibi ama düğmeyle çalışmalı.Düğmeye uyarlamaya çalıştım ama kod hata veriyor.

 

[KONYA42]

Syn Evren GİZLEN,sizin yazdığınz kod üzerinden küçük bir değişiklikle sorunumu çözdüm.Tekrar teşekür ederim.Ayrıca düğmeye makro ekledim.
Sub aktar()
Sheets("Sayfa1").Range("A2").Select

Evet artık bu kod çalıştımı aşağıdaki sizi kod devreye giriyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub