veri doğrulama ile köprü oluşturma

[kemal turan]

Üstadlar iyi akşamlar,
Veri doğrulama--liste özelliği ile istenilen sahifeye gitme hususunda bir çalışma vardı araştırma yaptım bulamadım.
Ekte örnek dosyada da açıkladım.Veri doğrulama yapıldığı andan seçilen değere karşılık gelen sahife açılacak.
Teşekkürler

 

[Mahir64]

Merhaba,

Arşivimde bulduğum bir kodu eklemek istiyorum,

Sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub

 

[kemal turan]

Sn.Mahir bey,
Çok teşekkür ederim.İşiniz rast gitsin.
Selametle kalın.

 

[Mahir64]

Sn.Mahir bey,
Çok teşekkür ederim.İşiniz rast gitsin.
Selametle kalın.

Kodun sahibini forumda aradım ama bulamadım.

Teşekkür ederim. Selametle.

 

[kemal turan]

Mahir bey,
kodumuz bütün sahifelerde sorunsuz çalışıyor.
Yalnız bir sahifemizde aşağıdaki kod dan dolayı hata veriyor.
Kırmızı renkli bölümü sildim çare olmadı.
Nasıl bir düzenleme gerekiyor.
Teşekkür ederim.




Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 2) = ""
Target.Offset(0, 4) = ""
Target.Offset(0, 5) = ""

Else
If Target.Offset(0, 2) = "" Then Target.Offset(0, 2) = Date
If Target.Offset(0, 4) = "" Then Target.Offset(0, 4) = "TAHSİLAT"
If Target.Offset(0, 5) = "" Then Target.Offset(0, 5) = "SATIŞ-TAKSİT"
End If
son:

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets(CStr(Target.Value)).Select
End Sub

 

[kemal turan]

Bir düzenleme mümkün değil mi acaba?