Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto-Insert
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto-Insert
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. "kirkm" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto-Insert
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 -- Regards, OssieMac "kirkm" wrote: 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto-Insert
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) -- Regards, OssieMac "kirkm" wrote: 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto-Insert
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. "OssieMac" wrote: 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 -- Regards, OssieMac "kirkm" wrote: 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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto-Insert
Thank you both very much, it worked perfectly :) Cheers - Kirk |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need VBA script to auto-insert value upon row insert | Excel Worksheet Functions | |||
Auto insert row: | Excel Worksheet Functions | |||
Can I auto insert a worksheet when I insert a value in a cell. | Excel Worksheet Functions | |||
Auto Insert/Auto Formula? | Excel Worksheet Functions | |||
Insert cell/format/text/fontsize and auto insert into header? | Excel Programming |