Date Format works for one column, but not the other

[crumbcounter]

Hello one of two lines are not working in Macro


Columns("C:C").NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"
Columns("D:D").NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"


Only works for column C. I have tried combining the lines "C:D", reversing order, and only having line for D. Column D is not reformatting. Any clues?

Task	Resources	Start Date	End Date	Status
Addresses, Dates, Contact Info, Drawings, Drops, and Other Info	Ben Gallahan	29-Nov-16	08/May/2017	Upcoming
Set up Recycling	Ben Gallahan	31-Mar-17	14/Apr/2017	Overdue
IT Presence Book Flight and Hotel	helpdesk	14-Apr-17	18/Apr/2017	Upcoming
IT Building Access	Ben Gallahan	31-Mar-17	21/Apr/2017	Upcoming
IT Suite Access	Ben Gallahan	31-Mar-17	21/Apr/2017	Upcoming
Give IT Presence Schedule and Contacts	Ben Gallahan	14-Apr-17	21/Apr/2017	Upcoming
Make sure Workstation items are sent to current office	Ben Gallahan	14-Apr-17	23/Apr/2017	Upcoming

<colgroup><col><col><col><col><col></colgroup><tbody>
</tbody>

 

[crumbcounter]

Upon posting this I notice hyphens for C and slashes for D. Ways to fix?

 

[MARK858]

What happens with the below?

Columns("D:D").Replace What:="/", Replacement:="-", LookAt:=xlPart
Columns("C:D").NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"

 

[crumbcounter]

What happens with the below?

Columns("D:D").Replace What:="/", Replacement:="-", LookAt:=xlPart
Columns("C:D").NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"

Figured out the problem. Sorry for wasting your time. Problem was with another part of the macro.


Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True


Columns("J:J").Select
Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True


I will be experimenting with outlook integration. Will probably have problems. Ill post under new thread. Thanks again