查找用户输入值并在空字段中复制/粘贴另一个值

Question

我需要找到用户在特定列中输入的日期。如果找到日期，宏应该检查右边的第三个字段：

• 如果它为空白，则应复制并粘贴其他工作表中的特定值;
• 如果它不是空白，只需弹出一个消息框。

当前代码没有进行复制粘贴，并且它不会在日期列表中运行，尽管它已经在以前工作过。

The Times New Roman

Answer 1

如果您要在 ws1 的 K 列中搜索日期，并且您已使用使用，请替换：

Set r = Cells.Find(What:=rcdDate)

与

Set r = .Cells.Find(What:=rcdDate)

可能还有其他问题。

修改＃1

执行完毕后：

ActiveCell.Offset(0, 3).Activate

你有＆＃34;感动＆＃34; ActiveCell ，所以替换：

If ActiveCell.Offset(0, 3).Value = "" Then

与

If ActiveCell.Value = "" Then