copy cells to another sheet based on cell criteria

[slivesay]

I am trying to move cells between cols A and L to a sheet named BREAK from a sheet name FAB w/ the criteria being met "Single Rollup Frame" in col B and it being a copy/paste that will always paste on the next available row. The code I have works some and doesn't give a debug - but it is only pasting the info from cols A and B. This code is in the FAB worksheet and not in a module. Can someone help me please?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)


If Intersect(Target, Columns("B:B")) Is Nothing Then Exit Sub


If Target.Value = "Single Rollup Frame" Then Range(Cells(Target.Row, "A"), Cells(Target.Row, "L")).Copy _
Sheets("BREAK").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)


End Sub

 

[Michael M]

Works fine for me....but it does only copy the target row....no others !!

 

[slivesay]

Thank you! I figured it out. There was one line of code in my userform code that was blocking this sheet code from pasting all the cells in the criteria. I am going to close this thread. This code does work!

Respectfully,
slivesay

 

[slivesay]

Sorry - newbie here - I cannot 'close' the thread - but it HAS BEEN SOLVED. Thank you!

 

[Michael M]

Ok...no need to close....all good.
Glad you got it sorted out ....