Form Button - Select Row

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Paul Brown - 20 Jan 2006 15:42 GMT

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.

Reply to this Message

Ron de Bruin - 20 Jan 2006 16:00 GMT

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

Signature

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

> Hello all,
>
[quoted text clipped - 6 lines]
>
> Paul.

Reply to this Message

Paul Brown - 20 Jan 2006 16:15 GMT

Thanks Ron,

Exactly what I was looking for - works a treat.

Paul.

> You can try this
>
[quoted text clipped - 17 lines]
>>
>> Paul.

Reply to this Message

tony h - 20 Jan 2006 16:24 GMT

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

Signature

tony h

Reply to this Message

Paul Brown - 21 Jan 2006 13:44 GMT

Thanks Tony.

Paul.

> Sub button1_click()
> Dim shp As Shape
[quoted text clipped - 8 lines]
>
> run from the click event

Reply to this Message