Hi, help me, please, to combine data from the books in one book, consecutive. (.Row + 1)
That is data of book Koroner, book Smith and book Solomonov (A2:Q) to move in book General
Hi, help me, please, to combine data from the books in one book, consecutive. (.Row + 1)
That is data of book Koroner, book Smith and book Solomonov (A2:Q) to move in book General
Maybe:
You may have to adjust/modify the sheet names.Sub mr_remizov() Dim wbk As Workbook For Each wbk In Workbooks If wbk.Name <> "general.xlsm" Then wbk.Sheets("Sheet1").UsedRange.Offset(1).Copy Workbooks("general.xlsm").Range("A" & Rows.Count).End(3)(2) End If Next wbk End Sub
JOHN H. DAVIS, names sheets changed, does not work, It must be so.
As a result of book general has to be such
Just an update version of JHD code using sheet(1) instead of a sheet name.
It would also be accurate to say to just have only the workbooks open that you want to get the information from.
Sub GetIt() Dim bk as Workbook For Each bk In Workbooks If bk.Name <> "general.xlsm" Then bk.Sheets(1).UsedRange.Offset(1).Copy Workbooks("general.xlsm").Sheets(1).Range("A" & Rows.Count).End(3)(2) End If Next bk End Sub
Last edited by davesexcel; 02-22-2017 at 12:06 PM.
davesexcel, Yes, it works, thank you very much
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks