Tablodan Sayfaya Yönlendirme

[alponur]

Merhabalar, aşağıda resimde de belirttim gibi listede olan "sayfa.3" seçtiğimde "sayfa.3" nasıl gidebiliriz, ( tüm sayfalar için yani "sayfa.10" nu seçtiğimde "sayfa10" na gitmesi gibi )

 

[AdemCan]

Merhaba;
Şu şekilde deneyiniz.

Combobox'ın olduğu sayfa ismi üzerinde Sağ Tuş \ Kod Görüntüle yi tıklayıp, aşağıdaki kodu ekleyiniz.

Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 1).Select
End Sub

 

[YUSUF44]

Sanıyorum E5 hücresine veri doğrulama yapmışsınız. E5 hücresini değiştirdiğinizde seçili olan sayfaya gitmesi için aşağıdaki kodları sayfa13'ün kod bölümüne (sayfa adına sağ tıklayıp Kod görüntüle deyince açılan sayfaya) yapıştırarak deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E5]) Is Nothing Then Exit Sub
For i = 1 To Sheets.Count
    If Sheets(i).Name = Target Then
        Sheets(i).Activate
        Exit Sub
    End If
Next
End Sub

 

[alponur]

Sanıyorum E5 hücresine veri doğrulama yapmışsınız. E5 hücresini değiştirdiğinizde seçili olan sayfaya gitmesi için aşağıdaki kodları sayfa13'ün kod bölümüne (sayfa adına sağ tıklayıp Kod görüntüle deyince açılan sayfaya) yapıştırarak deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E5]) Is Nothing Then Exit Sub
For i = 1 To Sheets.Count
    If Sheets(i).Name = Target Then
        Sheets(i).Activate
        Exit Sub
    End If
Next
End Sub

Teşekkür ederim dediğinizi uyguladım oldu fakat sorunum şu ben tarih olarak girmek istiyorum, tabloda "03.10.2018" sayfa adı da "03.10.2018" biçimi tarih olarak seçersem o sayfaya yönlenmiyor fakat metin olarak girersem bu sefer sayfaya yönleniyor bunun ile ilgili bir görüşünüz var mı acaba

 

[YUSUF44]

Cepten yazdığımdan kontrol edemiyorum.

.name = Target

Yerine

.name = text(Target, "dd.mm.yyyy")

Ya da

.name = WorksheetFunction.text(Target, "dd.mm.yyyy")

Olarak dener misiniz?

Tabi hücre biçiminiz metin değil tarih olmalı. Metin biçiminde olursa hata verir muhtemelen.