Saat girişinde format düzeni

[tchsyn]

merhabalar ekteki dosyamda saat alanlarına giriş yaparken ":" koymak zor oluyor.
12 12 yazdığımda 12:12 yada 1212 yazdığımda 12:12 olmasını sağlamak için makro yazmaya çalışıyorum başaramadım yardımcı olurmusunuz.
---------------------
Private Sub()
s1 = Sheets("Sheet1")
If Len(s1.Cells) = 2 Then s1.Cells.Text = s1.celss.Text & ":"
End Sub

 

[Merhum İdris SERDAR]

.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim aln As Range

    'Alanı siz belirleyin.
    Set aln = Me.Range("A1:A10")

    If Not Intersect(Target, aln) Is Nothing Then
        Application.EnableEvents = False
            Target.Value = TimeSerial(Left$(Target.Value2, Len(Target.Value2) - 2), Right$(Target.Value2, 2), 0)
        Application.EnableEvents = True
    End If

End Sub

şeklinde bir kod olabilir.

.

 

[manisalı88]

dosaynız ektedir.

 

[tchsyn]

manisalı bey teşekkürler ama VBA olarak koda ihtiyacım var.

 

[tchsyn]

yurttaş bey sizin yadığınız makro hata veriyor