Range Select Macro

I recorded the macro below.

I need a macro that will copy a group of cells. I select the first cell, say A11, and the macro takes over, selecting A11:N11 and copying the selection to A2 on Sheet3.
The problem with the macro is, it always selects A11:N11. I need it to start where I choose, say, A17, then it selects A17:N17

Range("A11:N11").Select
Selection.Copy
Sheets("Macro").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Form").Select
End Sub

Thanks in advance

Range(ActiveCell, ActiveCell.Offset(0, 13)).Select

should do the trick

Greetings from New Zealand
Bill K
"Archie" <[email protected]> wrote in
message news:[email protected]...
>
> I recorded the macro below.
>
> I need a macro that will copy a group of cells. I select the first
> cell, say A11, and the macro takes over, selecting A11:N11 and copying
> the selection to A2 on Sheet3.
> The problem with the macro is, it always selects A11:N11. I need it to
> start where I choose, say, A17, then it selects A17:N17
>
> Range("A11:N11").Select
> Selection.Copy
> Sheets("Macro").Select
> Range("A2").Select
> ActiveSheet.Paste
> Application.CutCopyMode = False
> Sheets("Form").Select
> End Sub
>
> Thanks in advance
>
>
> --
> Archie
> ------------------------------------------------------------------------
> Archie's Profile:
> http://www.excelforum.com/member.php...o&userid=30840
> View this thread: http://www.excelforum.com/showthread...hreadid=505046
>

if you have a cell in column A selected:


If selection.cells.count=1 and selection.cells(1).column=1 then
Selection.Resize(1,14).Copy Destination:=Sheets("Macro").Range("A2")
Application.CutCopyMode = False
Sheets("Form").Select 'don't need this if starting on Form
else
msgbox "To copy a row, select a single cell in column A"
end if

(untested)

Tim


--
Tim Williams
Palo Alto, CA


"Archie" <[email protected]> wrote in
message news:[email protected]...
>
> I recorded the macro below.
>
> I need a macro that will copy a group of cells. I select the first
> cell, say A11, and the macro takes over, selecting A11:N11 and copying
> the selection to A2 on Sheet3.
> The problem with the macro is, it always selects A11:N11. I need it to
> start where I choose, say, A17, then it selects A17:N17
>
> Range("A11:N11").Select
> Selection.Copy
> Sheets("Macro").Select
> Range("A2").Select
> ActiveSheet.Paste
> Application.CutCopyMode = False
> Sheets("Form").Select
> End Sub
>
> Thanks in advance
>
>
> --
> Archie
> ------------------------------------------------------------------------
> Archie's Profile:
http://www.excelforum.com/member.php...o&userid=30840
> View this thread: http://www.excelforum.com/showthread...hreadid=505046
>

Thank you, one and all.

Here is a simple little sub to do what you asked. There is no error
checking. It assumes that the selected cell in the activesheet is the range
you want. If you are in column B instead of A, it would copy through column
O rather than column N. You should probably add at least the check if not
myrange is nothing then before proceeding ...

Sub myRangeSelect()
Dim myRange As Range
Set myRange = Selection
myRange.Resize(, 14).Copy Sheets("Macro").Range("a2")
Application.CutCopyMode = False
End Sub
--
Kevin Vaughn


"Archie" wrote:

>
> I recorded the macro below.
>
> I need a macro that will copy a group of cells. I select the first
> cell, say A11, and the macro takes over, selecting A11:N11 and copying
> the selection to A2 on Sheet3.
> The problem with the macro is, it always selects A11:N11. I need it to
> start where I choose, say, A17, then it selects A17:N17
>
> Range("A11:N11").Select
> Selection.Copy
> Sheets("Macro").Select
> Range("A2").Select
> ActiveSheet.Paste
> Application.CutCopyMode = False
> Sheets("Form").Select
> End Sub
>
> Thanks in advance
>
>
> --
> Archie
> ------------------------------------------------------------------------
> Archie's Profile: http://www.excelforum.com/member.php...o&userid=30840
> View this thread: http://www.excelforum.com/showthread...hreadid=505046
>
>