saat ve tarih damgası (bugün)

[bayramadim]

merhaba dostlar
çalışma sayfasında b2 alanına bir veri girdiğimde a2 hücresine otm. tarih atıyor ancak exceli kapatıp ertesi gün açtığımda tarihi yine değişiyor yanşi ben işlemi yaptığımda veri girişi yapınca otm tarih atacak ancak bir daha değişeyecek şekilde nasıl ayarlarım

kullandığım formül şu şekilde
=EĞER(YADA(B2="");"";BUGÜN())

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/zaman-damgasi/

.

 

[bayramadim]

teşekkür ederim ama anlayamadım

 

[çıtır]

Birde buraya bakınız.
https://www.excel.web.tr/threads/huecreye-girilen-kelimeye-goere-zaman-yazdirma.177402/

 

[bayramadim]

Birde buraya bakınız.
https://www.excel.web.tr/threads/huecreye-girilen-kelimeye-goere-zaman-yazdirma.177402/

özele bakarmısınız

 

[çıtır]

B hücresine veri girdiğinizde A hücresine tarih atar ve değişmez.Bu işlemi B2:B4000 hücre aralığında işlem yaptığınızda yapar.Makro kodu.Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [B2:B4000]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
Target.Offset(0, -1) = Format(Now, "dd.mm.yyyy hh:mm:ss")
Else
Target.Offset(0, -1) = ""
End If
End Sub

 

[bayramadim]

çok teşekkür ediyorum sizlere uğraş verdim Küçük bir ricada bulunsam
b2 değer girince a1 e tarih atacak diğer hücrelerden etkilenmemeli
excel çalışma kitabında 365 tane sayfam her sayfada sadece b2 değer girince a1 tarih atacak şekiklde düzenlerseniz müteşekkir olurum

 

[çıtır]

Çalışma kitabı kodu olarak kopyalayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Intersect(Target, [B2]) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
Range("A1")= Format(Now, "dd.mm.yyyy hh:mm:ss")
Else
Range("A1")= ""
End If
End Sub