Copy, Search, Then Paste Needed

Thanks for the fast response!
Here's a sample. Basically what I need,

Using a command button
Copy cells B1:E1 then paste the values to sheet2 next to the date based on cell A1 in sheet1.

If you change the (criteria) date in A1 than click the command button cells B1:E1 will be copied next to that date, and so on.

OK, that's easily done, but why couldn't you just use the VLOOKUP formula?

Where are the values in B1:E1 coming from when you change the date?

Sounds like you know your stuff StephenR

I want the user to ensure that the data in sheet1 is correct before copying the values to sheet2. A command button adds a user step but gives the added security. If that makes any sense.

Sort of, though you could just use data validation. Anyway, try assigning this to a button:

Sub x()

Dim rDates As Range, r As Long

With Sheet2
    Set rDates = .Range("A1", .Range("A1").End(xlDown))
    On Error GoTo errline
    r = WorksheetFunction.Match(Range("A1"), rDates, 0)
    On Error Resume Next
    .Cells(r, 2).Resize(, 4).Value = Range("B1:E1").Value
End With

Exit Sub

errline: MsgBox Range("A1") & " not found"

End Sub

Wow! That does look easy.
Now can the same date in sheet1 also be used to copy another set of cells lets say B2:E2 to another set of dates below the first set of dates in sheet2 all with one click of the button? Please see the attached example.

If there is a fixed interval between your two sets of dates:

Sub Copy()

Dim rDates As Range, r As Long

With Sheet2
    Set rDates = .Range("A1", .Range("A1").End(xlDown))
    On Error GoTo errline
    r = WorksheetFunction.Match(Range("A1"), rDates, 0)
    On Error Resume Next
    .Cells(r, 2).Resize(, 4).Value = Range("B1:E1").Value
    .Cells(r + 33, 2).Resize(, 4).Value = Range("B2:E2").Value
End With

Exit Sub

errline: MsgBox Range("A1") & " not found"

End Sub

I get it! Thanks a bunch StephenR. I'll mark this thread as solved.