使用私人小组自动复制并粘贴在单元格更改上

我正在试图添加一个归档表到我的工作簿收集closures的门票。 我希望一张特定的票据从标有“票据”的表格中剪切下来，并在其状态从打开状态变为closures状态时粘贴到标有“存档”的表格中。 我希望这发生在一个私人的子，以便它发生在细胞的变化。 状态见第4栏。

如果这是可能的，我认为这样做也是可以的。 因此，如果再次重新打开故障单并在“存档”表中更改其状态，则会将其剪切并粘贴回“故障单”表单中。

这是迄今为止的代码。 我们似乎可以得到它的工作。 任何帮助将不胜感激。 谢谢

Private Sub Worksheet_Change (ByVal Target As Range) If Target.Column = 4 Then If Target.Value = "Closed" Then R = Target.Row Rows(R).Cut Worksheets("Archive").Select With ActiveSheet lastrow = .Cells(.Rows.Count,"B").End(xlUp).Row End With Cells(lastrow,1).Select Selection.Paste End If End If End sub 

Answer 1

只是对你当前的代码做一些小修改：

 If Target.Column = 4 Then If Target.Value = "Closed" Then R = Target.Row Rows(R).Cut Worksheets("sheet3").Select With ActiveSheet lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 .Cells(lastrow, 1).Select .Paste End With End If End If