Insert rows if...

[mikebecker]

I have Col A:B that is a master list. I have Col C:D that is a partial list of Col A:B with data in cols E:O.

I want to insert empty cells in C:O if C:D<>A:B.

Ideas?

Mike

 

[Tazguy37]

Like this?:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    If Cells(Target.Row, 1) = "" Or Cells(Target.Row, 2) = "" Or Cells(Target.Row, 3) = "" Or Cells(Target.Row, 4) = "" Then GoTo exitMe
    If Cells(Target.Row, 1) <> Cells(Target.Row, 3) And Cells(Target.Row, 2) <> Cells(Target.Row, 4) Then
        Range("C" & Target.Row & ":O" & Target.Row).Insert (-4121)
    End If

exitMe:
    Application.EnableEvents = True

End Sub

Press Alt-F11 to open the VBE.
Press Control-R to open the Project Explorer.
Click "Microsoft Excel Objects" for the file you're working on.
Double-click the sheet where you need this to work.
Open the Code pane with F7.
Paste the above code in.
Press Alt-Q to close the VBE and return to Excel.

Hope that helps!