Aynı Koda Sahip 2. Makronun Çalışmaması

[progres35]

Arkadaşlar Merhaba,
Aşağıda örneği bulunan excel dosyasında C5 ila C204 sütununa veri girildiğinde AA5 ila AA204 sütununda ilgili hücrelere tarih atması işlemini başardım. Ancak aynı işlemi D5 ila D204 sütununa veri girildiğinde AB5 ila AB204 sütununda yapmak istediğimde aynı kodu yazdığım halde bu işlemi yapmıyor. Dosyadan da anlayabileceğiniz üzere bu işlemi Z sütununa kadar veri girildiğinde AX sütununa kadar tarih atmasını istiyorum.
Bu konuda yanlış yaptığım ya da yapmam gereken nedir?
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ediyorum...

İndir DENEME

Dosyayı indir DENEME

dosya.co

 

[ÖmerFaruk]

Private Sub Worksheet_Change_1(ByVal Target As Range)
Bu şekilde sonu 1-2 vb gibi bir olay VBA da yok.
Kodların hepsini silin ve aşağıdakini ekleyin.

Sadece şu kodu kullanın

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C:Z]) Is Nothing Then Cells(Target.Row, Target.Column + 24) = Format(Now, "dd.mm.yyyy")
End Sub

 

[progres35]

Private Sub Worksheet_Change_1(ByVal Target As Range)
Bu şekilde sonu 1-2 vb gibi bir olay VBA da yok.
Kodların hepsini silin ve aşağıdakini ekleyin.

Sadece şu kodu kullanın

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C:Z]) Is Nothing Then Cells(Target.Row, Target.Column + 24) = Format(Now, "dd.mm.yyyy")
End Sub

Acemi olduğum oldukça bellidir. Verdiğiniz kod çalıştı. Yardımınız için teşekkür ediyorum.