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

[latimera]

Üsdatlar S.A

aşağıdaki makroyu uyguladım sayfada çalışmadı sebebi ne olabilir ?

Not: Sayfa 2 de çalışmadı


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Target.Offset(0, -2) = Date
If Target = "" Then
Target.Offset(0, -2) = ""
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Ömer]

Merhaba,

Kod başlığını Tüm kitap için yazmışsınız. Sizin mesaj da mavi ile işaretledim. Başlık satırını aşağıdakiyle değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)

.

 

[Murat OSMA]

Sizin kodunuz Sayfa kodu değil Çalışma Kitabı kodudur...
Dolayısıyla sayfaya değil, Çalışma Kitabı içine yazılmalıdır...


Çalışma kitabı için; Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sayfa için; Private Sub Worksheet_Change(ByVal Target As Range)

 

[latimera]

Bilgilendirme için teşekkür ederim.

Sizin kodunuz Sayfa kodu değil Çalışma Kitabı kodudur...
Dolayısıyla sayfaya değil, Çalışma Kitabı içine yazılmalıdır...


Çalışma kitabı için; Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sayfa için; Private Sub Worksheet_Change(ByVal Target As Range)

 

[Murat OSMA]

Rica ederim...
Benden önce Ömer Bey size yanıt vermiş zaten ama mesajını görmediğim için bende aynı yanıtı vermiş bulundum...

 

[latimera]

Bilgilerinizi çekinmeden paylaştığınız için teşekkür ederim.

Merhaba,

Kod başlığını Tüm kitap için yazmışsınız. Sizin mesaj da mavi ile işaretledim. Başlık satırını aşağıdakiyle değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)

.