状态更改后将行从一个工作表移动到同一工作簿中的另一个的宏答案

【问题标题】：A macro to move a row from one wksheet to another in the same workbook after status change状态更改后将行从一个工作表移动到同一工作簿中的另一个的宏
【发布时间】：2011-02-01 17:59:56
【问题描述】：

我有一个包含 2 个工作表（1 个称为最终工作表，1 个称为待处理工作表）的工作簿，它们使用相同的列标题和列公式。

我很难找到一个宏/VBA，一旦第四列的状态从待定变为最终状态，它将帮助我自动将数据行从“待定”表传输到“最终”表。这样一来，未决客户和最终客户的所有数据都保存在单独的表格中。

请帮忙。

【问题讨论】：

您使用什么软件？ “HTML”可能不是正确的标签。
对不起。我正在使用excel。这是我第一次问问题。 =)
非常感谢您的编辑 =D 非常感谢！
学习 VBA 代码并大致了解您需要做什么的最简单方法之一是实际记录宏。然后，您可以将生成的代码用作各种“模板”。

标签： excel worksheet-function vba

【解决方案1】：

在你的工作簿代码上尝试这样的事情：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "pending" And Target.Column = 4 Then
    If Sh.Cells(Target.Row, Target.Column) = "final" Then
        Sh.Select
        Sh.Rows(LTrim(Str(Target.Row)) & ":" & LTrim(Str(Target.Row))).Select
        Selection.Copy ' or cut
        Sheets("final").Select
        Rows("20:20").Select ' here is your destination row... you must set a global to control it...
        Selection.Insert Shift:=xlDown
    End if
End Sub

祝你好运！

【讨论】：

嗨，保罗。我是这个问答环节的新手。我不知道为什么我只能看到你写的一条。 =(