Saat formatı bozuluyor

[ASLAN7410]

Merhaba, hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın 2.sayfasında oluştuduğum Düzelt butonuna bastığımda D sütunundaki saatlerin formatı bozuluyor,
Saatler gönderdiğim resimdeki gibi bozuluyor.

Bu dosyayı arkadaşlarla ortak kullandığımız için bazen saatlerin arasına nokta veya virgül koyduklarından,
yanlış hesaplamalara neden olduğu için bu kodu kullanıyorum.

Yardımcı olur musunuz?

 

[Ömer]

Merhaba,

.Replace What:=" ", Replacement:="." işleminde " " yerine verinin sonuna ekleme yapıyor. Tam olarak nedenini anlamadım fakat aşağıdaki yapı ile istediğiniz olur diye düşünüyorum.

With Sheets(2).Columns("D:D")
    .NumberFormat = "hh:mm AM/PM"
    .Replace What:=" ", Replacement:="."
    .Replace What:=",", Replacement:=":"
    .Replace What:=".", Replacement:=":"
    .Replace What:=":", Replacement:=":"
    .Replace What:=":AM", Replacement:=" AM"
    .Replace What:=":PM", Replacement:=" PM"
    .NumberFormat = "hh:mm;@"
End With

.

 

[Korhan Ayhan]

Çoklu kullanıcı tarafından kullanılan dosyalarda VERİ DOĞRULAMA size daha faydalı olacaktır. İlgili menüde ZAMAN ile ilgili seçenekte var. Deneyimleyebilirsiniz.

 

[ASLAN7410]

Sayın Ömer Bey ve Sayın Korhan Bey, ilginiz için çok teşekkür ediyorum.

Her iki çözümde işime yaradı, ellerinize sağlık.
Hayırlı günler diliyorum.