Otomatik tarih yazdırma

[topal52]

Merhaba kolay gelsin herkese.
A1 sutununa veri girdiğimde b1 sutununa günün tarihini otomatik atsın buna nasıl bir formül yazmamız lazım yardımcı olurmusnuz.

 

[Mahir64]

Merhaba,

=eğer(a1<>"";bugün();""

 

[yunus1476]

Merhaba,

=eğer(a1<>"";bugün();""

peki bu tarihin sabit kalmasını sağlayabliriyiz.?
mesala bugün a1 e bişe yazdım karşısına tarih atıldı.
yarın a2 ye yazdığımda karşısına bugün tarihi gelsin ama üstteki tarih aynen kalsın?

 

[Mahir64]

bişe ne demek? Sabit bir kod falan mı?

Sitede arama yaparsanız çözüm bulabilirsiniz.

--

 

[Seyit Tiken]

Mahir beyin açıklaması doğrudur, arama ile öğrenme daha iyi ve keyifli olur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = (1) Then
Cells(Target.Row, 2) = Date
End If
End Sub

 

[ahsunay]

bu kodu formüle dökebilirmisiniz

 

[Emir Hüseyin Çoban]

bu kodu formüle dökebilirmisiniz

. . .

Konu altında formül ve kod ile örneği mevcut. Ancak formüllü çözümlerde tarihi sabit tutamazsınız.
Tabloyu her açtığınızda o günün tarihine göre günceller.

. . .

 

[ahsunay]

haklısınız formül sonucu tarihse her gün yenilenir...ama farzedelim formülün sonucu A2 hücresinde bugünün tarihi...B2 HÜCRESİNE A2DEKİ DEĞERİ SABİTLEYEMEZMİYİZ FORMÜL YADA KODLA

 

[Emir Hüseyin Çoban]

haklısınız formül sonucu tarihse her gün yenilenir...ama farzedelim formülün sonucu A2 hücresinde bugünün tarihi...B2 HÜCRESİNE A2DEKİ DEĞERİ SABİTLEYEMEZMİYİZ FORMÜL YADA KODLA

. . .

Bu da 5 nolu mesajda mevcut.
A sütununda değişiklik yapıldığında, B sütununda karşısına tarih yazar.

. . .

 

[ahsunay]

Itiraf etmek gerekirse kodlardan çok anlamıyorum...o zaman sizden rica..benim formül sonucum c sütünunda..c sutunundaki formül sonucunun d sutununda değer olarak kalması için gerekli kodu yazabilirmisiniz...

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.

Aşağıdaki sayfa sekmelerin de, sayfa ismi üzerinde sağ tıklayın.
Kod görüntüle > açılan ekrana yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, "D") = Cells(Target.Row, "C")
End Sub

. . .