Could anyone help with some VB code to do the following,
After double clicking a cell in say Row 17, a new row 18 is inserted.
Thanks - Kirk
JLGWhiz - 21 Mar 2008 01:40 GMT
I think you would have to use a control object of some type, where you would
select the row for the insert to execute on and then click the control which
would initiate the insertion based on the selection. To use double click on
a point on the worksheet would require deactivating the current double click
event which allows edit access to the active cell.
> Could anyone help with some VB code to do the following,
>
> After double clicking a cell in say Row 17, a new row 18 is inserted.
>
> Thanks - Kirk
OssieMac - 21 Mar 2008 01:41 GMT
One of the following will do it. Note that it inserts a row under the row
that is double clicked.
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Cancel Edit mode started by double click
ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End Sub
The following is similar but will only run if you double click column A.
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Cancel Edit mode started by double click
If Target.Column = 1 Then
ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
End Sub

Signature
Regards,
OssieMac
> Could anyone help with some VB code to do the following,
>
> After double clicking a cell in say Row 17, a new row 18 is inserted.
>
> Thanks - Kirk
JLGWhiz - 21 Mar 2008 02:03 GMT
Well, shut my mouth! This old dog just learned a new trick. I never thought
about just stepping past the cell edit. Way to go Ossie.
> One of the following will do it. Note that it inserts a row under the row
> that is double clicked.
[quoted text clipped - 26 lines]
> >
> > Thanks - Kirk
OssieMac - 21 Mar 2008 01:44 GMT
Forgot to say right click on the worksheet name tab and select View Code and
insert one of the macros into the editor and then close the editor (X in red
background top right of screen)

Signature
Regards,
OssieMac
> Could anyone help with some VB code to do the following,
>
> After double clicking a cell in say Row 17, a new row 18 is inserted.
>
> Thanks - Kirk
kirkm - 21 Mar 2008 03:45 GMT
Thank you both very much, it worked perfectly :)
Cheers - Kirk