时间戳

首页 > 解决方案 > 有条件地在工作表之间复制、粘贴、删除数据丢失

excel - 有条件地在工作表之间复制、粘贴、删除数据丢失

问题描述

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

我正在使用的代码是：

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

预先感谢。

铝VBA

标签： excelvbaconditional-statementscopy-pasteworksheet

解决方案

推荐阅读