vba code require to separate date from code

[VBABEGINER]

Hi All,

I need a vba code, where I can split range value in code and date.

This are the values in Col A.

[TABLE="width: 150"]
<colgroup><col></colgroup><tbody>[TR]
[TD]CGU 002 - 05/89[/TD]
[/TR]
[TR]
[TD]ECG 21 501 - 05/00[/TD]
[/TR]
[TR]
[TD]ECG 21 762 - 04/14[/TD]
[/TR]
[TR]
[TD]CG 21 73 - 01/00[/TD]
[/TR]
[TR]
[TD]CG 21 06 - 05/14[/TD]
[/TR]
[TR]
[TD]CG 21 35 - 10/01[/TD]
[/TR]
[TR]
[TD]CG 21 47 - 12/07[/TD]
[/TR]
[TR]
[TD]CG 21 54 - 01/96[/TD]
[/TR]
[TR]
[TD]CG 21 55 - 09/99[/TD]
[/TR]
[TR]
[TD]CG 21 86 - 12/04[/TD]
[/TR]
[TR]
[TD]CG 21 96 - 03/05[/TD]
[/TR]
[TR]
[TD]CG 22 34 - 04/13[/TD]
[/TR]
[TR]
[TD]CG 22 43 - 04/13[TABLE="width: 150"]
<colgroup><col></colgroup><tbody>[TR]
[TD]CGU 002 - 05/89[/TD]
[/TR]
[TR]
[TD]ECG 21 501 - 05/00[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

Here, "05/89" these are dates. I want, "CGU 002" these in A range and "05/89" these in B Col with addition of "05/01/89"..

Can some one pls help..

 

[VBABEGINER]

Hi Rick Sir..
With this I have one query...one date format is not coming in proper output..

Could you please, tell me the reason it is not capturing with our code..
dates are..

UTS-COVPG 7-03
IL 00 17 02/2013

for these, output coming like these..

Form number Date
UTS-COVPG 7-03 12/3/1901
IL 00 17 02 20/01/13

which incorrect...can you guide..

Give this revised macro a try (note I revised the comments for the changed parts of the code as was needed)...

 

[Rick Rothstein]

Hi Rick Sir..
With this I have one query...one date format is not coming in proper output..

Could you please, tell me the reason it is not capturing with our code..
dates are..

for these, output coming like these..

Form number Date
UTS-COVPG 7-03 12/3/1901
IL 00 17 02 20/01/13

which incorrect...can you guide..

The reason my code doesn't work for those is because they do not follow the format you told us all of your numbers follow. In Message #9 , you told us this...

"In all the pattern, last 04 digit's are my date. (MM/YY format.)

That first example only has 3 numbers in it while the second example appears to have 17 as its month number. I can probably rewrite my code (and it will take an actual rewrite) to handle the first example, but I am not sure on that second example whether the answer is the 02 is the month and 17 is the year OR whether I am supposed to use the last three digits (7 02) only because the last four digits cannot be made into an actual mm/dd date.

 

[VBABEGINER]

Thank You so much for your reply sir...

I agree totally that we made the code like MM/YY last 4 digit basis...

Now things like, this is newest format appear in data...and not working..again question on automation..and hence i again put this to get some solution, sir..

only these 3 if have I left, everything super - super working..
I,e,

UTS-COVPG 7-03....here form number and date producing wrong

IL 00 17 02/2013.....here too, form number and date producing wrong

CA2OOOI (03/10).....and here, form number producing incorrect but date perfect

The reason my code doesn't work for those is because they do not follow the format you told us all of your numbers follow. In Message #9 , you told us this...

"In all the pattern, last 04 digit's are my date. (MM/YY format.)

That first example only has 3 numbers in it while the second example appears to have 17 as its month number. I can probably rewrite my code (and it will take an actual rewrite) to handle the first example, but I am not sure on that second example whether the answer is the 02 is the month and 17 is the year OR whether I am supposed to use the last three digits (7 02) only because the last four digits cannot be made into an actual mm/dd date.