Date format

[hme]

Hi

I have to change data as yyyymmdd to date format as dd/mm/yyyy.would
you somebody help me?

thk

hme

 

[ExcelPower]

dim dt as date
dt=format(date, "dd/mm/yyyy")

 

[hme]

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

 

[Bob Phillips]

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)

 

[Roger Govier]

Hi
Mark the range of cells with the data to be converted.
Data>Text to Columns>Next>Next>Date>D/M/Y>Finish
Format the date column as required.

 

[hme]

Thanks Govier and philliphs

It is working !!

Rdgs
hme