Double click and insert new row with formulas from above + only some data

[FreshDK]

Hi Forum,

Using google I have found this macro to insert a new row below where you are double clicking and copying all formulas from above:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    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
   
End Sub

It works great, but can anyone help me with including the data from column B to the row that is being inserted.

So, result is to get a new row with all formulas from above except for the data from column B that also is inserted in the new row

Br.

FreshDK

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    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
    Cells(Target.Row + 1, 2).Value = Cells(Target.Row, 2).Value
   
End Sub

 

[FreshDK]

Yes, that works! Perfect, tank you!

Is there anyway to limit the function of a double click to only a specific column?

 

[Fluff]

Just put this as the first line & change the column number to suit

    If Target.Column <> 1 Then Exit Sub

 

[FreshDK]

Once again, thanks!

 

[Fluff]

You're welcome & thanks for the feedback.