Soru Sayıyı saate çevirmek

[van_65166]

Üstadlarım merhaba

excelde herhangi bir hücreye 07 veya 09 gibi sayılar yazdığımızda 09:00 saat formatına dönüştürte bilirmiyiz.

Yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?
A sütununda 2. satırdan itibaren çalışır. Sütunu Saat olarak biçimlendirin.

Sadece rakamı yazın, 07 yerine 7 gibi.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub
    
    Application.EnableEvents = False
    Target.Value = TimeSerial(Target.Value, 0, 0)
    Application.EnableEvents = True
    
End Sub

 

[van_65166]

Merhaba,
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?
A sütununda 2. satırdan itibaren çalışır. Sütunu Saat olarak biçimlendirin.

Sadece rakamı yazın, 07 yerine 7 gibi.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [A:A]) Is Nothing Or Target.Row < 2 Or Target.Value = "" Then Exit Sub
   
    Application.EnableEvents = False
    Target.Value = TimeSerial(Target.Value, 0, 0)
    Application.EnableEvents = True
   
End Sub

çok teşekkür ederim sorun çözüldü