select cell directly underneath command button

jcellens · April 13th, 2006, 05:19 PM

how do i code a command button so that no matter what the active cell is, when the button is clicked, the cell that the command button is positioned in gets selected. by the way, the button ultimately adds another line somewhere above itself so the button will not always be in the exact same cell. thanks

maccas · April 19th, 2006, 04:04 AM

You need to use the TopLeftcell property of the CommandButton. The following code is written on the assumption that the command button is contained within one cell, if it is in more than one cell then you may need to modify as appropriate

Code:

Private Sub cmdTest_Click()

Dim i As Long

    cmdTest.TopLeftCell.Select

    i = cmdTest.TopLeftCell.Row
    ActiveSheet.Rows((i - 1) & ":" & (i - 1)).Insert Shift:=xlDown

End Sub

HTH,
Maccas