Tarih Giriş Formulü

[gurkanntass]

Merhaba,

B1 Hücresine bir değer girdiğimde A1 hücresinde o değeri girdiğim tarih çıksın ve dosyayı 10 gün sonra açtığımda dahi yine değeri girdiğim tarih görünsün istiyorum. Mümkünse değişiklik saati bile olabilir.

İstediğimi ekteki dosyaya da ekledim.

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Sayfanın kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    [B1] = Format(Now, "dd.mm.yy hh:mm")
End Sub

 

[Hepgel]

Merhaba @gurkanntass

A sütununu tarih-saat olacak şekilde biçimlendirin
Kodu sayfanın kod bölümüne yapıştırın
A sütununa yazılan şeyin metin olmaması için Format(Now, "dd.mm.yy hh:mm") diye yazmadım
İşlem başka hücreleride kapsayacaksa [B1] yerine [B:B] yada [B8:B100] gibi alan adresini yazın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B1]) Is Nothing Then Exit Sub
    Target.Offset(0, -1) = Now
End Sub