Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/assembly/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 状态更改后将同一工作簿中的行从一个工作表移动到另一个工作表的宏_Excel_Worksheet Function_Vba - Fatal编程技术网

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

Excel 状态更改后将同一工作簿中的行从一个工作表移动到另一个工作表的宏,excel,worksheet-function,vba,Excel,Worksheet Function,Vba,我有一个工作簿,其中有两张工作表,一张叫做final,一张叫做pending,使用相同的列标题和列公式 我很难找到一个宏/VBA,一旦第四列的状态从挂起变为最终,它将帮助我自动将数据行从挂起的工作表传输到最终工作表。这样,待处理客户机和最终客户机的所有数据都保存在单独的表格中 请帮助。在您的woorkbook代码中尝试以下操作: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Na

我有一个工作簿,其中有两张工作表,一张叫做final,一张叫做pending,使用相同的列标题和列公式

我很难找到一个宏/VBA,一旦第四列的状态从挂起变为最终,它将帮助我自动将数据行从挂起的工作表传输到最终工作表。这样,待处理客户机和最终客户机的所有数据都保存在单独的表格中


请帮助。

在您的woorkbook代码中尝试以下操作:

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

祝你好运

你在用什么软件?HTML可能不是正确的标记。抱歉。我在用excel工作。这是我第一次问问题=非常感谢您的编辑,我非常感谢!学习VBA代码并获得所需操作概要的最简单方法之一是实际记录宏。然后,您可以将生成的代码用作某种“模板”。我是这个问答环节的新手。我不知道为什么我只能看到你写的东西的一部分=