Saat gibi görünün sayıları saat formatına çevirme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın C sütununda saat gibi görünen sayılar bulunmaktadır.
Yapmak istediğim butona bastığımda bu sayıları topluca saat formatına sokmak istiyorum.

Makro kaydet yöntemi ile yaptığım zaman, virgül ile yazılmış sayıları 16.01.1900 00:14:24 bu biçime çeviriyor.
Aşağıdaki kod ile yapmaya çalıştım ancak tam istediğim bir sonuca ulaşamadım.

Sub SaatAyarı()
ActiveSheet.Columns("C:C").NumberFormat = "hh:mm;@"
ActiveSheet.Columns("C:C").Replace what:=".", replacement:=":"
ActiveSheet.Columns("C:C").Replace what:=",", replacement:=":"
End Sub

Yardımcı olur musunuz?
.

 

[Necdet]

Merhaba,

Dener misiniz?

Sub SaatAyarı()

    With Columns("C:C")
        .Replace what:=",", replacement:=":"
        .Replace what:=".", replacement:=":"
        .Replace what:=":", replacement:=":"
    End With

End Sub

 

[ASLAN7410]

Sayın Necdet Bey, kod tam istediğim gibi çalıştı, ellerinize sağlık çok teşekkür ediyorum.
Hayırlı geceler diliyorum.

 

[Necdet]

Kodlar sizindi Biraz düzenledim, hepsu bu

 

[ASLAN7410]

Sayın Necdet Bey, yok denecek kadar az kod yazma bilgim mevcut, yapabildiğim makro kaydet ile bir şeyler yapmaya çalışmak, yada elimdeki kodlarda düzenleme yapmak.

Yine de çok teşekkür ediyorum.

 

[Necdet]

Güle güle kullanın, ben de halaaa makro kaydet kullanırım, sonra düzenleme yaparım. Her kodu yazmaktansa önce kodlar oluşsun üzerinde değişiklik ve kısaltmak daha kolay oluyor.

 

[ASLAN7410]

Sayın Necdet Bey, sizin dediğiniz gibi kodları orijinal sayfaya uyguladığımda hala düzelmemiş saat gibi görünün saatler var.
Kodları aşağıdaki gibi yaptım yine düzelmedi. Daha farklı format ne olabilir, onu deneyebilir miyiz?

Sub SaatAyarı()
With Columns("C:C")
        .Replace what:=",", replacement:=":"
        .Replace what:=".", replacement:=":"
        .Replace what:=":", replacement:=":"
    End With
ActiveSheet.Columns("C:C").NumberFormat = "hh:mm;@"
End Sub

 

[Necdet]

Verileri görmeden nasıl fikir üretilebilinir ki?