VBA code to only use specific text

[mergim]

Hello there,

I'm looking for a code that copies the text after certain text.
So for example, in all my documents, A1 starts with "Design id.:" and then you have some text e.g. Design id.: 15047-PID-403 rev. 03
I want a code that says, copy and insert the text after "Design id.:", which in this case is 15047-PID-403 rev. 03

As of now my code is

Sub Get_Data_From_File()
Dim empty_row As Long
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your File & Import Range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
OpenBook.Sheets(1).Range("A7:C50").Copy
ThisWorkbook.Worksheets("SelectFile").Range("A10").PasteSpecial xlPasteValues
OpenBook.Close False

End If
Application.ScreenUpdating = True
End Sub


Thanks a lot!

 

[DanteAmor]

Could you try to explain what data you have on your sheet? (minisheet1)
What data do you want to copy
Finally what is the result you need? (minisheet2)
----
Note XL2BB:
It would help greatly if you could give us the sample data in a form that we can copy to test with.
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in
Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.

----
Note Code Tag:
In future please use code tags when posting code.
How to Post Your VBA Code it makes your code easier to read and copy and it also maintains VBA formatting.