Thread: Date format
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default Date format

Sub RearrangeDates()
Dim ary
Dim i As Long, j As Long
Dim iLastRow As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
With Cells(i, "A")
.Formula = DateSerial(Left(.Value, 4), Mid(.Value, 5, 2),
Right(.Value, 2))
End With
Next i
End Sub



--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"hme" wrote in message
...

Hi Excelpower

Thanks for prompt reply.
The data is in general format and it is requested to change to date
format.
for example:"ABCDEFGH" should change to "GH/EF/ABCD" in date format.

thk,

hme


--
hme
------------------------------------------------------------------------
hme's Profile:

http://www.excelforum.com/member.php...o&userid=15930
View this thread: http://www.excelforum.com/showthread...hreadid=514122