Thanks buddy, now it is working....
Thanks buddy, now it is working....
Last edited by Admin; 10-25-2012 at 07:50 PM.
Hi
I have run this macro and it is working fine. But there is blank row coming in consolidated sheet after sheet data. For example one workbook data is pasted in consolidated sheet and then one row left blank. Then second workbook data is pasted and then one row blank. There thirty row leave blank because thirty file to consolidate.
Seondly the formating of sheet is not proper way. Is there any way to consolidate the data as value so that cell size does not change.
Hi
After the line 'Loop' insert the following line.
also replace this lineCode:dest.EntireColumn.SpecialCells(4).EntireRow.Delete
withCode:.Range("a2:as" & j).Copy Dest
Code:.Range("a2:as" & j).Copy dest.PasteSpecial -4163 dest.PasteSpecial -4122
Cheers !
Excel Range to BBCode Table
Use Social Networking Tools If You Like the Answers !
Message to Cross Posters
@ Home - Office 2010/2013/2016 on Win 10 (64 bit); @ Work - Office 2016 on Win 10 (64 bit)
Hi
I am getting the following error again and again
There is large amount of information on the Clipboard. Do you want to be able to paste this information into another programe later.
To save it on the Clipboard so that you can paste it later, click Yes
To delete if from the Clipboard and free memory, click no.
Last edited by Admin; 10-25-2012 at 09:08 PM.
Don't quote the replies.
add this line
Application.CutCopyMode = False
before this line
wbkSource.Close 0
Cheers !
Excel Range to BBCode Table
Use Social Networking Tools If You Like the Answers !
Message to Cross Posters
@ Home - Office 2010/2013/2016 on Win 10 (64 bit); @ Work - Office 2016 on Win 10 (64 bit)
Bookmarks