Saati Düzenleme

[Hsn55]

İyi günler;
Ekli örnek dosyada Veri Sayfasında E11:F41 hücre aralığına saati aşağıdaki gibi i girdiğim zaman otomatik olarak düzeltmek mümkün müdür?
Örneğin
08,00 yazdığım zaman 08:00
08.00 yazdığım zaman 08:00
08, yazdığım zaman 08:00
08. yazdığım zaman 08:00

örnek.xlsx indir

örnek.xlsx dosyasını indir, Dosya Upload, Dosya Paylaş, Dosya Yükle, Dosya Tc

dosyam.org

 

[Hsn55]

Hocam öncelikle teşekkür ederim. Sizden ricam kodları yada dosyayı link olarak paylaşabilir misiniz?

 

[Mdemir63]

Selamlar

Link

 

[Hsn55]

Hocam buton olmadan bunu yapabilir miyiz. Yani E11:F41 hücre aralığına yukarıda bahsettiğim şekilde girdiğim zaman anlık saate çevirecek

 

[ridvanucok]

Merhaba

Bu otomatik düzeltmeyi gerçekleştirmek için Excel'de bir formül kullanabilirsiniz. Aşağıdaki adımları takip edebilirsiniz:

1. Gerekli hücrelere 08,00 gibi saat değerlerini girin.
2. Boş bir hücrede, aşağıdaki formülü girin:

=IFERROR(TEXT(TIMEVALUE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(E11,".",":"),",",":")," ","")+":00"), "hh:mm"),"")

Bu formülde, E11 hücresindeki değer, nokta ve virgül işaretlerinin yerine iki nokta işaretiyle değiştirilir. Böylece, "08.00" veya "08,00" gibi değerler "08:00" olarak düzeltilir. Daha sonra, TIMEVALUE ve TEXT işlevleri kullanarak, bu değer bir zaman değerine dönüştürülür ve "hh:mm" biçiminde biçimlendirilir. 3. Bu formülü girdiğiniz hücrenin altındaki tüm hücrelere bu formülü uygulayın. Böylece, hücrelerdeki değerler otomatik olarak düzeltilecektir.
Bu yöntemle, belirli saat formatlarının otomatik olarak düzeltilmesini sağlayabilirsiniz. Ancak, saat formatları farklıysa, formülde bazı değişiklikler yapmanız gerekebilir.

 

[Korhan Ayhan]

Merhaba,

Bence bu işlemde makro kullanmak yerine VERİ DOĞRULAMA-ZAMAN özelliğini kullanmanız daha kolay ve pratik olacaktır.

Harici Link (Silinebilir) ; https://we.tl/t-wnnaS6ueUM

 

[Hsn55]

Korhan bey link ekleyebilir misiniz

 

[Korhan Ayhan]

Bir önceki mesajıma harici link ekledim.

 

[Hsn55]

Korhan bey asıl dosyamda veri doğrulama şeklinde kullanıyordum. Benim istediğim yanlışlıkla saati 08,00-08, -08.15- 08,15 gibi girdiğim zaman yani aşağıdaki şekilde makro ile düzeltilmesi idi
08,00=08:00
08,=08:00
08.=08:00
08.00=08:00

 

[Korhan Ayhan]

Ben size en pratik olan yöntemi önerdim. Bu yöntem sizin yanlış veri girişinizi engeller ve sizi doğru veri girişine zorlar.

Excelde boş bir hücrede sizin dediğiniz tarzda veri girişi yaptığınızda aşağıdaki görseller oluşur.

08,00 = 8
08, = 8
08. = 08.
08.00 = 08:00

 

[Korhan Ayhan]

Yine de makro ile yapmak istiyorsanız aşağıdaki kodu denersiniz.

