Insert row, run macro from Drop down List and copy row above.

[JorgenKjer]

Hi

Are there anyone who can help?

If I insert a row e.g. between rows 10 and 11 and in the new row I select SUB or RSD from the Drop Down List in column D, the values ​​in the row above the new row, must be copied down, except values ​​in columns H and I. In the new row, these cells must be blank.

If I in the new row select SAFE, OPS or CAT from the Drop down List in column D, only the values ​​above the new row in columns J and K must be copied down, all other cells must be blank.

The formatting must be copied too.

Part ofthe text is in Danish, I hope it does not confuse.

I hope all this makes sense.

Regards

Jorgen


https://www.dropbox.com/home/Mr. Excel?preview=IC4+Vedligeholdelsesplan+MACRO.xlsm

 

[onlyadrafter]

Hello,

Does this code meet you requirements?

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 4 Then
        If Target.Value = "SUB" Or Target.Value = "RSD" Then
            Range("E" & Target.Row - 1 & ":G" & Target.Row - 1).Copy Range("E" & Target.Row)
            Range("J" & Target.Row - 1 & ":K" & Target.Row - 1).Copy Range("J" & Target.Row)
        Else
            Range("J" & Target.Row - 1 & ":K" & Target.Row - 1).Copy Range("J" & Target.Row)
        End If
    End If
    Application.EnableEvents = True
End Sub

the code needs to go into the relevant sheet code window, not a standard module.

 

[JorgenKjer]

Hello Onlyadrafter

Thanks for the help, the code works perfectly.

Greeting
Jorgen