Avatar of ExpressMan1
ExpressMan1Flag for Canada asked on

Format column and fill with date.

Hello,

I have column D with data in general format which are Invoice Dates. Example:

20130910
20130910
20130910

I am trying to get column C to show the dates as 10/09/2013

Here is the code I am using. I am getting type mismatch error.

Sub Invoice_Date()

Sheets("Sheet1").Select
Columns("C:C").Select
Selection.NumberFormat = "dd/mm/yyyy;@"
   
Selection.Formula "=DATEVALUE(MID(D2,5,2)&" / "&RIGHT(D2,2)&" / "&LEFT(D2,4))"

Selection.AutoFill Destination:=Range("C2").End(xlDown).Select
Range("D2").End(xlDown).Select
Selection.Columns.AutoFit

End Sub
Microsoft Excel

Avatar of undefined
Last Comment
ExpressMan1

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
FamousMortimer

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
ASKER
ExpressMan1

Perfect.   Thanks!
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes