首页 > 解决方案 > 根据 2 个标准跨工作表将更改从一个单元格复制到另一个单元格

问题描述

我有一个工作簿,其中多人在数据库中输入条目(sheet1),并且有代码根据谁输入数据(Person1、Person2、Person3 等)将条目复制到新工作表中

正在使用的移动条目的代码是:

 Sub MoveAdokpa()
 With Application
.ScreenUpdating = True
.EnableEvents = False
End With

Sheet1.Activate

Dim RNG As Range

 Set RNG = Range([C1], Range("C" & Rows.Count).End(xlUp))

On Error Resume Next
With RNG
.AutoFilter , field:=1, Criteria1:="Adokpa"
.SpecialCells(xlCellTypeVisible).EntireRow.Copy
Sheets("Alice Adokpa").Range("A1").PasteSpecial (xlPasteFormulas)

.AutoFilter
End With

Application.EnableEvents = True
End Sub

在每个用户指定的工作表上,他们需要根据他们在我们跟踪的过程中所处的位置对他们的条目进行更改。

工作表需要能够接受用户对其个人工作表所做的更改并将更新的信息导出回 Sheet1 数据库。但是,Sheet1 数据库中的条目没有特定的顺序。我在想我可能会写一些东西来识别 2 个条件(IE 用户名和条目 ID 号),然后将对用户工作表上的行所做的更改移动到具有匹配条件的 Sheet1 条目。我不知道如何写这个,也没有在网上找到我可以遵循的例子。

谢谢大家的帮助!

标签: excelvba

解决方案


推荐阅读