VBA Converting date from UK to US

[danny8890]

Hi,

I've currently got some vba that merges csv's together however the date is getting transferred to US by the macro.

The date is in Column E, i've tried various things to get this to work even creating a second macro to convert the date back afterwards however this didn't work either only changed the format of the date rather than the actual date.

If anyone could assist that would be great

Do Until EOF(1)               
Line Input [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1"]#1[/URL] , strData
                x = Split(strData, ",")
                For c = 0 To UBound(x)
                    Cells(r, c + 1).Value = Trim(x(c))
                    Next c
                r = r + 1
            Loop

thanks

 

[RoryA]

You'd need to use CDate for that:

If Isdate(Trim(x(c))) then
Cells(r, c + 1).Value = CDate(Trim(x(c)))
else
Cells(r, c + 1).Value = Trim(x(c))
end if