Harici Link (Silinebilir) ; https://dosya.co/ib306wxqas4t/Saat_Biçimlendirme.xlsm.html

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    On Error GoTo Safe_Exit
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each Rng In Intersect(Target, Range("E11:F41"))
        If Rng <> "" Then
            Select Case True
                Case Len(Rng) > 4 And (Not Rng Like "*[.,:]*")
                    GoTo Alert
                Case Not IsNumeric(Rng) And (Not Rng Like "*[.,:]*")
                    GoTo Alert
                Case Len(Rng) = 1
                    If Not IsNumeric(Rng) Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Rng & ":00")
                Case Len(Rng) = 2
                    If Val(Left(Rng, 2)) > 23 Or Not IsNumeric(Right(Rng, 1)) Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Rng & ":00")
                Case (Rng Like "??.")
                    If Val(Left(Rng, 2)) > 23 Then GoTo Alert
                    Rng.Replace ".", ":"
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Rng & "00")
                Case (Rng Like "??,")
                    If Val(Left(Rng, 2)) > 23 Then GoTo Alert
                    Rng.Replace ",", ":"
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Rng & "00")
                Case (Rng Like "??:")
                    If Val(Left(Rng, 2)) > 23 Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Rng & "00")
                Case (Rng Like "??.??")
                    If Val(Left(Rng, 2)) > 23 Or Val(Right(Rng, 2)) > 59 Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng.Replace ".", ":"
                Case (Rng Like "??,??")
                    If Val(Left(Rng, 2)) > 23 Or Val(Right(Rng, 2)) > 59 Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng.Replace ",", ":"
                Case (Rng Like "??:??")
                    If Val(Left(Rng, 2)) > 23 Or Val(Right(Rng, 2)) > 59 Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng.Replace ":", ":"
                Case Len(Rng) = 3 And (Not Rng Like "*:*")
                    If Val(Left(Rng, 2)) > 23 Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Left(Rng, 1) & ":" & Right(Rng, 2))
                Case Len(Rng) = 4 And (Not Rng Like "*:*")
                    If Val(Left(Rng, 2)) > 23 Or Val(Right(Rng, 2)) > 59 Then GoTo Alert
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Left(Rng, 2) & ":" & Right(Rng, 2))
                Case IsNumeric(Rng)
                    Rng.NumberFormat = "hh:mm;@"
                    Rng = CDate(Rng)
                Case Else
Alert:              MsgBox "Lütfen saat formatında veri girişi yapınız!", vbCritical, "Hatalı Veri Girişi"
                    Application.Undo
            End Select
        Else
            Rng.NumberFormat = "@"
        End If
    Next
Safe_Exit:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("E11:F41")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Target.NumberFormat = "@"
End Sub

 

[Hsn55]

Korhan bey kodlar istediğim gibi çalışmadı. Yine de ilginiz için çok teşekkür ederim

 

[Mdemir63]

Selamlar

Sayın @Hsn55 bende Korhan Hocamın kodlarını denedim . Bende çalıştı

 

[Hsn55]

Selamlar

Sayın @Hsn55 bende Korhan Hocamın kodlarını denedim . Bende çalıştı

Hocam 9,15 yazdığım zaman farklı yazıyor e11:f41 arasını sildiğim zaman ise :00 şeklinde kalıyor

 

[Korhan Ayhan]

Küçük bir revize yaptım. Tekrar deneyiniz.

 

[Hsn55]

Korhan bey yine aynı hücreleri sildiğimde tüm hücreler 00:00 şeklinde oluyor.
Örneğin 08.10 yazdığımda 810:00 oluyor

 

[Korhan Ayhan]

Bu sebeple size ilk dosyayı önermiştim. Neresinden tutarsanız gördüğünüz gibi bozuluyor.

Belki ilgili alan METİN olarak biçimlendirilirse daha sağlıklı sonuçlar alınabilir.

 

[Hsn55]

Metin olarak ta denedim . Sonuç aynı

 

[Korhan Ayhan]

Sayıya göre kurguladığım için sorun oluyor.

Çözüm bulursam paylaşırım.

 

[Hsn55]

Çok teşekkür ederim. İyi akşamlar