Insert Row by Double Clicking

[IoanZ]

Hello

I use this VBA code to insert rows in active sheet just by double clicking a cell (doesn't matter which cell)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
Application.ScreenUpdating = True
End Sub

What changes must apply to this VBA code, to insert a row in active sheet just by double clicking a cell FROM SPECIFIC RANGE (ex C15 : C30) ?


Thanks

 

[footoo]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
[COLOR=#ff0000]If Intersect(Target, [C15:C30]) Is Nothing Then Exit Sub[/COLOR]
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
Application.ScreenUpdating = True
End Sub

 

[IoanZ]

Thanks
Works perfectly

 

[fadomas313]

Hi, is it possible to insert a new row just with the formulas? I have some conditional formatting that I don´t want to be copied.

Thanks in advance!

 

[Fluff]

Hi & welcome to MrExcel.
Fraid not

 

[footoo]

Try this.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Cancel = True
If Intersect(Target, [C15:C30]) Is Nothing Then Exit Sub
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy Target.Offset(1).EntireRow
On Error Resume Next
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents

Target.Offset(1).EntireRow.FormatConditions.Delete

Application.ScreenUpdating = True
End Sub

 

[Fluff]

Think I might have misunderstood the question.

 

[fadomas313]

Hi both,

Thanks for the code, it´s what I needed!