excel'de saati / ( slash ) ile girme

[İhsan Tank]

selam arkadaşlar mesaileri hesapladığım bir dosyam var ben bu dosyada saatleri elle girerken : ( iki nokta üstüste ) ile giriyorum bunu ( / slash ) yada * ( çarpı ) ( numaratörün üstündeki ) ile nasıl girebilirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

A sütunu için geçerlidir, siz kendinize uyarlayınız.

Saati 1320 yada 930 olarak girerseniz 13:20 ya da 09:30 olarak düzeltilecektir.


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
Application.EnableEvents = False
If Len(Target.Value) = 3 Then
Target.Value = TimeSerial(Left(Target.Value, 1), Right(Target.Value, 2), 0)
ElseIf Len(Target.Value) = 4 Then
Target.Value = TimeSerial(Left(Target.Value, 2), Right(Target.Value, 2), 0)
Else
MsgBox "Girilen Değer Saat Formatında Değil"
Exit Sub
End If
Target.NumberFormat = "h:mm"
Application.EnableEvents = True
Son:
End Sub

 

[İhsan Tank]

hocam çok teşekkür ederim
ellerinize sağlık