粘贴到单元格x中的列IF日期的VBA等于列y中的日期

Posted 2021-04-03

标题说真的。

我在一个名为“Value”的选项卡中有一个日期，其值为上个月的上一个工作日。然后我想看看这个日期是否在另一个标签的B列中，如果是这样，我想将某些信息（例如单元格a1值）粘贴到D行，其中行等于日期。

例如，如果在tab2列b中找到单元格a1（tab1）中的日期，则将tab1单元格b1中的信息粘贴到找到日期的同一行中。

我试过的代码，你可以看到我在做什么：

   'formula to paste information from cell into correct column in correct tab,

    daterow = Application.Match(CLng(Worksheets("Value").Range("D19")), 
    Worksheets("Regional Day Breakdown Sales").Columns("B"), 0)
    If Not IsError(daterow) Then
        Worksheets("Regional Day Breakdown Sales").Cells(daterow, "F").Value = 
    ActiveSheet.Range("D4").Value
        Else
        MsgBox ("Date not in range")
    End If
    End Sub

答案

感谢你的帮助，也是一个需要移除Clng的白痴

一个）

  daterow = Application.Match(Worksheets("Value").Range("D17"), Worksheets("Regional 
Day Breakdown Sales").Columns("B"), 0)
If Not IsError(daterow) Then
    Worksheets("Regional Day Breakdown Sales").Cells(daterow, "F").Value = 
ActiveSheet.Range("D4").Value
    Else
    MsgBox ("Date not in range")
End If