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

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

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

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

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
>
>

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 K.@discussions.microsoft.com> wrote in message
news:92A8A7B0-57F8-4E38-804F-(E-Mail Removed)...
> 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
>>
>>

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 K.@discussions.microsoft.com> wrote in message
> news:92A8A7B0-57F8-4E38-804F-(E-Mail Removed)...
> > 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
> >>
> >>
>
>
>