İstenen sayfaya makro ile gitmek

[POLARIS]

İyi geceler arkadaşlar,
Daha önce çalıştırdığım bu makro şimdi çalışmıyor.
Yardımcı olabilirmisiniz.

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 <> "BİLANÇO" Then
Sheets("BİLANÇO").Select
Else
Sayfa = Target.Value
If Sayfa <> "" Then Sheets(Sayfa).Select
End If
son:
End Sub

Dosya ektedir.
Teşekkür eder iyi çalımalar dilerim.
Hoşçakalınız.

 

[revelte]

Bende çalışıyor. Makrolar etkin mi ?

Hata oluşuyorsa göstermesi için kodun başındaki

On Error GoTo son

satırını çıkarıp dener misin ?

Hata almıyorsan çıkardığın satırın yerine

MsgBox ""

kodunu ekler misin ? Bu kodu ekleyip denediğinde eğer makrolar çalıştırılıyorsa çift tıklamadan sonra mesaj kutusu görmen gerekiyor

 

[POLARIS]

İyi akşamlar,
Sayın revelte maalesef olmuyor.Yeni dosya ekledim.Bilanço sekmesinde
A1 hücresine çift tıkladığım zaman ACIBD sekmesine gitmesi gerekiyor.

 

[revelte]

Şimdi anladım söylemek istediğini. Önceden çalışıp, şimdi çalışmamasının sebebi a1 hücresini yanındakilerle birleştirmiş olman olabilir. Kodu şu şekilde değiştirebilirsin.

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 <> "BİLANÇO" Then
    Sheets("BİLANÇO").Select
Else
    Sayfa = Target.Cells(1, 1).Value
    If Sayfa <> "" Then Sheets(Sayfa).Select
End If
son:
End Sub

Ayrıca bilanço isimli sayfan içerisindeki kod gereksiz, silebilirsin.

 

[POLARIS]

Sayın revelte çok teşekkür ederim.Bu dosyada istediğim gibi oldu.
Ancak orjinal dosya 2007 ve o dosyada olmadı.Bir yanlışlık mı yapıyorum.

 

[revelte]

Ben de 2007 kullanıyorum. Herhangi bir sorun görünmüyor.
Dosyayı makro içerebilen bir formatta kaydettiğinden emin misin ?
Ofis 2007 açılışta makro Makrolar devre dışı bırakıldı.. şeklinde bir bar gösteriyor. Buradan makroları etkin hale getirmen gerekiyor. Bunu gözden kaçırmış olabilir misin ?

 

[POLARIS]

Sayın revelte Günaydın.
Anlayamadığım bir şekilde pc ye reset atıp tekrar açınca oldu.
Emekleriniz için çok teşekkür ederim.

Hoşçakalınız...

 

[senbaharlar]

Sayın revelte bende araç takip programınız var ama açılmıyor hata veriyor tekrar bulup yükleyemedim yardımcı olurmusunuz zafer

 

[revelte]

ilgili konu şu linkte. Son mesajımda uygulamanın son hali mevcut. Nasıl bir hata ile karşılaştığınızdan bahsederseniz yardımcı olmaya çalışırım.

http://www.excel.web.tr/f130/arac-takip-uygulamasy-t89876.html