Automatically Fill Formula When Inserting Blank Rows With VBA Code

[kamranyd]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20160725
    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

how to make active X or any other simple button of these codes, its in double click mode.

 

[Joe4]

See here: Assign a macro to a Form or a Control button

You should be able to take the body of your current code and copy/psate it into the VBA code behind the button.
Just change all your "Target" range references to "ActiveCell", and I think that should do what you want (it will run on the ActiveCell).

 

[kamranyd]

See here: Assign a macro to a Form or a Control button

You should be able to take the body of your current code and copy/psate it into the VBA code behind the button.
Just change all your "Target" range references to "ActiveCell", and I think that should do what you want (it will run on the ActiveCell).

thankx

 

[Joe4]

You are welcome.

If you have any trouble, just post back here with the details.

 

[kamranyd]

You are welcome.

If you have any trouble, just post back here with the details.

after adding row it select active row cell, I want after adding row it should select added row cell

 

[Joe4]

If you are adding the new row beneath the activecell, then to select the cell in the new row, you can just use:

ActiveCell.Offset(1,0).Select

If you wanted to select the entire row, you could use:

ActiveCell.Offset(1,0).EntireRow.Select

 

[kamranyd]

If you are adding the new row beneath the activecell, then to select the cell in the new row, you can just use:

ActiveCell.Offset(1,0).Select

If you wanted to select the entire row, you could use:

ActiveCell.Offset(1,0).EntireRow.Select

thnx it work now.

 

[Joe4]

You are welcome.