Form Button - Select Row

[Paul Brown]

Hello all,

I'm looking to create a macro which will run from a Form Button. Form
buttons will be located at the end of each row. How can I make the form
button select the cells in the row that the form button is on? For example
if the active cell is c12 and I press the form button at the end of row 5
the macro runs fine but it runs on the data in row 12 rather than row 5
(basically it copies that data and moves it somewhere else).

Any help appreciated.

Paul.

[Ron de Bruin]

You can try this

Sub Button1_Click()
Dim rw As Long
rw = Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address).Row
Range(Cells(rw, "A"), Cells(rw, "D")).Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Paul Brown" <paul.brown25@ntlworld.com> wrote in message news:oB7Af.51041$zt1.27979@newsfe5-gui.ntli.net...
> Hello all,
>
> I'm looking to create a macro which will run from a Form Button. Form buttons will be located at the end of each row. How can I
> make the form button select the cells in the row that the form button is on? For example if the active cell is c12 and I press the
> form button at the end of row 5 the macro runs fine but it runs on the data in row 12 rather than row 5 (basically it copies that
> data and moves it somewhere else).
>
> Any help appreciated.
>
> Paul.
>

[Paul Brown]

Thanks Ron,

Exactly what I was looking for - works a treat.

Paul.

"Ron de Bruin" <rondebruin@kabelfoon.nl> wrote in message
news:%237p6xqdHGHA.3120@TK2MSFTNGP10.phx.gbl...
> You can try this
>
> Sub Button1_Click()
> Dim rw As Long
> rw =
> Range(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address).Row
> Range(Cells(rw, "A"), Cells(rw, "D")).Select
> End Sub
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Paul Brown" <paul.brown25@ntlworld.com> wrote in message
> news:oB7Af.51041$zt1.27979@newsfe5-gui.ntli.net...
>> Hello all,
>>
>> I'm looking to create a macro which will run from a Form Button. Form
>> buttons will be located at the end of each row. How can I make the form
>> button select the cells in the row that the form button is on? For
>> example if the active cell is c12 and I press the form button at the end
>> of row 5 the macro runs fine but it runs on the data in row 12 rather
>> than row 5 (basically it copies that data and moves it somewhere else).
>>
>> Any help appreciated.
>>
>> Paul.
>>
>
>

[tony h]

Sub button1_click()
Dim shp As Shape
Dim rng As Range

Set shp = ActiveSheet.Shapes(Application.Caller)

Set rng = shp.BottomRightCell.EntireRow
rng.Select




End Sub

run from the click event

[Paul Brown]

Thanks Tony.

Paul.

"tony h" <tony.h.21xynn_1137774324.4297@excelforum-nospam.com> wrote in
message news:tony.h.21xynn_1137774324.4297@excelforum-nospam.com...
>
> Sub button1_click()
> Dim shp As Shape
> Dim rng As Range
>
> Set shp = ActiveSheet.Shapes(Application.Caller)
>
> Set rng = shp.BottomRightCell.EntireRow
> rng.Select
>
>
>
>
> End Sub
>
> run from the click event
>
>
> --
> tony h
> ------------------------------------------------------------------------
> tony h's Profile:
> http://www.excelforum.com/member.php...o&userid=21074
> View this thread: http://www.excelforum.com/showthread...hreadid=503367
>