Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro range
Hi, i need this code to copy rows, but only from A to J (A:J).
Sub copy3() Dim lastRow As Long Dim MySheet As String MySheet = Sheets("Sheet1").Range("M1").Value lastRow = Worksheets(MySheet).Cells(Worksheets(MySheet).Rows .Count, "A").End(xlUp).Row Worksheets("Sheet1").UsedRange.Copy Worksheets(MySheet).Activate Range("A" & (lastRow + 1)).Select ActiveSheet.Paste Worksheets(MySheet).Range("A" & (lastRow + 1)).PasteSpecial Application.CutCopyMode = False Sheets("Sheet1").Activate Range("A1").Select End Sub Can this be done? Thanks! |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro range
Maybe this
Sub copy3() Dim lastRow As Long Dim MySheet As String MySheet = Sheets("Sheet1").Range("M1").Value lastRow = Worksheets(MySheet).Cells(Worksheets(MySheet).Rows .Count, "A").End(xlUp).Row worksheets("Sheet1").Range("A1:J" & lastRow).Copy Worksheets(MySheet).Range("A" & (lastRow + 1)).PasteSpecial Sheets("Sheet1").Activate Range("A1").Select End Sub Mike "puiuluipui" wrote: Hi, i need this code to copy rows, but only from A to J (A:J). Sub copy3() Dim lastRow As Long Dim MySheet As String MySheet = Sheets("Sheet1").Range("M1").Value lastRow = Worksheets(MySheet).Cells(Worksheets(MySheet).Rows .Count, "A").End(xlUp).Row Worksheets("Sheet1").UsedRange.Copy Worksheets(MySheet).Activate Range("A" & (lastRow + 1)).Select ActiveSheet.Paste Worksheets(MySheet).Range("A" & (lastRow + 1)).PasteSpecial Application.CutCopyMode = False Sheets("Sheet1").Activate Range("A1").Select End Sub Can this be done? Thanks! |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro range
Hi Mike, it's partially working.
The macro copy only from A:J, but first time i run macro, it copy 1 row. The second time it copy 2 rows. Third time it copy 4 rows. Forth time it copy 8 rows..... The macro double the rows, every time. I need the macro to copy all filled rows. My code was doing that. Your code is good because it select only from column A to J, but the code is not working as the original one. Or am i doing something wrong? Thanks! "Mike H" wrote: Maybe this Sub copy3() Dim lastRow As Long Dim MySheet As String MySheet = Sheets("Sheet1").Range("M1").Value lastRow = Worksheets(MySheet).Cells(Worksheets(MySheet).Rows .Count, "A").End(xlUp).Row worksheets("Sheet1").Range("A1:J" & lastRow).Copy Worksheets(MySheet).Range("A" & (lastRow + 1)).PasteSpecial Sheets("Sheet1").Activate Range("A1").Select End Sub Mike "puiuluipui" wrote: Hi, i need this code to copy rows, but only from A to J (A:J). Sub copy3() Dim lastRow As Long Dim MySheet As String MySheet = Sheets("Sheet1").Range("M1").Value lastRow = Worksheets(MySheet).Cells(Worksheets(MySheet).Rows .Count, "A").End(xlUp).Row Worksheets("Sheet1").UsedRange.Copy Worksheets(MySheet).Activate Range("A" & (lastRow + 1)).Select ActiveSheet.Paste Worksheets(MySheet).Range("A" & (lastRow + 1)).PasteSpecial Application.CutCopyMode = False Sheets("Sheet1").Activate Range("A1").Select End Sub Can this be done? Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro range | Excel Discussion (Misc queries) | |||
Macro deletes row in range, macro then skips the row moved up | Excel Discussion (Misc queries) | |||
macro pop-up to set range? | Excel Worksheet Functions | |||
Macro Range | Excel Discussion (Misc queries) | |||
Use Range Name in Macro | Excel Worksheet Functions |