Tarih makrosunu aynı sayfada 1 den fazla kullanmak?

[pitsss]

Merhaba,
şu makroyu kullanarak tarih yazdırdım.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [h13:h48]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Now
son:
End Sub
Fakat aynı sayfa içersinde birden fazla yerde farklı tarihler yazdırmam gerekiyor.bunu nasıl yapabilirim?
Mesela H13 ile H48 arasındaki hücrelere veri girilince I13 ile I48 arasına tarih yazılacak.
buraya kadar. herşey tamam. fakat. ben aynı zmanda.
L13 ile L48 arasına veri girlince M13 M48 arasına tarih yazılsın istiyorum.
Ayrıca P13 P48 ve T13 T48 arasına veri girince de bir sonraki hücrelierine tarih otomatik yazılsın.
yukarıdaki makroyu kullanınca. sadece ilk sistem çalışıyor. diğerlerine veri girişi otomatik olmuyor.
bunu nasıl yapablirim?
yardımlarınız için şimdiden sağolun?

 

[Orion1]

Merhaba.
Aşağıdaki kodu denermisiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [h13:h48,L13:L48,P13:P48,T13:T48]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Now
son:
End Sub

 

[pitsss]

Merhaba.
Aşağıdaki kodu denermisiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, [h13:h48,L13:L48,P13:P48,T13:T48]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Now
son:
End Sub

Yine çok Teşekkürler.
Harika .
tam istediğim gibi oldu.
Bilginin güç olduğunu tekrar kanıtladınız. çok teşekkürler.

 

[Orion1]

Rica ederim.
iyi çalışmalar.