- Katılım
- 23 Eylül 2017
- Mesajlar
- 43
- Excel Vers. ve Dili
- 2016
- Altın Üyelik Bitiş Tarihi
- 02-07-2022
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim syf As String
On Error GoTo Son
If Intersect(Target, Range("F5:F" & Rows.Count)) Is Nothing Then Exit Sub
syf = Target.Value
If syf <> "" Then Sheets(syf).Select
Exit Sub
Son:
MsgBox "Sayfayı Bulamadım", , "excel.web.tr"
Target.Offset(1, 0).Select
End Sub
merhaba bu kod hücreye sayfa ismini yazıyorsun ve o sayfaya gidiyor
sayfa gizli olunca kod sayfayı bulamıyor
sizden ricam bu koda eğer sayfa gizliyse sayfayı açmasını ve kodların çalışmasını sağlıycak bir komut eklemeniz
Dim syf As String
On Error GoTo Son
If Intersect(Target, Range("F5:F" & Rows.Count)) Is Nothing Then Exit Sub
syf = Target.Value
If syf <> "" Then Sheets(syf).Select
Exit Sub
Son:
MsgBox "Sayfayı Bulamadım", , "excel.web.tr"
Target.Offset(1, 0).Select
End Sub
merhaba bu kod hücreye sayfa ismini yazıyorsun ve o sayfaya gidiyor
sayfa gizli olunca kod sayfayı bulamıyor
sizden ricam bu koda eğer sayfa gizliyse sayfayı açmasını ve kodların çalışmasını sağlıycak bir komut eklemeniz