Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: judlas - 03 Şubat 2017, 15:22:43
-
Merhabalar
Sheet1 Ana Sayfam ve bu sheet dışında bir sürü sheet var. Ben ana sayfaya geri dönebilmek için bu sheetlerde bir hücreye aşağıdaki makro kodu tanımlamam gerekiyor. Ama tabi bu kodu her sheet altına tanımlamak lazım ve yeni bir sheet açtığımda açtığım yeni sheete bu kodu tekrar aktarmam gerekecek.
Bunun yerine bir modül altında tek bir kod olsa ve yeni bir sheet açılsa dahi o kod her sheete aynı hücrede o görevi yerine getirse olabilir mi bilgilerinizi rica ederim
Diğer sheetlerden Sheet1 e gidilmesini sağlayan hücre "R3" olmasını istiyorum
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell = [R3] Then
Application.Goto Reference:=Worksheets("Sheet1").Range("A1"), Scroll:=True
End If
End Sub
-
bu sorunu çözdüm
Thisworkbook Vba kod düzeneğine aşağıdaki kod düzeneği uygulanırsa tüm sheetlerden bu kod çalışacaktır
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell = [R3] Then
Application.Goto Reference:=Worksheets("Veri Girişi").Range("A1"), Scroll:=True
End If
End Sub