Advice on macro that moves rows across sheets

NoSparks · #7 12-13-2017, 08:46 PM

I have to admit I don't understand what's going on with that table on the "Open Tasks" sheet.
It's supposed to behave the same as the table on the "Triage" sheet, but for some reason it won't expand.

Try this for the change event

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nxtRow As ListRow

' Limit to a single cell change in column 5
If Target.Count > 1 Or Target.Column <> 5 Then Exit Sub
    
If UCase(Target.Value) = "YES" Then
    Application.EnableEvents = False
    Set nxtRow = Sheets("Open Tasks").ListObjects("Table2").ListRows.Add
    Intersect(Target.EntireRow, UsedRange).Copy
    nxtRow.Range.PasteSpecial xlPasteValues
    Target.EntireRow.Delete
    Application.EnableEvents = True
    Exit Sub
End If

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
search multiple sheets and create list from found rows	trevorc	Excel Programming	1	01-05-2017 06:24 PM
One macro to sort individual sheets in a workbook	darbybrown	Excel Programming	1	09-11-2016 12:51 PM
Moves multiple rows from Sheet1 to Sheet2	khawajaanwar	Excel Programming	2	09-09-2016 11:21 AM
A macro that moves the current paragraph up or down?	New Daddy	Word VBA	2	04-13-2014 02:25 PM
creating macro for biffurcation in sheets according to data.	Nirik	Excel Programming	8	05-07-2011 05:11 AM