Otomatik tarih tamamlama

[sametozyavuz]

B14 Hücresine otomatik tarih yazdırmak istiyorum.

bunun için Bugünkü tarihi örnek verecek olursam. 15.09.2014
B14 Hücresine ;
14 yazdığımda 14.09.2014 yazsın
15.08 yazdığımda 15.08.2014 yazsın
15.08.2013 yazdığımda olduğu gibi kalsın.

teşekkürler.

 

[Baggwell]

B14 Hücresine otomatik tarih yazdırmak istiyorum.

bunun için Bugünkü tarihi örnek verecek olursam. 15.09.2014
B14 Hücresine ;
14 yazdığımda 14.09.2014 yazsın
15.08 yazdığımda 15.08.2014 yazsın
15.08.2013 yazdığımda olduğu gibi kalsın.

teşekkürler.

Merhaba
15.08 yazdığında zaten 15.08.2014 gelir ama (hücre biçiminden tarihi seçersiniz)
14 yazdığında mantık iliştiremedim.

 

[sametozyavuz]

o hücreyi sadece tarih için kullanıyorum.
bana gelen yazıların tarihlerini kaydediyorum.
istiyorumki sadece günü yazdığımda o ayı ve yılı atsın.
eğer günü ve ayı ben belirlersem sadece yılı tamamlasın.
çünkü evrağın %80 i içinde bulunduğumuz ay tarihli.

 

[aliveli06]

B14 hücresini sağ tıkla -hücreleri biçimlendir-metin-tamam.

daha sonra sayfanın kod bölümüne aşağıda kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B14]) Is Nothing Then Exit Sub
Call trh
End Sub
Sub trh()
If Len(Cells(14, "b")) < 3 Then
Cells(14, "b") = Cells(14, "b") & "." & Month(Date) & "." & Year(Date)
Else
If Len(Cells(14, "b")) < 6 Then
Cells(14, "b") = Cells(14, "b") & "." & Year(Date)
End If
End If
End Sub

 

[sametozyavuz]

tam olmasını istediğim gibi.
çok teşekkür ederim.