将数据范围复制和粘贴到特定日期单元格

Question

I have this code which works and is awesome however it can only find the current date we are in (because of DateValue (now)) I would like this to be set off a cell value instead on the "Input" Worksheet (Cell D4) in particular.

Anyone know how?

Sub FindToday()

Dim FoundDate As Range
Set FoundDate = Worksheets("Data").Columns("A").Find(DateValue(Now), LookIn:=xlValues, lookat:=xlWhole)

If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip.
    Worksheets("Input").Range("A4:H4").Copy
    FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values.
End If
End Sub

Thanks all

Answer 1

here's one that pops up an input box so you can choose to alter the target date from now a number of days: like, enter -3 and it puts the data in for 3 days ago... is something like this what you were looking for? Or did you want it to copy all new data? or just all data regardless of date?

Sub FindToday()
Dim N As Long
Dim FoundDate As Range
N = Application.InputBox("Enter Date Offset:", "Date Selector")
If N = False Then Exit Sub
Set FoundDate = Worksheets("Data").Columns("A").Find(DateValue(Now + N), LookIn:=xlValues, lookat:=xlWhole)

If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip.
    Worksheets("Input").Range("A4:H4").Copy
    FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values.
End If
End Sub

Answer 2

Just use a range instead:

Sub FindToday()
Dim searchDate as Range

Dim FoundDate As Range
Set searchDate = Worksheets("Input").Range("D4")
Set FoundDate = Worksheets("Data").Columns("A").Find(searchDate.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip.
    Worksheets("Input").Range("A4:H4").Copy
    FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values.
End If
End Sub

Or maybe you would do ...Find(DateValue(searchDate.value)...