Otomatik Tarih Atama Sorunu

[mustafa4238]

Merhabalar kullanmış olduğum excel dosyası için veri girişi yapıldığında otomatik olarak tarih ve saat ataması ayarlamıştım sayfalar için yazmış olduğum fonksiyon ekledim fakat yaşadığım bazı sorunlar var madde madde yazdım nedeni nedir nasıl çözebilirim

Makro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:C1000")) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, -2).Value = ""
Else
Target.Offset(0, -2).Value = Now
End If
End Sub


Sorunlar;

1. C stun toplu bir şekilde birden fazla satır veri kopyala yapıştır yapamıyorum
2. Herhangi bir satır silmek istediğim takdir de hata alıyorum

 

[hamitcan]

Koda 2 satır ekledim, bir de böyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column < 3 Then Exit Sub 
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("C1:C1000")) Is Nothing Then Exit Sub
    If Target.Value = "" Then
    Target.Offset(0, -2).Value = ""
    Else
    Target.Offset(0, -2).Value = Now
    End If
End Sub