otomatik tarih atma

[19azra]

selamünaleyküm;

aşağıda gönderdiğim dosyanın şifresi küçük harflerle azra bende ofis 2007 kurulu

dosyada ocak 12, şubat 12 veya ağustos 12 sutunlarına rakam yazdığım zaman hareket başlığı altındaki tarih kısmına otomatik olarak o günkü tarihi atmasını istiyorum her yazdığımda tarihin otomatik olarak güncellenmesini istemekteyim şimdiden ilginiz içi tşekkür ediyorum allah razı olsun...

 

[YUSUF44]

Dosya ekte, formül açıklamalarını da yazdım. istediğinizi kullanırsınız.

 

[Necdet]

Merhaba,

Umarım doğru anlamışımdır.

B4:M23 aralığında herhangi bir hücrede değişiklik olduğunda ilgili sütunun 3. satırına tarih yazılır.

Kodlar ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [B4:M23]) Is Nothing Then Exit Sub
    Cells(3, Target.Column) = Date
 
End Sub

 

[19azra]

Hocam ikinizdende allah razı olsun sağolun