Hücreye Yıl Girdiğimde..

[Ridan]

İyi günler,
Sayfa üzerinde hücreye (J1) yıl girdiğimde, mesela 2015, otomatik 01.01. ekleyerek 01.01.2015 yazsın. Normal tarih olarak algılansın. Makrolu veya makrosuz çözüm olabilir.

 

[catalinastrap]

bakın bi

İyi günler,
Sayfa üzerinde hücreye (J1) yıl girdiğimde, mesela 2015, otomatik 01.01. ekleyerek 01.01.2015 yazsın. Normal tarih olarak algılansın. Makrolu veya makrosuz çözüm olabilir.

şöyle bi çözüm var ama olurmu
=şimdi()

 

[Ridan]

şöyle bi çözüm var ama olurmu
=şimdi()

Bu şekilde olmaz. J1'e 2015 yazıp enter'ladığımda nasıl yazacak ki..

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J1]) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target = DateSerial(Target, 1, 1)
Application.EnableEvents = True
End Sub

 

[Ridan]

Teşekkürler Yusuf bey.