Excelde vba kodlarını otomatik diğer sayfalara nasıl yaparım

[afkan]

öncelikle selam hocam ben excelde sayfa 1 de a sütünuna veri girdiğim zaman b sütunua tarih ve saat atmasını ve bunu çalışma yaptığım exceli açtığımda otomatik vbanın başlamasını yaptım.ancak benim isteğim bunları diğer yani sayfa 2 ve sayfa 3(böyle 31 sayfa var)bunlara nasıl aktaracağım bir kodla bu mümkünmü yoksa her sayfaya 1.sayfadaki kodlarıda diğer sayfalara uygulayacağımmı.
saygılarımla yardımcı olursanız sevinirim

 

[uzmanamele]

merhaba

kodu sayfaların kod bölümüne ayrı ayrı yazmak yerine ThisWorkbook bölümüne yazabilirsiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cells(Target.Row, "b") = Now
End Sub

 

[afkan]

hocam çok teşekkür ederim