Makro ile excelde alt sayfalara gitmek

[OKUROGLU3375]

Selamlar; Excelde çalışma dosyasının altında 365 adet alt çalışma sayfam var. isim veya tarihten oluşan çalışma sayfalarına gidebilmek için örneğin D2 hücresine tarih veya isim girdiğim zaman o tarihe ait çalışma sayfasına gitsin..
Yardımlarınız için teşekkür ederim.

 

[kulomer46]

A sütununa otomatik sayfaları sıralayıp tıklayınca o sayfaya gitme

Ek'teki dosya da Sayfa1 sayfası her aktif olduğunda çalışma kitabınızda bulunan tüm sayfaların isimleri A sütununa alt alta sıralanmaktadır.
Sıralanmış sayfa isimlerinden istediğiniz sayfayı tıklayıncada o sayfa otomatik açılmaktadır.

 

[OKUROGLU3375]

TŞK...

Teşekkür ederim dosyayı indirme yetkim yok, ayrıca bütün dosyalar link şeklinde oluşturuluyor, fakat benim istediğim hücreye giriş yapmak giriş yaptığım an gitmesi...

 

[kulomer46]

Aşağıdaki kod, D2 hücresine gitmek istediğiniz sayfa ismini yazdığınızda çalışır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim say, i
If Target.Row = 2 Then
If Target.Column = 4 Then
say = Worksheets.Count

For i = 1 To say
If Target.Value = Worksheets(i).Name Then
Worksheets(i).Select
End
End If
Next
End If
End If

End Sub

 

[Beyribey]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
 
 For i = 1 To Worksheets.Count
 If Range("d2").Value = Worksheets(i).Name Then
        Worksheets(i).Select
        
End If
Next
End Sub