DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Change()
Sheets(ComboBox1.ListIndex + 1).Select
End Sub
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
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:
Kod: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