Koda yardım lütfen

[honestguy25]

Üstatlar..

thisworkbook sayfasında
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
Dim Sayfa As String

If ActiveSheet.Name <> "Bibliography" Then
ActiveSheet.Visible = False
Sheets("Bibliography").Select
Else
Sayfa = Target.Value
Sheets(Sayfa).Visible = True
If Sayfa <> "" Then Sheets(Sayfa).Select
End If
Exit Sub
Son:
End Sub



kodum var ve çalışıyor fakat sadece "Bibliography" sayfasında çift tıklamaya izin veriyor. şimdi ise yeni bir veri sayfası oluşturdum "data"

orada da hücreye çift tıklayınca o isimli sayfaya gitmesini istiyorum başaramadım şu anki haliyle çalışmıyor...

 

[tahsinanarat]

Aşağıdaki kodu deneyiniz

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
sayfa = Target.Cells.Value
Sheets(sayfa).Select
End Sub

 

[honestguy25]

teşşekkürler

 

[honestguy25]

tahsin bey birde şu koda baksanız....

Sub fisdenbulma()
Dim Anch As Variant
On Error GoTo notfound
Anch = ActiveCell.Value

Sheets("Bibliography").Activate
Cells.Find(Anch).Activate
Exit Sub
notfound:
MsgBox "İstenilen veri Bibliographyada bulunamadı"

End Sub
bu çalışıyor ama aramayı sadece (C) sütünu içinde yapmak istiyorum.. bibliography sayfası c sütünu... ne yazmam lazım...

 

[tahsinanarat]

Şu şekilde deneyiniz;

Sub fisdenbulma()
Dim Anch As Variant
On Error GoTo notfound
Anch = ActiveCell.Value
Sheets("Bibliography").Activate
Range("c:c").Find(Anch).Activate
Exit Sub
notfound:
MsgBox "İstenilen veri Bibliographyada bulunamadı"
End Sub