hücreye sayı girildiğinde bugünün tarihini yazsın

[CaNeR__16]

arkadaşlar b2 hücresine sayı girdiğimde a2 hücresinde bugünün tarihinin yazmasını istiyorum

 

[YUSUF44]

=EĞER(ESAYIYSA(B2);BUGÜN();"")

Yalnız hücre biçimini tarih olarak ayarlamalısınız ve o tarih sürekli güncellenir. Örneğin bugün 14 şubat yazıyorsa, yarın B2'yi değiştirmeseniz bile 15 şubat olur.

 

[Mahir64]

arkadaşlar b2 hücresine sayı girdiğimde a2 hücresinde bugünün tarihinin yazmasını istiyorum

Sayın Yusuf bey'in vermiş olduğu tarih işleminizi gerçekleştirecektir. Ama BUGÜN() tarihi her yeni günde güncellenir. Tarihler kalıcı olsun isterseniz, sayfanın kod bölümüne aşağıdaki kodu giriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:B65536]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy")
End Sub

 

[CaNeR__16]

sayı girdiğimde tarih çıkmadı

 

[YUSUF44]

Ne çıktı?

Muhtemelen 40954 gibi bir sayı çıkmıştır. Eğer öyleyse hücrenin biçimini tarih olarak ayarlayın.

 

[CaNeR__16]

yok hayır kodu girdim ama sayı girdiğimde hiç bişey çıkmadı. sizin verdiğiniz formülle çıktı ama oda gün değiştiriyor. ben gün sabit kalsın istiyorum

 

[YUSUF44]

İkisini birarada kullanmanız gerekiyor. Benim formül bugün tarihini yazması için, Sayın Mahir'in kodu ise orda yazan tarihin değişmemesi için.

 

[CaNeR__16]

ikisini aynı anda kullandım ve saat ayarını 23:59 olarak değiştirdim bir dk bekledim. formülü aşağıya doğru çogaltmıştım ve sayı girdiğimde hepsininde tarihi değişiyor hiç sabit kalmıyor yardım edin nolur

 

[YUSUF44]

Örnek dosya gönderir misiniz?

 

[CaNeR__16]

dosya ektedir..

 

[Korhan Ayhan]

Merhaba,

Mahir beyin önerdiği kod işinize yarayacaktır. Sanıyorum siz dosyanıza uyarlayamadınız.

İlk olarak dosyanızı açın.
Alt tarafta bulunan "Sayfa1" yazısının üzerinde sağ klik yapın.
Açılan menüden kod görüntüle seçeneğini seçin.
Beyaz bir pencere açılacaktır. Mahir beyin önerdiği kodu bu pencereye aktarın.
Daha sonra excel sayfanıza geri dönün.
Dosyanızı kayıt edip kapatın.
Tekrar açtığınızda makroları etkinleştirerek açın.
B sütununa veri girip deneme yapın.

 

[CaNeR__16]

çok teşekkür ederim.

 

[hacihekimhanli]

Değerli arkadaşlar bu kodu aynen aktardım, benim tarih yazan hücre sütunu AV olduğu için o şekilde değiştirdim fakat tarih güncellemeye devam ediyor, yardımcı olabilirmsiniz lütfen.

 

[Mahir64]

Değerli arkadaşlar bu kodu aynen aktardım, benim tarih yazan hücre sütunu AV olduğu için o şekilde değiştirdim fakat tarih güncellemeye devam ediyor, yardımcı olabilirmsiniz lütfen.

Merhaba,

Dosyanızı eklerseniz inceleye biliriz..

 

[hacihekimhanli]

Merhaba,

Dosyanızı eklerseniz inceleye biliriz..

içini boşaltmak zorunda kaldım mecburen, yoksa foruma atamıyordum.
İlginize teşekkürler.

 

[Mahir64]

içini boşaltmak zorunda kaldım mecburen, yoksa foruma atamıyordum.
İlginize teşekkürler.

Sorun yok gibi. Tam olarak sorun nedir?

 

[hacihekimhanli]

Sorun yok gibi. Tam olarak sorun nedir?

tarih güncellenmesin istiyorum, hücre aldığı günkü tarihde kalsınki işlemin hangi tarihde yapıldığı her zaman sabit görünsün istiyorum. Bugün, yüklediğim dosya yine tarih güncelledi mesela.

 

[Mahir64]

Merhaba,

Anladım siz kod değil formül ile çözüm üretmişsiniz.
Hangi sütuna veri girildiğinde, hangi sütunda tarih sabit kalacak?

 

[hacihekimhanli]

"AM" hücresine var yazdığımda "AV" hücresinde tarih atıyor, "AV" hücresinde çıkan tarihin sabitlenmesini istiyorum.

 

[Mahir64]

Bu şekilde deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [AM2:AM65536]) Is Nothing Then Cells(Target.Row, "AV") = Format(Now, "dd.mm.yyyy")
End Sub