Worksheet_Activate kodunu farklı sayfalarda çalıştırma

[byfika]

Merhabalar,
Private Sub Worksheet_Activate()

‘ kodlar

End Sub
Veriler örneğin B sütununa alt alta yazıyor ve yazılan ilk sayfaya giriş yapıldığında ilk sayfada problem yaratmıyor fakat ikinci sayfada yazılan verilerin ilk satırını yazıp kalıyor. Her iki sayfa için Kod içeriği aynı. Ve kodlar sayfanın kod bölümünde
Private Sub Worksheet_Activate() Kodu aynı kitap içerisinde farklı sayfalarda nasıl çalıştırılabilinir?
Bilgi için teşekkürler.

 

[AdemCan]

Merhaba,
VBA penceresinde, ThisWorbook bölümünü açınız ve kodlarınızı

[COLOR="Blue"]Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub[/COLOR]

içerisine yazıp deneyiniz.. Çalışma kitabınızda herhangi bir sayfayı açtığınızda kodlar çalışır.

 

[byfika]

Merhaba,
VBA penceresinde, ThisWorbook bölümünü açınız ve kodlarınızı

[COLOR="Blue"]Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub[/COLOR]

içerisine yazıp deneyiniz.. Çalışma kitabınızda herhangi bir sayfayı açtığınızda kodlar çalışır.

Sayın Faye_efsane,
Gönderiniz için teşekkürler. Fakat problem farklı şekilde devam etmekte. Örnek kitap ve A sayfasında açıklama yazdım. İlginiz için tekrar teşekkürler

 

[AdemCan]

Uykum geldi anlamadım açıkçası.
Örnek ile yapmak istediğinizi anlatır mısınız?
Olması gereken şekli nedir, hata nedir gibi.
Sabaha diğer arkadaşlardan cevap gelmiş olur sanırım.

 

[byfika]

Merhabalar, Ben açık olarak ekteki örneğe yazmıştım. Tekrar daha açık şekilde yazıp örnek kitabı yüklüyorum.
Bilgi için teşekkürler

 

[byfika]

Merhabalar, Konu açık, cevap gelmediğine göre herhalde istediğimiz şekilde kod çalışmıyor. Net cevap gelince konuyu kapatacağım.
Bilgi için teşekkürler