Belli Hücrelere Veri Girişiyle Tarih Atma

[mc_exrem]

Merhabalar

aşağıdaki kod ile yandaki satıra tarih atıyor ama ben bunu F6:F1000 ve G6:G1000 hücrelerine veri girdiğimde H sütununa uygulamak istiyorum.
Yardımcı olabilir misiniz

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("F6:F1000")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If Cells(sat, süt) <> "" Then
If sat >= 6 And sat <= 1000 Then
If süt = 6 Or süt = 7 Then
Cells(sat, "h") = Date
End If
End If
End If
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Not: Sorunuzun makro bölümünde olması gerekirdi...

 

[mc_exrem]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Target.Row
süt = Target.Column
If Cells(sat, süt) <> "" Then
If sat >= 6 And sat <= 1000 Then
If süt = 6 Or süt = 7 Then
Cells(sat, "h") = Date
End If
End If
End If
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Not: Sorunuzun makro bölümünde olması gerekirdi...

BU şekilde çalışmadı. Tekrar bakabilir misiniz

 

[muygun]

Bende çalışıyor ama...
Eki deneyin.

 

[mc_exrem]

Bende çalışıyor ama...
Eki deneyin.

Teşekkür ederim ilginiz için.
bende yazmıyor ama sayfadaki diğer makrolardan kaynaklanıyor olabilir mi acaba?

 

[muygun]

Diğer makroyu kaldırın. Gerekli kısımlar var ise bu makroya adapte edin.

 

[mc_exrem]

Diğer makroyu kaldırın. Gerekli kısımlar var ise bu makroya adapte edin.

Adapte etmeyi bilmiyorum. kodda bi eksiklik olabilir mi?
Dosyayı xlsm olarak kaydediyorum.

 

[mc_exrem]

Günaydın

Bu haliyle G hücresine yazınca atıyor ama H sütununa da eklemek istiyorum