Formatting Correct date using VBA

I have this raw data from a Company System, then I have this excel tracker to dump all the information. in A1 Colum that compose of Date from Company system but when I paste it to excel tracker it has a different format like this "83115", I want to seek for an vba code that will convert those unformatted date to convert as 08/31/2015. Thank you!

How do you know if 11115

1/11/2015? or 11/1/2015?

Originally Posted by sintek

eg...

Please Login or Register  to view this content.

Never work.

the result for 83115 is 7/23/2127

Yes, copying to a DOS base system then paste it to tracker

If A1 = 83115

Go To [Data] - [TextToColumns] -[ Next] - [Next]
Select [Date] - Select MDY from combobox then OK

See if this works

Yeah it works for 83115 but for some different format it doesn't work e.g 7713

Yeah that would be the problem.

If you upload a workbook and the result that you want, I will take a look at it...

Please see attached, A1 is the raw date and B1 is the desired result after clicking the command button. and also I found out that every date has a "0" in the middle so that should not be the problem e.g "030915"

Are you sure?

If the data is all 6 degits, TextToColumns should work...

Yeah as per my observation its always 6 digits default and the text to columns will work for now I'll let you know if i encounter different scenarios. Thank you guys!

Thank you! This work properly, how to use this using Module?

Why loop?

This should have no error no matter how many times you run.

Please Login or Register  to view this content.

you guys are great! thank you for all the help

Hi I more question how can I format again the Colum A back to general? I will have a seperate button for this to format again that Column. Thank you!

No error proof

Please Login or Register  to view this content.

It works! Thank you! very much appreaciated