ok I tried to modify the code to be using column "C" I assume this would be number three in the code. Here is what I came up with.
Could you explain what the codes mean as well? How would I change this to be an array like the other code you posted?Code:'(replace if new code fails)If Target.Column = 5 And UCase(Target.Value) = "FAIL" Or Target.Column = 5 And UCase(Target.Value) = "DAMAGED" Then '(replace if new codes fails)Sheets("FAILED DEVICES").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3) = Sheets("INITIATING DEVICES").Cells(Target.Row, 1).Resize(, 3).Value If Target.Column = 6 And UCase(Target.Value) = "FAIL" Or UCase(Target.Value) = "DAMAGED" Then Application.EnableEvents = False Sheets("FAILED DEVICES").Cells(Rows.Count, 3).End(xlUp)(2).Resize(, 5) = Sheets("INITIATING DEVICES").Cells(Target.Row, 3).Resize(, 5).Value Sheets("FAILED DEVICES").Cells(Rows.Count, 3).End(xlUp).Offset(, 5) = Sheets("INITIATING DEVICES").Cells(Target.Row, 11).Value Application.EnableEvents = True
Nothing happens at all when I use the code above. I do not get an error or anything no information is copied. Column "C" is something that should always be filled in so it should be a safe choice to use as a comparison. I also assume that since I added a column I need to change a "5" to a "6" as well. But this still does nothing.




Reply With Quote
Bookmarks