有条件地在工作表之间复制，粘贴，删除数据

问题描述

我继承了一个遭受数月滥用（数据输入不良，剪切和粘贴不良，重复等）的工作簿。我几乎完成了对数据的排序，但是为了防止类似的问题，我正在尝试使某些过程自动化。我是VBA的新手，无法弄清楚为什么我的代码无法正常工作。有几个工作表通过我们的新客户端流程跟踪应用程序。每个工作表都有相同的十五列，前10行（=总计数）中的元数据，第11行中的标题。当我们有兴趣加入我们的组织时，会将一些简单的数据输入到A-D和L-O栏（含）。输入日期以指示过程中的某个步骤已经完成时，我希望特定的行移至下一个工作表。例如，当客户返回申请表时，日期将输入到G列中，并将特定行移至下一个工作表并从原始工作表中删除。日期输入有效，但L-O列未复制。帮助！

我正在使用的代码是：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target,Range("G12:G100" & Range("A" & Rows.Count).End(xlUp).Row)) Is nothing And Target.Cells.Count = 1 Then
    
        If IsDate(Target.Value) = True Then
        
            Range(Cells(Target.Row,"A"),Target).copy Sheets("Awaiting Interview").Range("A" & Rows.Count).End(xlUp).Offset(1,0)
            Target.EntireRow.Delete
            
        End If
        
    End If
    
End Sub

谢谢。

AlVBA

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）