VB Code no longer working

**buttercup1227** · 05-06-2014, 09:20 AM

I am extremely new to Macros and VB. As a matter of fact, it is a miracle that I actually found what I needed, put int in my spreadsheet and had it working, until others started using the spreadsheet. I don't know what went wrong where. Essentially, I had the following code written: Sheet 2 is 2014 Investigations and sheet 3 is completed investigations. I wanted a row from sheet 2 moved to sheet 3 when an x is placed in Column Z. If I get this functioning once again, what will happen if I add another column?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDest As Range
Set rngDest = Sheet3.Range("rngDest")
'Limit the trap area to range of cells in which completed dates are entered as defined above
If Not Intersect(Target, Sheet2.Range("rngTrigger")) Is Nothing Then
'Only trigger if the value entered is a date or is recongizable as a valid date
    If IsDate(Target) Then
'Ensure subsequent deletion of 'moved' row does NOT cause the Change Event to run again and get itself in a loop!
        Application.EnableEvents = False
        Target.EntireRow.Select
        Selection.Cut
        rngDest.Insert Shift:=xlDown
        Selection.Delete
' Reset EnableEvents
        Application.EnableEvents = True
    End If
End If
End Sub

This moved a row of data to a new worksheet labeled Completed Events when an x was chosen from a drop down menu in row z. It no longer works and I can't figure out how to fix it. Sheet 2 is 2014 Investigations and sheet 3 is completed investigations. I wanted a row from sheet 2 moved to sheet 3 when an x is placed in Column Z. If I get this functioning once again, what will happen if I add another column?

Please help..........

**alansidman** · 05-06-2014, 09:50 AM

Code Tags Added
Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html

(Because you are new to the forum, I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)

**stnkynts** · 05-06-2014, 10:38 AM

Not 100% sure what is going on with all your named ranges but this code will do what you requested in the post:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim destSheet As Worksheet:     Set destSheet = Sheets("Completed Events")

If Not Intersect(Target, Columns("Z:Z")) Is Nothing Then
    If LCase(Target.Value) = "x" Then
        Application.EnableEvents = False
        Target.EntireRow.Cut Destination:=destSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
        Target.EntireRow.Delete
        Application.EnableEvents = True
    End If
End If

End Sub