I will take a guess that you want to open the files.
I am assuming that columns always go to column U. If that is not the case, then you need to make the last column dynamic if the columns used can vary for different files. ( If you need to do that, and can’t figure out how, then I will do that for you later, probably tomorrow )
I have used the same ways as I did in the last macro for you, ( to solve Problem 2 https://excelfox.com/forum/showthrea...ll=1#post14648 )
I do not delete any rows
Instead I collect indices of the rows you want to have = rows which are not to be deleted. For you test data, the rows you want are 2 3 and 4
Finally the macro replaces the original range with a new one containing just the rows you want
Before
_____ Workbook: Book2.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D E F G H I J K L M N O P Q R S T U 1 2NSE EQ BAJAJ NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 3NSE EQ AMARAJABAT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 4NSE EQ ASIANPAINT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA
_____ Workbook: Book1.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D E F G H I J K L M N O P Q R S T U 1 2NSE EQ ADANIPOWER NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 3NSE EQ AMARAJABAT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 4NSE EQ ASIANPAINT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA
After
_____ Workbook: Book2.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D E F G H I J K L M N O P Q R S T U 1NSE EQ BAJAJ NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 2NSE EQ AMARAJABAT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 3NSE EQ ASIANPAINT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 4
_____ Workbook: Book1.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D E F G H I J K L M N O P Q R S T U 1NSE EQ ADANIPOWER NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 2NSE EQ AMARAJABAT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 3NSE EQ ASIANPAINT NA NA NA 0 12 0SELL MARKET NA CLI MIS DAY WC5758 NA 3NA 4
Macro here https://excelfox.com/forum/showthrea...ll=1#post14657
Note: You must change this line
To something like thisCode:Let arrWbs() = Array(ThisWorkbook.path & "\Book1.xlsx", ThisWorkbook.path & "\Book2.xlsx") ' - CHANGE TO SUIT
Code:Let arrWbs() = Array("C:\Users\WolfieeeStyle\Book1.xlsx", "C:\Users\WolfieeeStyle\Desktop\Book2.xlsx", "C:\Users\Desktop\MyBook.xlsx") '




Reply With Quote

Bookmarks