a sütununa veri girildiğinde b sütununa o anki tarihi otomatik atsın

[gunayy]

A sütununa herhangi bir yazı yazıldığında b sütununa o anki tarihi otomatik atsın istiyorum. nasıl yaparım?

 

[imberk]

=IF(A2<>"";TODAY();"")
B sut&#252;nuna bu kodu yazarsan&#305;z &#231;al&#305;&#351;acakt&#305;r. A2 h&#252;cresi bo&#351; de&#287;ilse BUG&#220;N&#252;n tarihini yazd&#305;r&#305;r. Di&#287;er t&#252;m ko&#351;ullar i&#231;in h&#252;creye bir&#351;ey yazmaz.

T&#252;rk&#231;e kullananlar i&#231;in de..
=E&#286;ER(A2<>"";BUG&#220;N();"")

 

[yunuscinki]

=&#351;imdi() ile yapars&#305;n ancak her a&#231;t&#305;&#287;&#305;nda tarihi g&#252;ncellero arihi bir kere at&#305;nca sabitlemek nas&#305;l olur bilmiyorum

 

[Ömer]

Merhaba,

&#304;lgili Sayfan&#305;n Kod Sayfas&#305;na a&#351;a&#287;&#305;daki kodlar&#305; yazarak denermisiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [[COLOR="Red"]A1:A50[/COLOR]]) Is Nothing Then Cells(Target.Row, "B") = Format(Date, "dd/mmmm/yyyy")
End Sub

 

[meslan]

A sütununa herhangi bir yazı yazıldığında b sütununa o anki tarihi otomatik atsın istiyorum. nasıl yaparım?

Ekteki dosyayı inceleyiniz.

 

[Ali]

Bu soru forumda defalarca soruldu. L&#252;tfen forumda arama yap&#305;n&#305;z.

Bir &#246;rne&#287;i

Tarih & Zaman & Saat Fonksiyonlar&#305; Uygulamalar&#305;

H&#252;cre de&#287;i&#351;imi&tarih adl&#305; sayfay&#305; inceleyiniz.

 

[himmgarip]

Merhaba,

Sayfa1 de A1:A50 asaında değişenleri Sayfa1 de B Sütununda gösteriyor.
Fakat Sayfa1 de A1:A50 asaında değişen hücre zamanını Sayfa2 de nasıl gösterebiliriz?

İstediğm şey aslında şöyle;

Hesap defterimde bulunan banka/pos cihazı ve nakit bölümünü hergün ayrıca excel e de kaydediyorum. Bu excel şablonunu 5 ayrı kişi kullandığı için son yapılan kayıtın/değişikliğin ne zaman yapıldığını bilmek istiyorum. Çalışma kitabında yeni sayfa açarak oradan takip edeceğim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [[COLOR="Red"]A1:A50[/COLOR]]) Is Nothing Then Cells(Target.Row, "B") = Format(Date, "dd/mmmm/yyyy")
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
        Sutun = Sheets("Sayfa2").Cells(Target.Row, Columns.Count).End(1).Column + 1
        Sheets("Sayfa2").Cells(Target.Row, Sutun) = CDate(Now)
        Sheets("Sayfa2").Cells(Target.Row, Sutun + 1) = Target.Value
        Sheets("Sayfa2").Cells.EntireColumn.AutoFit
    End If
End Sub

 

[himmgarip]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
        Sutun = Sheets("Sayfa2").Cells(Target.Row, Columns.Count).End(1).Column + 1
        Sheets("Sayfa2").Cells(Target.Row, Sutun) = CDate(Now)
        Sheets("Sayfa2").Cells(Target.Row, Sutun + 1) = Target.Value
        Sheets("Sayfa2").Cells.EntireColumn.AutoFit
    End If
End Sub

Evet aradığım bu teşekkürler. Lakin ben bir bölümü eksik yazdım.
Bu kodu 30 adet sayfadaki veriyi kontrol ederek RAPOR sayfasına her günü ayrı ayrı yazdıracağım.
yani 01/02/03....28/29/30 isimli sayfalardaki E8:E32 / E40:E45 / E53:E65 / J8:J32 / J40:J45 nolu hücrelerdeki değişiklikleri RAPOR sayfasına ekleteceğim.
Her sayfa için ayrı kodmu eklemem lazım. Yardımcı olurmusunuz lütfen.

 

[Korhan Ayhan]

Buna benzer konular daha önce işlenmişti.

https://www.excel.web.tr/threads/log-tutmak.27791/
https://www.excel.web.tr/threads/girilen-sayilari-kaydettirme-log-tutma.172403/