Hi,
Need your help on this:
I have the following text in Cell A1:
M4.CTC.VA03.Verify Sales Documents.v2 [14294];
M4.CTC.VK11.Create List Price By Customer Groups.v1 [6317];
M4.CTC.VA03.Verify Sales Documents.v2 [14295]
I would like to copy the following in Cell A2:
[14294]; [6317]; [14295]
There are thousand of rows and each row has multiple lines of text. some has 2 lines some has 10...
Please help!!
In a blank sheet copy your data to column A
Enter this VBA
Column B will contain the results
Sub k1() LastRow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To LastRow k = Cells(i, 1) l = "" For j = 1 To Len(k) If m = 1 Then l = l & Mid(k, j, 1) End If If Mid(k, j, 1) = "]" Then m = 0: l = l & "; " End If If Mid(k, j, 1) = "[" Then m = 1: l = l & "[" End If Next j l = Left(l, Len(l) - 2) Cells(i, 2) = l Next i End Sub
Regards
Special-K
Ensure you describe your problem clearly, I have little time available to solve these problems and do not appreciate numerous changes to them.
Thanks for replying Special-k. However, I am getting error on line 17 Column 1 i.e. where the code says:
l = Left(l, Len(1) - 2)
I have copied your code and pasted it as you have explained.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Excelhelpss 
Register To Reply
Bookmarks