Tarih Formatı

[kamilsrky]

Arkadaşlar excel çalışma sayfasındaki a1 hücresine 01012009 yazdığımda tarihi 01.01.2009 olarak görünmesini istiyorum.Yani bu hücreye tarihi yazmaya başlayınca tarih ayracı olan "." otomatik olarak gelsin.Bunu yapabileceğim vba kadları varmı eğer varsa yardımcı olabilirseniz sevinirim.Şimdiden teşekkürler.

 

[Necdet]

Düz girişi tarihe çevirmek

Merhaba,

Forumda sık işlenen konu, yine de kodları verelim.

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız, Sadece A ve C sütununda hücrede değişiklik olduğunda çalışır. Siz kolonu kendinize uyarlayınız.




Tarihi :

• 05062009
• 5062009
• 5/6/9
• 5-6-9

gibi girebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A,C:C]) Is Nothing Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
Application.EnableEvents = False
If Len(Target.Value) = 8 Then
    Target = DateSerial(Right(Target.Value, 4), Mid(Target.Value, 3, 2), Left(Target.Value, 2))
ElseIf Len(Target.Value) = 7 Then
    Target = DateSerial(Right(Target.Value, 4), Mid(Target.Value, 2, 2), Left(Target.Value, 1))
Else
    Target = "Hatalı Tarih"
End If
Application.EnableEvents = True
Son:
End Sub

 

[kamilsrky]

Sayın Necdet Bey ilgi ve yardımınız için çok teşekkür ederim.

 

[Necdet]

Sayın Necdet Bey ilgi ve yardımınız için çok teşekkür ederim.

Rica ederim, iyi çalışmalar.