I created the following macro that will cut and paste info in every sheet of a workbook into the first one.
I used Ctrl F8 to follow through to find out what it does nothing! and I still don't understand what I am doing wrong. It goes well until the loop start, then nothing happens.
Please Login or Register to view this content.
Please help
Last edited by arlu1201; 05-23-2012 at 12:35 PM. Reason: Use code tags in future.
Change this:
For I = 2 To mysheets - 1
This should be a bit more efficient:
Please Login or Register to view this content.
Thank you for the help. However, now I am getting this error Runtime error '1004' Application-defined or object-defined error. It appears when trying to execute "Sheets(I).Range(Range("A1:I1"), Range("A1:I1").End(xlDown)).Cut Destination:=Sheets(1).Range("A" & destrng)". In my original program it appears also when trying to execute 'Selection.End(xlDown).Select'
Any clues?
This usually happens when the last row is not properly defined. Try this:
Please Login or Register to view this content.
Alternate:
Please Login or Register to view this content.
Hope that helps,
~tigeravatar
Forum Rules: How to use code tags, mark a thread solved, and keep yourself out of trouble
Thank you very much for all your help. This time, it worked like a charm!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks