Otomatik tarih yazımı

[blade_boy87]

MERHABA ARKADAŞLAR

ÇALIŞMAMI ÖZETLERSEM;
C2 HÜCRESİNE + KOYDUĞUMDA OTOMATİK DEĞERİ O2 HÜCRESİNE YAZIYOR.
O2 HÜCRESİNE DEĞERİ HANGİ TARİHTE YAZDIYSA O TARİH ORAYA SABİTLENSİN İSTİYORUM.
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Aralik As Range, ilk As Range
Set Aralik = Range("O2:O1000")
Application.EnableEvents = False
For Each ilk In Range(Target.Address)
If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 1) = Date
Next ilk
Application.EnableEvents = True
Set Aralik = Nothing
End Sub


BU KODLARI SAYFAMA EKLEDİĞİM ZAMAN HERALDE O2 ÜCRESİ FORMÜL OLDUĞUNDAN TARİHİ P2 HÜCRESİNE YAZMIYOR.

BİR DE KODU YAZDIĞIM ZAMAN SAYFAYI KAPATTIĞIM ZAMAN KODLAR SİLİNİYOR.

İNŞALLAH AÇIKLAYICI OLMUŞTUR. YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜR EDERİM..

 

[blade_boy87]

Yokmu Arkadaşlar bu konu hakkında bilgisi olan, yardımcı olacak ??

 

[blade_boy87]

arkadaşlar yardımlarınızı bekliyorumm hala !!!

 

[blade_boy87]

??????????????????????

 

[blade_boy87]

C2 HÜCRESİNE + KOYDUĞUMDA OTOMATİK DEĞERİ O2 HÜCRESİNE YAZIYOR.
O2 HÜCRESİNE DEĞERİ HANGİ TARİHTE YAZDIYSA O TARİH ORAYA SABİTLENSİN İSTİYORUM.

dosya ekte.

arkadaşlar yardımlarınızı bekliyorum