Hello, I am trying to biuld a macro to filter and copy data to some colums in other workbook, but I will do it for several workbooks:
The source workbook is located in the same folder than destination book (I made a lot of folders with all the workbooks) and source workbook has a long name containing the word "woll", the worksheet will be the same for all the source book (Woll Basic) ant the column the same V, begining from V2.
I made this macro to resolve the problem of the relative path:
Dim wbSource As Workbook 'workbook where the data is to to copied
Dim wbFin As Workbook 'workbook where the data is to to copied
Dim wbThis As Workbook 'workbook from where the data is be pasted
Dim ThePath As String 'name of the source sheet/ source workbook
Dim TheFile As String
ThePath = ActiveWorkbook.Path
TheFile = Dir(ThePath & "\" & "*well" & "*.xl*")
Set wbSource = Workbooks.Open(ThePath & "\" & TheFile)
The destination workbook will be always named Planti, and the worksheet "Wills"
What I am trying to do, without any good result, is filter column V to find any cell with "wild" or "explo" in the text and copy it to column A in Planti, together with the corresponding value of W and AA, that will be pasted in columns E and C.
I am begining with the macros but is too dificult for me...
If I have this I can try to do the next step, sort the data in another columnwith the value of column AA (paste in C)
Thanks a lot!!!
Bookmarks