bir sayfadan yönlendirme

[engineer1993]

Merhabalar,
Çoklu olarak kullandığım bir ürün ağacı var ve bu ürün ağacında butona tıkladığım zaman tanımladığım sayfaya gitmesini istiyorum:

Örnek olarak D5 basınca direk olarak sayfa 1 gitmesini istiyorum ama kod çalışmadı destek olur musunuz?

"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "D5" Then
Sayfa1.Activate
End If
End Sub
End Sub
"

 

[Ziynettin]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "D5" Then
        Sayfa1.Activate
    End If
End Sub

 

[engineer1993]

Merhabalar D5 değilde, butona bağlasam nasıl bir yol izlemem lazım?

 

[YUSUF44]

Aşağıdaki kodu kullanabilirsiniz:

Sub sayfayagit()
    Sayfa1.Activate
End Sub

Ya da

Sub sayfayagit()
    Sheets("Sayfa1").Activate
End Sub

 

[engineer1993]

Merhabalar Teşekkürler,

Bu bölümü şu şekilde geliştirmek istiyorum ama,

Örnek olarak aşağıda belirtildiği gibi bir excel'im mevcut K3 butona basınca sayfa 1 K4 Basınca Sayfa 2 ve K5 basınca sayfa 6 gitmesini istiyorum ama nasıl bir düzenleme yapmam lazım?

 

[YUSUF44]

“K3 butonu” nedir?

 

[engineer1993]

excel mevcut olan K3 satırı.

Bir diğer değişle combobox ile sayfa seçip istediğim sayfaya gidebilir miyim ? Benim excel çalışma kitabımda yaklaşık olarak 10-15 sayfa mevcut bu sayfaların her birine yönlendirme yapabilir miyim?

 

[YUSUF44]

Bu işlemi makroyla da yapabilirsiniz, köprü ile de. Köprü ekleme özelliğini incelemenizi öneririm.

Makroyla yapmak isterseniz yukarda verdiğim kodları her sayfa için ayrı ayrı ayarlayabilirsiniz. Daha sonra sayfanıza düğmeler ekler ve o düğmelere sağ tıklayıp makro ata diyerek ilgili makroyu seçebilirsiniz.

Aşağıdakki kodlar aaa ve bbb isimli sayfalara gitmek için kullanılabilir. Kodlardaki ilk satırlar makro adını temsil ediyor, kolaylık açısından gidilecek sayfanın adını yazdım, siz istediğiniz gibi adlandırabilirsiniz.

Sub aaa()
Sheets("aaa").Activate
End Sub

Sub bbb()
Sheets("bbb").Activate
End Sub

gibi

 

[engineer1993]

Anladım dönüşleriniz için teşekkür ederim.