if cell value is 2,3,4,5,..etc then insert row

[bhandari]

i need help with macro

if cell value is 2,3,4,5,..etc then insert row
Eg:A3=2

add 2 rows after D column
"copy the D column formulas" and paste it to E AND F to the new added columns

 

[bhandari]

sry
i posted row
row*=column*

 

[bhandari]

anybody can help me out

 

[Joe4]

It would be helpful if you provided more details:

if cell value is 2,3,4,5,..etc then insert row

Which cell?
Are we just looking at one cell, or multiple cells?
Will it be the same cell every time?
If not, how can we determine which cell we need to look at?

"copy the D column formulas" and paste it to E AND F to the new added columns

For which rows?
Just one row or all rows?

Also, should this VBA code run manually against existing data, or should it run automatically as a value is placed in your designated cell?

 

[bhandari]

Re: if cell value is 2,3,4,5,..etc then insert column

Can u please replace with column in the place of row in 1st thread

I can't edit the post iam trying to explain here again

My intention to insert column
Eg if A3=2

So add 2 columns after D
So new columns are E and F need to be created

E and F columns should have D column formulas
--D5:D67 have formulas
I want to paste those formulas in E and F also

 

[Joe4]

Re: if cell value is 2,3,4,5,..etc then insert column

Don't worry about editing your original post - you clarified it in your follow-up posts.

Right-click on the sheet tab name at the bottom of your screen, select "View Code", and paste this VBA code in the resulting VB Editor Window:

Private Sub Worksheet_Change(ByVal Target As Range)

'   Run if cell A3 is updated
    If Target.Address(0, 0) = "A3" Then
'       If number entered is greater than zero
        If Target > 0 Then
            Application.EnableEvents = False
'           Insert columns
            Range(Cells(5, 5), Cells(5, Target.Value + 4)).EntireColumn.Insert
'           Copy formulas
            Range("D5:D67").Copy Range(Cells(5, 5), Cells(5, Target.Value + 4))
            Application.EnableEvents = True
        End If
    End If

End Sub

This will automatically insert columns and copy the formulas whenever you enter a value in cell A3.