Tarih Kodları..!

[sensizsoldum]

Merhabalar,
Aşağıdaki iki kod tek sayfada kullanılacak, farklı sütunlara veri girildiğinde, farklı stunlarda tarih yazıyor. Tek olayla kayıt ettiğim zaman hata alıyorum. bu kodları tek parça haline nasıl getirebiliriz yardımcı olabilir misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j:j]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target <> "" Then Target.Offset(0, -5) = Date
If WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, -5).Clear
Son:

Private Sub Worksheet_Change(ByVal Target As Range)
End SubIf Intersect(Target, [g:g]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target <> "" Then Target.Offset(0, -4) = Date
If WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, -4).Clear
End Sub

 

[İsmailCen]

Merhaba aşağıdaki şekli ile denedin mi?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j:j]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target <> "" Then Target.Offset(0, -5) = Date
If WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, -5).Clear
If Intersect(Target, [g:g]) Is Nothing Then Exit Sub
If Target.Row < 3 Then Exit Sub
If Target <> "" Then Target.Offset(0, -4) = Date
If WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, -4).Clear
Son:

End Sub

 

[sensizsoldum]

Tabiki denedim ama olmuyor, sadece ilk kısım çalışıyor.

 

[sensizsoldum]

Forumda aşağıdaki kodu buldum, kısa ve İyi çalışıyor. O kodu aynı sayfada c sütuna veri girildiğinde bir önceki sütunda da tarih yazılmasını istiyorum. Araya ne eklemem gerekiyor. Nasıl bir düzenleme yapılması gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 1) = Date
End Sub

 

[ZorBey_]

Merhaba
İyi Çalışmalar
C Sutununa Veri Girildiğinde
B Sutununa Tarih Atar



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column - 1) = Date
End Sub

 

[sensizsoldum]

Merhaba,
Arkadaşlar kusura bakmayın, konuya net bir yorum yazamadığımdan cevap alamadım sanırım.
Bu kodla C sütuan veri girildiğinde B sütuna tarih atar aynı zamanda, E sütuna veri girip girip Dsütuna da tarih atsın istiyorum. Bir sayfada iki farklı sütuna veri girip farklı sütunlara tarih atmasını istiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column - 1) = Date
End Sub

 

[mertcivan]

Kodları denermisiniz.

If Cells(Target.Row, 3) <> "" Then
Cells(Target.Row, 2) = Date
End If

If Cells(Target.Row, 5) <> "" Then
Cells(Target.Row, 4) = Date
End If

 

[sensizsoldum]

ikinci sütunda kitleniyor buda olmadı yani.