Personal Macro to replace selection value

[Paulo_3456]

Hello everyone,

I am trying to do a very simple macro to replace date formats from MM/DD/YYYY to DD/MM/YYYY using a macro that I could use with some shortcut on my current selection on Excel :

Sub dateus_fr()

Dim date_us As String
Dim date_fr As String
Dim replace1 As String


date_us = Selection.Value
date_fr = Right(Left(date_us, 5), 2) & "/" & Left(date_us, 2) & "/" & Right(date_us, 4)


Selection.Offset(0, -1).Select
Selection.Offset(0, 1).Select


Selection.Value = date_fr


End Sub

When I execute this step by step, formula seem to work with date_fr being the right value I want but nothing happens to the cell when I execute the macro.

Does it have to do something with the cell format ?

Thank you for your help !

 

[shg]

You could instead select the column, Data > Text to columns, Next, Next, Date: DMY

 

[Paulo_3456]

Thanks for the reply, that works with Date formated cells but not with Text ones

 

[shg]

Works with both. If I enter 31/1/2019, it's a string with my regional settings, and it converts just fine to 1/31/2019.

 

[Fluff]

If the "dates" are MM/DD format in text to columns select MDY

 

[shg]

Brain cramp, thanks, Fluff.

 

[Fluff]

No worries, I'm used to converting US dates to UK dates.