LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Junior Member
 
Posts: 21
Smile VBA - Insert row, copy contents of original row except for contents of columns A-N

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 adding and subtracting within cells, which means their numbers are being 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 A 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
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
VBA - Insert row, copy contents of original row except for contents of column A Royzer Excel Programming 4 February 21st 12 02:47 PM
Insert Row Macro based on contents of two columns 5elpep Excel Programming 4 March 28th 07 01:23 AM
Copy Contents of 3 Columns into 1 Lynxen Excel Programming 4 July 13th 05 01:19 PM
Find a value, then insert a row below that row and copy the contents to the new row stelllar Excel Programming 4 February 15th 05 12:29 PM
Macro to copy cell contents number of columns Pierre Excel Programming 10 November 4th 04 10:54 PM


All times are GMT +1. The time now is 06:57 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"