EXCELL SAYFALARIM ARASINDA GEÇİŞ YAPTIRMAK İSTİYORUM

[karakrall01]

Herkese kolay gelsin, excell de 100 yakın sayfam bulunmakta ben “ANA GİRİŞ” diye yeni sayfa ekleyip orda sayfalar arası geçiş yaptırmam lazım şöyle söylim bir hücre oluşturucam onun içine hangi sayfanın ismini yazarsam o yazdığım sayfaya gitmek istiyorum yardımcı olabilirmisiniz

 

[muysun35]

Sub ListSheets()
Dim ws As Worksheet
Dim x As Integer
Set ws = Worksheets("ANAGİRİŞ")
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next ws
End Sub

dener misiniz?

 

[muysun35]

2 Nolu mesaj sayfaları listeler. bu kod Hyperlink atar.
Sub List_Sheets()
Dim Ws As Worksheet
Dim x As Integer
Worksheets("ANAGİRİŞ").Select
Range("A1").Select
For Each Ws In ActiveWorkbook.Worksheets
ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & Ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=Ws.Name
ActiveCell.Offset(1, 0).Select
Next Ws
End Sub

 

[muysun35]

Sub ListSheets()
Dim ws As Worksheet
Dim x As Integer
'Set ws = Worksheets("ANAGİRİŞ") 'Bu kısmı silin Hata var..
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next ws
End Sub

dener misiniz?

 

[Saban Sertkaya]

Alternatif;

A1 hücresine yazdığınız sayfaya gider.

Sub sayfa()
Sheets("" & [A1] & "").Select
End Sub

 

[muysun35]

Herkese kolay gelsin, excell de 100 yakın sayfam bulunmakta ben “ANA GİRİŞ” diye yeni sayfa ekleyip orda sayfalar arası geçiş yaptırmam lazım şöyle söylim bir hücre oluşturucam onun içine hangi sayfanın ismini yazarsam o yazdığım sayfaya gitmek istiyorum yardımcı olabilirmisiniz

100 e yakın sayfayı aklınızda tutmayın diye, liste üzerinden tıklamayla gidersiniz diye düşündüm.
Bu arada 3 nolu mesajda Dim x As Integer satırını da silebilirsiniz. gereksiz değişken atamışım oraya

 

[karakrall01]

Sub ListSheets()
Dim ws As Worksheet
Dim x As Integer
Set ws = Worksheets("ANAGİRİŞ")
x = 1
Range("A:A").Clear
For Each ws In Worksheets
Cells(x, 1) = ws.Name
x = x + 1
Next ws
End Sub

dener misiniz?

Denedim ama birtürlü beceremedim yapamadım. genel hatları ile projemin bir kısmını koydum buraya kodu yerleştirebilirmisiniz hem bende incelemiş olurum tam anlamıyla şimdiden teşekkürler

 

[Saban Sertkaya]

...............

 

[alicimri]

AnaSayfanın kod modülüne aşağıdaki kodu yapıştırın.
A1 hücresine yazdığınız metin bir sayfa adı ise o sayfayı aktifleştirir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$2" Then
Sheets(Range("a1").Value).Activate
End If
End Sub

 

[kinikemrah]

Merhabalar. Sizin için Bir makro Hazırladım. VERİTABANI sayfasında A sekmesine sayfaların isimlerini yazarsanız UserForm üzerine ekli bir combobox ve Button ile istediğiniz sayfaya hızlıca gidebilirsiniz. İşinize Yararsa Ne mutlu bana.

https://dosya.co/mqx8n56saabw/SayfalarArasiGecis_Makro_Kullanarak.xlsm.html

 

[kinikemrah]

Dosyayı indirmek istemeyenler için ise kodlar
Vba da userform oluşturun. Bir combobox1 adında combobox ve CommandButton1 adında bir tuş koyun içine girin ve aşağıda komutları yazın.
daha sonra excel'e dönüp Sayfalar Adında Bir Sayfa Hazırlayın ve A sutununa Sayfalarınız adını sırayla yazın. sonra oluşturduğunuz Userformu çalıştırın.
Private Sub CommandButton1_Click()
On Error Resume Next
Sheets(ComboBox1.Value).Select
End Sub

Private Sub UserForm_Initialize()
Me.ComboBox1.SetFocus
"userform adını yazınız".ComboBox1.SetFocus
ComboBox1.RowSource = "'Sayfalar'!a2:a" & ['Sayfalar'!a1453].End(3).Row + 1 ' Sayfalar Adında Bir Sayfa Hazırlayın ve A sutununa Sayfalarınız adını sırayla yazın.
End Sub

 

[karakrall01]

AnaSayfanın kod modülüne aşağıdaki kodu yapıştırın.
A1 hücresine yazdığınız metin bir sayfa adı ise o sayfayı aktifleştirir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$2" Then
Sheets(Range("a1").Value).Activate
End If
End Sub

Teşekkür ederim bu kod işe yaradı ayrıca diğer cevap veren arkadaşlar çok sağolun, ama birşeyi bir türlü yapamadım şimdi a1 tanımlı kod sıkıntı yok ama a1 değiştiremiyorum başka hücre tanımladığımda çalışmıyor acaba onu nasıl düzelte bilirim şimdiden teşekkür eserim

 

[alicimri]

Herhangi bir hücrede bir sayfa adı yazıp, Enter tuşuna basarsanız, yazdığınız sayfa aktifleşir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Offset(-1, 0).Value).Activate
End Sub

 

[Saban Sertkaya]

Herhangi bir hücrede bir sayfa adı yazıp, Enter tuşuna basarsanız, yazdığınız sayfa aktifleşir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheets(Target.Offset(-1, 0).Value).Activate
End Sub

Ya ENTER'e basmaz ise ?

 

[kinikemrah]

Benim Hazırladığımı beğenmediniz mi ) daha Stabil. Özür dilerim benim anladığım kodlar olduğu için sanırım daha stabil.

 

[alicimri]

Ya ENTER'e basmaz ise ?

Eğer Enter tuşuna basmak yerine, Maus ile Sayfa isminin bulunduğu hücrenin altındaki hücreyi değil de başka bir hücreyi seçerseniz hiçbir şey olmaz.

 

[Saban Sertkaya]

alicimri Bey, elbette bizimkisi dostane takılma
Siz zaten mesajınızda, belirtmişsiniz.

Herhangi bir hücrede bir sayfa adı yazıp, Enter tuşuna basarsanız, yazdığınız sayfa aktifleşir.

 

[ttr14]

AnaSayfanın kod modülüne aşağıdaki kodu yapıştırın.
A1 hücresine yazdığınız metin bir sayfa adı ise o sayfayı aktifleştirir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$2" Then
Sheets(Range("a1").Value).Activate
End If
End Sub

hocam bunu bütün sayfaların a1 hücresinde yapmak istiyorum ama işin içinden çıkamadım