Sort The Date at the center of string with VBA

G

geniusideas

Hi, I need to sort date ascending or descending but the problem now the date location at the center or string for example 09-02-18012013-86653-A wherethe date is 18012013. This data at column A where column B to G got other data.Anyone here got idea how to do it with VBA. Thanks
 
C

Claus Busch

Hi,

Am Wed, 13 Feb 2013 06:19:01 -0800 (PST) schrieb geniusideas:
Hi, I need to sort date ascending or descending but the problem now the date location at the center or string for example 09-02-18012013-86653-A where the date is 18012013. This data at column A where column B to G got other data.Anyone here got idea how to do it with VBA. Thanks
Click to expand...

with helper column in H (suit if you have headers):

Sub SortDate()
Dim LRow As Long
Dim intD As Integer, intM As Integer, intY As Integer
Dim rngC As Range

LRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In Range("A1:A" & LRow)
intD = Mid(rngC, 7, 2)
intM = Mid(rngC, 9, 2)
intY = Mid(rngC, 11, 4)
rngC.Offset(0, 7) = DateSerial(intY, intM, intD)
Next
Range("A1:H" & LRow).Sort key1:=Range("H1"), _
order1:=xlAscending, Header:=xlNo
Columns("H").ClearContents

End Sub


Regards
Claus Busch
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

sorting: cleared/null v/s "" 3
sort entire range with exception of last row 2
Multiple Conditions - VBA 1
How do I sort nulls within date field in Excel 2
Values of the last date 2
Macro or VBA to Clear Contents of Rows By Date (Starting At A5) 1
VBA- Excel Programming:- 0
date handling problem with International issues 2

Top