Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
Please help me modify the movesheet macro listed below to start on row 10 on the source worksheet (Sheet1) and destination worksheet (Test) to start on row 3. Thanks so much for your help. Sub movesheet() With Sheets("Sheet1") ..Columns("B:B").Copy _ Destination:=Sheets("Test").Columns("C:C") ..Columns("C:C").Copy _ Destination:=Sheets("Test").Columns("G:G") ..Columns("F:F").Copy _ Destination:=Sheets("Test").Columns("F:F") End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
Hi Joe,
The following copies everything from row 10 down. Hope my assumption is right. You need a range to copy but the destination only needs to be the first cell. Sub movesheet() With Sheets("Sheet1") Range(.Cells(10, "B"), Cells(.Rows.Count, "B")).Copy _ Destination:=Sheets("Test").Cells(3, "C") Range(.Cells(10, "C"), Cells(.Rows.Count, "C")).Copy _ Destination:=Sheets("Test").Cells(3, "G") Range(.Cells(10, "F"), Cells(.Rows.Count, "F")).Copy _ Destination:=Sheets("Test").Cells(3, "F") End With End Sub Regards, OssieMac |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
Sub movesheet()
LR1 = SHeets("Sheet1").Cells(Rows.Count, 2).End(xlUP).Row With Sheets("Sheet1") ..Range("B3:B" & LR1).Copy Sheets("Test").Columns("C10") ..Columns("C3:C" & LR1).Copy Sheets("Test").Columns("G10") ..Columns("F3:F" & LR1).Copy Sheets("Test").Columns("F10") End With End Sub "Joe K." wrote: Please help me modify the movesheet macro listed below to start on row 10 on the source worksheet (Sheet1) and destination worksheet (Test) to start on row 3. Thanks so much for your help. Sub movesheet() With Sheets("Sheet1") .Columns("B:B").Copy _ Destination:=Sheets("Test").Columns("C:C") .Columns("C:C").Copy _ Destination:=Sheets("Test").Columns("G:G") .Columns("F:F").Copy _ Destination:=Sheets("Test").Columns("F:F") End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
sorry, I had the start rows reversed.
Sub movesheet() LR1 = SHeets("Sheet1").Cells(Rows.Count, 2).End(xlUP).Row With Sheets("Sheet1") ..Range("B10:B" & LR1).Copy Sheets("Test").Columns("C3") ..Columns("C10:C" & LR1).Copy Sheets("Test").Columns("G3") ..Columns("F10:F" & LR1).Copy Sheets("Test").Columns("F3") End With End Sub "JLGWhiz" wrote: Sub movesheet() LR1 = SHeets("Sheet1").Cells(Rows.Count, 2).End(xlUP).Row With Sheets("Sheet1") .Range("B3:B" & LR1).Copy Sheets("Test").Columns("C10") .Columns("C3:C" & LR1).Copy Sheets("Test").Columns("G10") .Columns("F3:F" & LR1).Copy Sheets("Test").Columns("F10") End With End Sub "Joe K." wrote: Please help me modify the movesheet macro listed below to start on row 10 on the source worksheet (Sheet1) and destination worksheet (Test) to start on row 3. Thanks so much for your help. Sub movesheet() With Sheets("Sheet1") .Columns("B:B").Copy _ Destination:=Sheets("Test").Columns("C:C") .Columns("C:C").Copy _ Destination:=Sheets("Test").Columns("G:G") .Columns("F:F").Copy _ Destination:=Sheets("Test").Columns("F:F") End With End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
Can you help me modify the macro listed below so the range of cells is 90?
The rows go from 10 to 100. Thanks so much. "OssieMac" wrote: Hi Joe, The following copies everything from row 10 down. Hope my assumption is right. You need a range to copy but the destination only needs to be the first cell. Sub movesheet() With Sheets("Sheet1") Range(.Cells(10, "B"), Cells(.Rows.Count, "B")).Copy _ Destination:=Sheets("Test").Cells(3, "C") Range(.Cells(10, "C"), Cells(.Rows.Count, "C")).Copy _ Destination:=Sheets("Test").Cells(3, "G") Range(.Cells(10, "F"), Cells(.Rows.Count, "F")).Copy _ Destination:=Sheets("Test").Cells(3, "F") End With End Sub Regards, OssieMac |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
Rows 10 - 100 copied:
Sub movesheet() With Sheets("Sheet1") ..Range("B10:B100").Copy Sheets("Test").Range("C3") ..Range("C10:C100").Copy Sheets("Test").Range("G3") ..Range("F10:F100").Copy Sheets("Test").Range("F3") End With End Sub Mike F "Joe K." <Joe wrote in message ... Can you help me modify the macro listed below so the range of cells is 90? The rows go from 10 to 100. Thanks so much. "OssieMac" wrote: Hi Joe, The following copies everything from row 10 down. Hope my assumption is right. You need a range to copy but the destination only needs to be the first cell. Sub movesheet() With Sheets("Sheet1") Range(.Cells(10, "B"), Cells(.Rows.Count, "B")).Copy _ Destination:=Sheets("Test").Cells(3, "C") Range(.Cells(10, "C"), Cells(.Rows.Count, "C")).Copy _ Destination:=Sheets("Test").Cells(3, "G") Range(.Cells(10, "F"), Cells(.Rows.Count, "F")).Copy _ Destination:=Sheets("Test").Cells(3, "F") End With End Sub Regards, OssieMac |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Rows From Worksheet Into Another Worksheet Same Workbook
Hi Joe,
There is nothing wrong with Mike's code. However, just for your information the following is my code modified:- Sub movesheet() With Sheets("Sheet1") Range(.Cells(10, "B"), .Cells(100, "B")).Copy _ Destination:=Sheets("Test").Cells(3, "C") Range(.Cells(10, "C"), .Cells(100, "C")).Copy _ Destination:=Sheets("Test").Cells(3, "G") Range(.Cells(10, "F"), .Cells(100, "F")).Copy _ Destination:=Sheets("Test").Cells(3, "F") End With End Sub Regards, OssieMac "Mike Fogleman" wrote: Rows 10 - 100 copied: Sub movesheet() With Sheets("Sheet1") ..Range("B10:B100").Copy Sheets("Test").Range("C3") ..Range("C10:C100").Copy Sheets("Test").Range("G3") ..Range("F10:F100").Copy Sheets("Test").Range("F3") End With End Sub Mike F "Joe K." <Joe wrote in message ... Can you help me modify the macro listed below so the range of cells is 90? The rows go from 10 to 100. Thanks so much. "OssieMac" wrote: Hi Joe, The following copies everything from row 10 down. Hope my assumption is right. You need a range to copy but the destination only needs to be the first cell. Sub movesheet() With Sheets("Sheet1") Range(.Cells(10, "B"), Cells(.Rows.Count, "B")).Copy _ Destination:=Sheets("Test").Cells(3, "C") Range(.Cells(10, "C"), Cells(.Rows.Count, "C")).Copy _ Destination:=Sheets("Test").Cells(3, "G") Range(.Cells(10, "F"), Cells(.Rows.Count, "F")).Copy _ Destination:=Sheets("Test").Cells(3, "F") End With End Sub Regards, OssieMac |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy rows from one worksheet automatically, ignore rows that are b | Excel Worksheet Functions | |||
Copy Values From Worksheet to another Worksheet same Workbook | Excel Programming | |||
Find all rows of a color and copy those rows to a new worksheet | Excel Programming | |||
Copy Values from WorkSheet back to Another Workbook Replacing Values in Worksheet | Excel Programming | |||
copy worksheet from closed workbook to active workbook using vba | Excel Worksheet Functions |