Year to Date format - DD-MMM-YYYY

Sdwd76

New Member
Joined
May 17, 2021
Messages
26
Office Version
  1. 365
Platform
  1. Windows
I would like a button to convert a year into a date format.
The col is Y

For example if the cell contains 2018 then it is changed to 01-JAN-2018

Thanks in advance
 

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.

Peter_SSs

MrExcel MVP, Moderator
Joined
May 28, 2005
Messages
51,858
Office Version
  1. 365
Platform
  1. Windows
If it important to have the month abbreviation in upper case then the result will need to be Text, otherwise, to keep a true date, try

VBA Code:
Sub YearToDate()
  With Range("Y2", Range("Y" & Rows.Count).End(xlUp))
    .NumberFormat = "dd-mmm-yyyy"
    .Value = Evaluate(Replace("If(#="""","""",Date(#,1,1))", "#", .Address))
  End With
End Sub
 

Sdwd76

New Member
Joined
May 17, 2021
Messages
26
Office Version
  1. 365
Platform
  1. Windows
Great thanks this worked a treat.

If I want Col Z to have a text add to say "Date amended" is this possible? if the above works etc
 

Peter_SSs

MrExcel MVP, Moderator
Joined
May 28, 2005
Messages
51,858
Office Version
  1. 365
Platform
  1. Windows
If I want Col Z to have a text add to say "Date amended" is this possible?
Is this what you mean?

VBA Code:
Sub YearToDate_v2()
  With Range("Y2", Range("Y" & Rows.Count).End(xlUp))
    .NumberFormat = "dd-mmm-yyyy"
    .Value = Evaluate(Replace("If(#="""","""",Date(#,1,1))", "#", .Address))
    .Offset(, 1).Value = Evaluate(Replace("if(#="""","""",""Date amended"")", "#", .Address))
  End With
End Sub
 
Solution

Forum statistics

Threads
1,148,332
Messages
5,746,139
Members
423,994
Latest member
blzxatly

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top