Hücreyi buton gibi kullanmak

[koboy]

Merhaba 3 sayfam
sayfa1
sayfa2
sayfa3
diye

birde anasayfam var
a5 b15 kadar veri girişlerinde tıkladığımda sayfa1
d5 e15 kadar veri girişlerinde tıkladığımda sayfa2
f5 h5 kadar veri girişlerinde tıkladığımda sayfa3

nasıl gitmesini yapabilirim

 

[montani]

Sayın Koboy,

Yapacağınız işlem, bağlantı oluşturmak istediğiniz hücreye sağ tıklayarak, açılan menüden, ''Bağlantı'' seçeneğini seçmek.

Sonrasında da açılan ''köprü ekle'' kutusunda, ''Bu Belgeye Yerleştir'' seçeneğine gelip, hücreyi ilişkilendirmek istediğiniz sayfa numarasını seçmek.

Sizin için ufak bir deneme yaptım. Hücre değerlerini sayfa isimleri olarak girdim ama siz, elbette istediğiniz herhangi bir kelimeyi ya da değeri yazabilirsiniz.

Eğer sorunuz anladığım şekilde ise, makroya ihtiyacınız yok. Bu şekilde kolayca halledebilirsiniz.

Ayrıca, yazdığınız mesajı da biraz daha anlaşılır kılarsanız bizler için daha iyi olacaktır.

 

[koboy]

Teşekkür ederim ançak köprü ile yapmak istemiyorum bağlantı adresleri gözükmesini istemiyorum makro ile olursa daha çok işimi görür

 

[askm]

Örnek dosya eklerseniz dileğinizi yapmaya çalışalım.

 

[Emir Hüseyin Çoban]

Merhaba 3 sayfam
sayfa1
sayfa2
sayfa3
diye

birde anasayfam var
a5 b15 kadar veri girişlerinde tıkladığımda sayfa1
d5 e15 kadar veri girişlerinde tıkladığımda sayfa2
f5 h5 kadar veri girişlerinde tıkladığımda sayfa3

nasıl gitmesini yapabilirim

.

Anansayfa kod bölümüne yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [A5:B15]) Is Nothing Then
Sheets("Sayfa1").Select
End If

If Not Intersect(Target, [D5:E15]) Is Nothing Then
Sheets("Sayfa2").Select
End If

If Not Intersect(Target, [F5:H15]) Is Nothing Then
Sheets("Sayfa3").Select
End If

End Sub

.

 

[koboy]

Çok teşekkür ederim hemen deniyorum

 

[koboy]

Bu koda nasıl uyarırım verdiğiniz örneği

Örnek dosya bu konuda eklemiştim

http://www.excel.web.tr/attachment.php?attachmentid=191192&d=1510055818

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh As Worksheet
If Intersect(Target, Range("A6:B" & Cells(Rows.Count, "A").End(xlUp).Row)) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Set sh = Sheets("kasa")
sh.Range("E1").AutoFilter
sh.Range("A2").AutoFilter field:=2, Criteria1:=Cells(Target.Row, "A").Value
sh.