Format değiştirme

[bmutlu966]

Ekteki dosyada görünen tarihler üzerinden mokro ile bir türlü işlem yapamıyorum. Zannedersem tarihler text formatında geliyor. Öncelikle bu formatı bir makro ile normal bir tarih formatına düzeltmem gerekiyor. Bunu makro ile nasıl düzeltebilirim ?

 

[Mehmet Şahin]

Merhaba,
bu şekilde denermisiniz,saygılar

Dim i As Date
i = Replace(Range("a5"), ".", "/", 1)

 

[bmutlu966]

Merhaba,
bu şekilde denermisiniz,saygılar

Dim i As Date
i = Replace(Range("a5"), ".", "/", 1)

Sizin yazdığınız formülü açıkçası kullanamadım. Ancak bu mantıkla tarihleri seçip aşağıdaki şekilde değiştirdiğimde tarih 01.05.2010 iken 05/01/2010 oluyor. Yani gün ve ay yer değiştiriyor.

Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Mehmet Şahin]

Merhaba,
ben döngünün içinde kullanıp, denedim ve sorun kalmadı.

 

[bmutlu966]

Ok teşekkürler hallettim.