Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: serkan_sdl - 01 Mayıs 2017, 14:54:16

Başlık: Hücre değerine göre sekmelere otomatik köprü atama...
Gönderen: serkan_sdl - 01 Mayıs 2017, 14:54:16

Arkadaşlar merhaba,

Yeni açılan bir sayfa ismi (Cemil, Ahmet, Hüseyin, Faruk) güncelle butunu ile ANASAYFA "A" sütununa ekleniyor...

A sütununda bulunan her ismin üzerine tıkladığımızda ilgili sayfaya gitsin... (otomatik olarak)

Her seferinde link atamaya gerek kalmasın...

Emeğinize sağlık...

Teşekkürler,

Başlık: Ynt: Hücre değerine göre sekmelere otomatik köprü atama...
Gönderen: Bülent Öztürk - 02 Mayıs 2017, 16:00:26

Merhaba,

Köprü eklemeye gerek kalmadan aşağıdaki kodları sayfa olayına yazabilirsiniz:

Kod: [Seç]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo hata
If Target.Column = 1 Then
Cancel = True
Worksheets(Target.Value).Select
End If
Exit Sub
hata:
MsgBox Target.Value & " isimli sayfa bulunamadı!", vbExclamation, "Dikkat!"
End Sub