R
Royzer
Hi. This code inserts a row and copies formulas (only) to the new row
The problem I have run into is that I didn't know our users were addin
and subtracting within cells, which means their numbers are bein
duplicated on the new row when those new cells are supposed to be blank
I need to find a way to make cells on the new row blank from column
through column N.
Thanks!
Code
-------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
.Offset(1).EntireRow.Insert
.EntireRow.Copy .Offset(1).EntireRow(1)
With .Offset(1).EntireRow
.Cells(1).ClearContents
On Error Resume Next
.SpecialCells(2).ClearContents
On Error GoTo 0
End With
End With
End Sub
The problem I have run into is that I didn't know our users were addin
and subtracting within cells, which means their numbers are bein
duplicated on the new row when those new cells are supposed to be blank
I need to find a way to make cells on the new row blank from column
through column N.
Thanks!
Code
-------------------
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
.Offset(1).EntireRow.Insert
.EntireRow.Copy .Offset(1).EntireRow(1)
With .Offset(1).EntireRow
.Cells(1).ClearContents
On Error Resume Next
.SpecialCells(2).ClearContents
On Error GoTo 0
End With
End With
End Sub