hücreye çift tıklayınca istenilen sayfayı seç

[şehiriçi]

örnek dosyada da açıkladığım gibi , sayfa 1 -2-3 de c1 hücresine çift tıklayınca genel sayfasını ( makro lu ) göstersin istiyorum ,şimdi den ilginize teşekkürler

 

[Ömer BARAN]

Merhaba.

Alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranının sağ tarafına aşağıdaki kod'u yapıştırın.
Aynı işlemi diğer sayfalar için de yapın.
.

[FONT="Arial Narrow"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [[B][COLOR="Red"]C1[/COLOR][/B]]) Is Nothing Then Exit Sub
Sheets("[B][COLOR="Blue"]genell[/COLOR][/B]").Activate: Cancel = True
End Sub[/FONT]

 

[askm]

Aşağıdaki kodları ilgili sayfaların kod kısmına ekleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Local Error Resume Next

If Target.Address = "$C$1" Then
Sheets("genell").Select
End If
End Sub