Veri Doğrulama İle Sayfa Açma

[sefaburan]

Arkadaşlar Selamlar...

Ben B sütunundaki köprülenmiş sayfa listesini Sayfa 1deki A1 Hücresinde veri doğrulama yoluyla aldım lakin istiyorum ki Sayfa 1 A1 hücresinde bir sayfa ismini seçtiğimde direk o sayfaya gideyim. bu mümkün mü?

 

[ZorBey_]

Merahaba İyi Çalışmalar
Sayfa1 Kod Bolümüne Kopyalayıp (Alt + F11 ) Denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As String
bul = Range("A1")
If bul <> vbNullString Then
On Error Resume Next
Sheets(bul).Activate
If Err.Number <> 0 Then MsgBox (" Aradıgınız Sayfa Bulunamadı! ")
On Error GoTo 0
End If
End Sub

 

[sefaburan]

Merahaba İyi Çalışmalar
Sayfa1 Kod Bolümüne Kopyalayıp (Alt + F11 ) Denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As String
bul = Range("A1")
If bul <> vbNullString Then
On Error Resume Next
Sheets(bul).Activate
If Err.Number <> 0 Then MsgBox (" Aradıgınız Sayfa Bulunamadı! ")
On Error GoTo 0
End If
End Sub

üstad istediğim oldu da lakin bazı sayfaları bulunamadı diye açmıyor.

 

[ZorBey_]

Eğer Sayfa Adları Veri Doğrulamada Var
Fakat O İsimde Sayfalar Yoksa Normal.

 

[sefaburan]

Eğer Sayfa Adları Veri Doğrulamada Var
Fakat O İsimde Sayfalar Yoksa Normal.

tamam sorun çözüldü sağolasın. bir de bunu veri doğrulama listesiyle değil de, normal açılabilir birleşik listeyle nasıl yapabiliriz.

Ayrıca diğer hata da, aynı sayfada başka veri doğrlulamalar da var onlara tıkladığımda da diğer sayfalar o bölümdeki sayfalar açılıyor. ya da enter'a tıklayınca da sayfa açılıyor. ben sadece bu veri doğrulamada sayfayı seçince sayfa açılsın istiyorum.

 

[ZorBey_]

Sayın sefaburan
Eski Kodları Silin
Aşağıdaki Kodları Bir Butona Atayın


Sub Makro1()
Dim bul As String
bul = Range("A1")
If bul <> vbNullString Then
On Error Resume Next
Sheets(bul).Activate
If Err.Number <> 0 Then MsgBox (" Aradıgınız Sayfa Bulunamadı! ")
On Error GoTo 0
End If
End Sub

 

[sefaburan]

Sayın sefaburan
Eski Kodları Silin
Aşağıdaki Kodları Bir Butona Atayın


Sub Makro1()
Dim bul As String
bul = Range("A1")
If bul <> vbNullString Then
On Error Resume Next
Sheets(bul).Activate
If Err.Number <> 0 Then MsgBox (" Aradıgınız Sayfa Bulunamadı! ")
On Error GoTo 0
End If
End Sub

üstadım ben anlatamadım sanırım. ben istiyorum ki ekteki sayfa 1 de a1 hücresinde veri doğrulama yapmak yerine eklediğim şekildeki listede açılsa olmaz smı