macro to find date in the string

[nshanmugaraj]

in my excel sheet ... on colA , i have these values.
these are pasted from notepad.. i have to write a macro to split the
values in the coumns
PAGE 1
WORK DEPOSIT HOURS OTHRS DTHRS WAGES
PERIOD DATE SSN EMPLOYEE NAME HOURS RATE OTHRS RATE DTHRS RATE WAGES
RATE AMOUNT

1606 M1601 TEMPLATE PERSON ONE
---------------------------------------------------------------------------------------------------------------------------------------------------


3/31/2003 6/02/2003 088-58-6287 DUNCAN THOMAS H 140.00 4.950 0.00 0.00
693.00
3/31/2003 6/02/2003 273-58-2260 LANGLEY STEPHEN MI 72.00 4.950 0.00
0.00 356.40
3/31/2003 6/02/2003 307-14-1923 ROSAS FRANCO 143.50 4.950 0.00 0.00
710.33
3/31/2003 6/02/2003 318-78-2627 GOODWIN STEVEN P 125.00 4.950 0.00 0.00
618.75


TOTAL

GRAND TOTAL

PAGE 2
WORK DEPOSIT HOURS OTHRS DTHRS WAGES
PERIOD DATE SSN EMPLOYEE NAME HOURS RATE OTHRS RATE DTHRS RATE WAGES
RATE AMOUNT

1601 TEMPLATE PERSON TWO

---------------------------------------------------------------------------------------------------------------------------------------------------



3/31/2003 6/02/2003 318-82-3479 WITTEKINDT LOWELL A 160.00 4.950 0.00
0.00 792.00
3/31/2003 6/02/2003 322-88-0428 ESPINO FELICIANO 152.00 4.950 0.00 0.00
752.40
3/31/2003 6/02/2003 324-76-4703 SHIMP MARK 127.00 4.950 0.00 0.00
628.65



How can i find the record is started and i have to use the data split
sub for the rows ..

'sub to split the column wise data
Range("A" & intRow ).Select
Selection.TextToColumns Destination:=Range("A13"),
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(24, 1), Array(37, 1),
Array(69, 1), _
Array(75, 1), Array(85, 1), Array(98, 1), Array(125, 1)),
TrailingMinusNumbers:=True

 

[Bob Phillips]

Have you tried Data>Text To Columns with a space delimiter?

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"nshanmugaraj" <[email protected]>
wrote in message
news:[email protected]...

 

[nshanmugaraj]

mr. Bob Phillips

yes . i tried. but the contents of the main column cell are also
replaced. so i need not chage the heading . i want to find in which row
the record is and then only to assign the data to column.

 

[Guest]

Have you tried importing the file instead of pasting it in from notepad. That
way you can select which lines and spaces are to be excluded.