Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Her Sayfada hücreye atanmış makro kodun çalışabilmesi  (Okunma sayısı 3668 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı judlas

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: judlas judlas
  • Doğum Yılınız: 1978
  • İl / İlçe: İstanbul / Levent
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


Çevrimdışı judlas

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: judlas judlas
  • Doğum Yılınız: 1978
  • İl / İlçe: İstanbul / Levent
Ynt: Her Sayfada hücreye atanmış makro kodun çalışabilmesi
« Yanıtla #1 : 03 Şubat 2017, 17:35:08 »
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

Kod: [Seç]
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