Makro ile saatleri ayırma

[canercaneryilmaz]

merhaba
Bir sütunda saatler ve metinler içeren veriler var ben sadece saatleri ayırmak istiyorum bunu nasıl yapabilirim makro ile. Örnek dosyayı bıraktım.

İndir deneme

Dosyayı indir deneme

dosya.co

 

[ÖmerFaruk]

Sütundaki saat formatları hep böyle olduğu kabul edilmiştir.

Sub Zamanlar()
    Dim Zaman
    On Error Resume Next
    For i = 2 To 11
        Zaman = Split(Range("A" & i), "-")
        If UBound(Zaman) = 0 Then
            Range("D" & i) = "zamanyok"
            Range("E" & i) = "zamanyok"
        Else
            Range("D" & i) = Format(CDate(Zaman(0)), "hh:mm")
            Range("E" & i) = Format(CDate(Zaman(1)), "hh:mm")
        End If
    Next i
    On Error GoTo 0
End Sub

 

[canercaneryilmaz]

teşekkür ederim elinize sağlık