Hey,
in my Workbook I have "Master" sheet. I would like to have a macro that copies specific range (eg: A5:J5) in an Active Sheet (same workbook) and pastes its VALUE to "Master" sheet (each time in next row), eg starting in row 3. Each time I will have a new sheet there will be macro applied on for "adding value to Master sheet".
Thank you for help.
Try this:
Sub CopyData() Dim rw As Long With Sheets("Master") rw = .Range("A" & .Rows.Count).End(xlUp).Row + 1 Range("A5:J5").Copy Sheets(.Name).Cells(rw, 1).PasteSpecial (xlPasteValues) End With Application.CutCopyMode = False End Sub
Acts 4:12
Salvation is found in no one else, for there is no other name under heaven given to mankind by which we must be saved.
Thank you for help!
How could I define same operation but to copy in the range "A7:J26" from A7:J7 till the last full row in the range?
Kindly,
I don't understand the question.
Sorry.
My active sheet will change row-wise, but same numbers of columns.
Basicly I have to copy content as from specific "row" (eg. A5:J5) down till the last filled cell (sometimes it's gonna be A10:J0, sometimes A13:J13), so all the content from row eg. A5:J5 till A10:J10 if there is no input after.
Bad explanation...
Ok. Hopefully I got the idea. If not, you might be able to figure out how to adjust.
Sub CopyData() Dim MasterRw As Long, EndRw As Long EndRw = Range("A" & Rows.Count).End(xlUp).Row Range("A5:J" & EndRw).Copy With Sheets("Master") MasterRw = .Range("A" & .Rows.Count).End(xlUp).Row + 1 Sheets(.Name).Cells(MasterRw, 1).PasteSpecial (xlPasteValues) End With Application.CutCopyMode = False End Sub
Thank you.
I was able to modify it for my needs.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks