Satırda yazılan yazıdan sonra yan satırda otomatik tarih yazmasın

[latimera]

Üstadlar S.A

Sayın Ziya beyin yardımlarıyla

If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Target.Offset(0, -2) = Date
If Target = "" Then
Target.Offset(0, -2) = ""
End If

makro yazıldı fakat ek'teki dosyaya eklediğimizde aşağıdaki hataleri vermekte.

1- satırları yazdığımda tarih geç geliyor
2- açıklmayı sildiğimde aradan 2-5 sanayi geçtikten sonra tarihi siliyor.
3- seri işlem yaptığım zaman If Target = "" Then satırında hatan var diyor.


Not: birden fazla sayfada bu makroyu nasıl aktif edebilirim.

yardımcı olabilirmisiniz

 

[uzmanamele]

Üstadlar S.A

Sayın Ziya beyin yardımlarıyla

If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Target.Offset(0, -2) = Date
If Target = "" Then
Target.Offset(0, -2) = ""
End If

makro yazıldı fakat ek'teki dosyaya eklediğimizde aşağıdaki hataleri vermekte.

1- satırları yazdığımda tarih geç geliyor
2- açıklmayı sildiğimde aradan 2-5 sanayi geçtikten sonra tarihi siliyor.
3- seri işlem yaptığım zaman If Target = "" Then satırında hatan var diyor.


Not: birden fazla sayfada bu makroyu nasıl aktif edebilirim.

yardımcı olabilirmisiniz

Merhaba
İşlemin geç yapılması kod ile ilgili değil, sizin makinenizin yavaş olmasından kaynaklanıyor.
2. sorunuzda kod doğru çalışıyor, C sütununda açıklama olmazsa tarih yazmayacaktır.
3. soru
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
Target.Offset(0, -2) = Date
If Target = "" Then
Target.Offset(0, -2) = ""
End If
End Sub
birden fazla hücre seçtiğinizde hata vermez ama tarihleri de silmez.

Birden fazla sayfada kodun çalışması için ya her sayfanın kod bölümüne bu kodları yazacaksınız ya da ThisWorkbook bölümüne.
ThisWorkbook bölümüne yazarsanız bütün sayfaların aynı formatta olması gerekir. Ya da başka standart modüle yazıp istenilen sayfalarda çalışması sağlanır. Bu durumda otomatik tetiklenmeyecektir.

 

[latimera]

Merhaba
İşlemin geç yapılması kod ile ilgili değil, sizin makinenizin yavaş olmasından kaynaklanıyor.
2. sorunuzda kod doğru çalışıyor, C sütununda açıklama olmazsa tarih yazmayacaktır.
3. soru
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
Target.Offset(0, -2) = Date
If Target = "" Then
Target.Offset(0, -2) = ""
End If
End Sub
birden fazla hücre seçtiğinizde hata vermez ama tarihleri de silmez.




Birden fazla sayfada kodun çalışması için ya her sayfanın kod bölümüne bu kodları yazacaksınız ya da ThisWorkbook bölümüne.
ThisWorkbook bölümüne yazarsanız bütün sayfaların aynı formatta olması gerekir. Ya da başka standart modüle yazıp istenilen sayfalarda çalışması sağlanır. Bu durumda otomatik tetiklenmeyecektir.

Yardımlarınız için teşekkür ederim...