Forums
New posts
Search forums
Members
Current visitors
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Forums
Archive
Newsgroup Archive
Excel Newsgroups
Excel Programming
Copy and Paste LAST ROW of data non-contiguous
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
Reply to thread
Message
[QUOTE="Joel, post: 6275150"] Sub test() Dim LRow As Long LRow = Cells(Rows.Count, 1).End(xlUp).Row Rows(LRow).Copy Rows(LRow + 1) End Sub I added the following lines to Mike's code but could not get it to goto each worksheet in turn. Dim sh as worksheet for each sh in worksheets(Array("sheet1", "sheet3", "sheet5")) LRow = sh.Cells(Rows.Count, 1).End(xlUp).Row with sheets("Sheet2") .Rows("1:10").Copy Destination:=sh.Rows(LRow + 1) end with Next sh [/QUOTE]
Verification
Post reply
Forums
Archive
Newsgroup Archive
Excel Newsgroups
Excel Programming
Copy and Paste LAST ROW of data non-contiguous
Top
