CDate

[SBF12345]

Greetings,

I have a I column of values of the format " Aug 30, 2018" and so on. I would like to be able to convert these into the format "MM/DD/YYYY"

Dim A as Long, LastRow as Long
LastRow = Cells(Rows.Count,"A").End(xlUp).Row
For K = LastRow to 1 Step -1
CDate(Cells(K,"A").value) = Cells(K,"A").Value
Next K

I am receiving a syntax error on the CDate line. How can I correctly write this code?

 

[jasonb75]

It should be

Cells(K,"A").value = Cdate(Cells(K,"A").Value)

Check Dim A as Long as well

 

[Kenneth Hobson]

CDATE() converts a string value to a numeric. If the cells are strings, then CDATE() should be right side of equality sign. In either case, the number format will need to be set. A1 is usually a text field.

Uncomment the lines if they are string values.

Sub Main()
    'Dim A As Long, LastRow As Long
    'LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    'For K = LastRow To 1 Step -1
    '    Cells(K, "A") = CDate(Cells(K, "A"))
    'Next K
    Range("A1", Cells(Rows.Count, "A").End(xlUp)).NumberFormat = "MM/DD/YYYY"
End Sub

 

[strooman]

Cells(K,"A").value = CDate(Cells(K,"A").Value)
and pay attention to the cell format.

 

[SBF12345]

Thanks, got it running smoothly.