Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
Solved

Validate Excel via VBA

Posted on 2013-12-17
Medium Priority
326 Views
Hi Experts,

I have excel file with one spreadsheet and one column and in this column I have data.
Some of the cells have in different places substring " - abc .... " which can be a different length. What I would do is to find this substring and whatever is after it till the end of line
copy and paste in another cell and then remove from original cell.

so basically here is example :

Input :
A
aaaaaaaa   - abc 012345
bbbbbbb   - abc 01282319274
cccccccc   - abc 0112

Output :

A               B
aaaaaaaa   - abc 012345
bbbbbbb   - abc 01282319274
cccccccc   - abc 0112

Thanks.
0
Question by:fpoyavo
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 3
• 3
• 2

LVL 22

Expert Comment

ID: 39725721
Assuming your data is in column A, this will get you the first part:

=LEFT(A1,FIND(" ",A1))

And this will give you the second part:

=RIGHT(A1,LEN(A1)-FIND(" ",A1))

You can then hide column A.

Flyster
0

LVL 1

Author Comment

ID: 39725770
Not sure if you understood the specs. I didn't ask to hide anything. I needed To find and copy to another cell and then to remove it from original cell.
0

LVL 22

Accepted Solution

Flyster earned 2000 total points
ID: 39725815
Sorry about that. Here's a macro that will split the string for you:
``````Sub SplitString()
Dim stra, strb As String
Dim i As Integer

i = InStr(Range("A" & 1), " ")
For i = 1 To ActiveSheet.UsedRange.Rows.Count
stra = Left(Range("A" & i), InStr(Range("A" & i), " "))
strb = Right(Range("A" & i), Len(Range("A" & i)) - InStr(Range("A" & i), " "))
Range("B" & i).Value = strb
Range("A" & i).Value = stra
Next i

End Sub
``````
0

LVL 33

Expert Comment

ID: 39726079
You can also use the "Text to Columns" function.

Select the column of data and then on the Data tab click the Text to Columns button.

Step 1 - select Delimited, click OK
Step 2 - check the boxes next to Space and Other and next to Other type - in the box. AT the top right check the box for treating consecutive delimiters as one
Step 3 - Click Finish

This will split the data into two columns.

Thanks
Rob H
0

LVL 1

Author Comment

ID: 39726429
Hi Rob,

It will not work since not all cells have this " - abc ..."

Thanks.
0

LVL 33

Expert Comment

ID: 39726463
So those that do not have the  "- abc" will be left as they are. Would that be the result you want anyway?

Thanks
Rob
0

LVL 1

Author Comment

ID: 39727193
Hi Flyster,

I t gets where " - abc ..." correctly but where I don't have " - abc .." it should not remove in column A anything ... now it does leaves A empty and copies this data into B.

Thanks.
0

LVL 22

Expert Comment

ID: 39727350
Try this one. It will copy only the cells that contains "- abc", the rest will be left untouched:
``````Sub SplitString()
Dim stra, strb As String
Dim i As Integer

For i = 1 To ActiveSheet.UsedRange.Rows.Count
If InStr(1, Range("A" & i), "- abc") <> 0 Then
stra = Left(Range("A" & i), InStr(Range("A" & i), " "))
strb = Right(Range("A" & i), Len(Range("A" & i)) - InStr(Range("A" & i), " "))
Range("B" & i).Value = strb
Range("A" & i).Value = stra
End If
Next i

End Sub
``````
0

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
How to get Spreadsheet Compare 2016 working with the 64 bit version of Office 2016
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
Suggested Courses
Course of the Month9 days, 7 hours left to enroll