Padding Cells Results

[HomePro]

I am using text to columns to get a usable date format. I need to pad the results so they sort correctly. I formatted the column to do so but when I concatenate it it loses the padding.
Can any one help me?

Mileage_Report.xlsx
	H	I	J	K	L	M
1	Order Date	Date			RESULTS	NEEDED
2	Fri, Jul 1, 2022 at 9:00AM	Jul	01	2022	Jul-1-2022	JUL-01-202
3	Fri, Jul 1, 2022 at 9:00AM	Jul	01	2022	Jul-1-2022	Jul-01-2022
4	Tue, Jul 5, 2022 at 9:00AM	Jul	05	2022	Jul-5-2022	Jul-05-2022
5	Tue, Jul 5, 2022 at 9:00AM	Jul	05	2022	Jul-5-2022	Jul-05-2022
6	Fri, Jul 1, 2022 at 1:30PM	Jul	01	2022	Jul-1-2022	Jul-01-2022
7	Fri, Jul 1, 2022 at 9:00AM	Jul	01	2022	Jul-1-2022	Jul-01-2022
8	Fri, Jul 1, 2022 at 9:00AM	Jul	01	2022	Jul-1-2022	Jul-01-2022
9	Fri, Jul 15, 2022 at 1:30PM	Jul	15	2022	Jul-15-2022	Jul-15-2022
10	Fri, Jul 15, 2022 at 9:00AM	Jul	15	2022	Jul-15-2022	Jul-15-2022
11	Fri, Jul 15, 2022 at 9:00AM	Jul	15	2022	Jul-15-2022	Jul-15-2022
12	Tue, Jul 5, 2022 at 9:00AM	Jul	05	2022	Jul-5-2022	Jul-05-2022
13	Tue, Jul 5, 2022 at 9:00AM	Jul	05	2022	Jul-5-2022	Jul-05-2022
14	Wed, Jul 6, 2022 at 9:00AM	Jul	06	2022	Jul-6-2022	Jul-06-2022
Sheet1

Cell Formulas
Range	Formula
L2:L14	L2	=CONCATENATE(I2,"-",J2,"-",K2)

 

[Fluff]

How about

=DATE(K2,MONTH("1/"&I2),J2)

and format the cell as date.

 

[HomePro]

as always - right on point. tks.
But that creates an un seen complication. the next step was to get the oldest and newest dates and add that to the file name.
But the date code does not translate to the file name as dates. Thats why i was just trying to pad the cells.
I would like to save the file name as Filename "2022 - July - 06-185/ so I new the range for the report.
Any ideas?

 

[Fluff]

How are you creating the file name?

 

[HomePro]

I am concatenating the information from individual cells and assigning a variable at saving.
Also I was trying to save it to an online storage drive without mapping to location but that does not seem to work.


'Save File
LC = "Z:\_Operations\HPI\--- Weekly Metrics\Inspectors Mileage"
FN = "Inspectgor Mileage - "
DT = Sheets("Sheet1").Cells(1, "m")
FilePath = LC & "\" & FN & DT & ".xls"
Application.DisplayAlerts = False
ActiveWorkbook.saveas Filename:=FilePath, FileFormat:=xlExcel8
Application.DisplayAlerts = True
Application.Quit

[this is the desired save to location that i could not get to work]
'LC=https://work.zoho.com/#workdrive/ho...folders/rdj8id0786001aa5c4d2ba095f37928e04cf0"

 

[Fluff]

You need to format as a date like

DT = Format(Sheets("Sheet1").Cells(1, "m"),"mmm-dd-yyyy")

 

[HomePro]

tks

 

[Fluff]

You're welcome.

 

[HomePro]

I know the post is wrong - but any idea on how to save it to a web drive? Should I start a new post?

 

[Fluff]

Yes please.