otomatik tarih formatı

[balzevuv]

Merhaba. bir hücreye tarihi 29092018 şeklinde yazdığıımda otomatik olarak 29.09.2018 şeklinde düzelttirebilir miyim.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim yil, ay, gün As Integer
Dim Kelime
Kelime = Target.Value
If Target.Column = 1 Then
    On Error Resume Next
    Say1 = InStr(1, Kelime, ".")
    Say2 = InStr(1, Kelime, "/")
    If Say1 = 0 And Say2 = 0 And Len(Kelime) = 8 Or Len(Kelime) = 7 Then
    Application.EnableEvents = False
        yil = CInt(Right(Target.Value, 4))
        If Len(Kelime) = 8 Then
            ay = CInt(Mid(Target.Value, 3, 2))
            gün = CInt(Left(Target.Value, 2))
        Else
            ay = CInt(Mid(Target.Value, 2, 2))
            gün = CInt(Left(Target.Value, 1))
        End If
        tarih = gün & "." & ay & "." & yil
        Target.Value = CDate(tarih)
        Application.EnableEvents = True
    End If
End If
End Sub

 

[çıtır]

Uygulama alanını seçiniz.
Hücre bicimi.Tüm sayı bicimleri,isteğe uyarlanmış.Genel yazan alana aşağıdaki kodu kopyalayınız.

00"."00"."0000

 

[ataköylü-59]

Sayın balzevuv
Hocalarımız çözüm sunmuşlar sağ olsunlar.
Bir alternatif olarak, Tarih formatına çevirmek istediğiniz sayılarınız A2 den aşağıya doğru dizildiğini varsaydım.
B2 hücresine,
=EĞERHATA(0+BİRLEŞTİR(SOLDAN(A2;2);".";PARÇAAL(A2;3;2);".";SAĞDAN(A2;4));"")
yazıp aşağıya doğru kopyalayın.