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
-
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,
-
Merhaba,
Köprü eklemeye gerek kalmadan aşağıdaki kodları sayfa olayına yazabilirsiniz:
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