Triiming a Cell

[Andrew.Trevayne]

Hi all,
Can you help me with this code, it used to work but now for some strange reason it doesn't.
What I wanted to do is to trim the values in column I and split it to columns J,K,L and M.

This is the code I was using:

Please Login or Register  to view this content.

I have attached my sample worksheet.
Thank you very much.

-Andrew

[cytop]

You're splitting the 5th element of the array with '/' as the delimiter in this line:

Please Login or Register  to view this content.

This relates to Column M - Surely you should be splitting the 1st element (Col I)...?

[Andrew.Trevayne]

You're splitting the 5th element of the array with '/' as the delimiter in this line:

Please Login or Register  to view this content.

This relates to Column M - Surely you should be splitting the 1st element (Col I)...?

Thanks. Yes I need to split column I.
This was working until I inserted a column back but now I could not longer make it work ;(

[cytop]

Inserting/deleting columns does not affect VBA code and I have not checked the actual operation but you could try simply changing the 5 to a 1 in the line I quoted above.

[AB33]

You also need to change this line

Please Login or Register  to view this content.

INTO

Please Login or Register  to view this content.

[Andrew.Trevayne]

Inserting/deleting columns does not affect VBA code and I have not checked the actual operation but you could try simply changing the 5 to a 1 in the line I quoted above.

Tried this but it only change the first row on my records and my column I was overwritten (not what I wanted).

You also need to change this line

Please Login or Register  to view this content.

INTO

Please Login or Register  to view this content.

This too didn't work for me. Column I was overwritten and Columns J, K, L and M got the #N/A value

[AB33]

Andrew, please do not reply with quote, just use reply.
See attached.
If you want the split to go to column J
Change this line
Range("I2:M" & Cells(Rows.Count, "I").End(xlUp).Row).Value = arr
INTO
Range("J2:M" & Cells(Rows.Count, "I").End(xlUp).Row).Value = arr

[mgs73]

You can do what you want a bit more directly - try this:

Please Login or Register  to view this content.

[Andrew.Trevayne]

Thanks Gents. None of this is working for me.
Just to clarify, I wanted to trim the values in column I and split it to columns J,K,L and M. (Column I must not be overwritten).

[Andrew.Trevayne]

You can do what you want a bit more directly - try this:

Please Login or Register  to view this content.

Okay this actually worked. I just changed "M" to "I".

[AB33]

This code works for me.

Please Login or Register  to view this content.