Need help using VBA to copy data from one sheet into another sheet based on specific date

[B1EADDED]

Hi all,

I'm very new to VBA and need help copying data from one sheet into another sheet based on a specific date.

I am in charge of invoicing business for the hours employees have worked. This is a large business with a large number of employees and copying and pasting manually takes a lot of time.

I have two sheets. One called 'TIMESHEET' which logs all employees hours that worked. The other called 'DAILY INVOICE' which is in the form of an invoice that shows the client all employees and the hours they worked.

I would like to:
- Enter a specific date in 'DAILY INVOICE' in box I3.
- Excel automatically searches for this date in column B in sheet 'TIMESHEET'
- Excel then copies that data from 'TIMESHEET' for that specific date from columns C, D, E, F, G, H.
- Then paste it into 'DAILY INVOICE' in row 12, column A, (B+C), (D+E+F), G, H, I. (brackets mean the columns are merged). Columns are merged due to invoice information from rows 1 - 10.

The headings for the columns in both sheets are:

ID/BADGE NO

NAME

TRADE

START TIME

END TIME

TOTAL HOURS

<tbody>
</tbody>

These appear in row1, starting at column C, of 'Timesheet', and row12, column A of 'DAILY INVOICE'.

Is this possible?

Any help would be so greatly appreciated!! thank you!!

 

[B1EADDED]

Sorry, forgot to mention that i unmerged the cells in 'DAILY INVOICE', so in the 'Timesheet' Columns C, D, E, F, G, H, need to be copied into the 'DAILY INVOICE' sheet starting at row12, column A, B, C, D, E, F, respectively. Therefore the input date should be in F3 now.

Your code works, and columns C:H should be copied over.
But I found another problem I want to fix, its also copying over blank rows in columns C:H. So is it possible to incorporate a statement that tells it not to copy over rows if Column F in 'Timesheets' is blank.
Thanks

 

[My Aswer Is This]

So I assume you now mean:
You said this in post #1
Enter a specific date in 'DAILY INVOICE' in box I3.

But now your saying:
Enter a specific date in 'DAILY INVOICE' in box F3.

And really you should say Range("F3") not "box" F3

So see if this works:

Sub My_New_Script()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
Dim ans As Date
ans = Sheets("DAILY INVOICE").Range("F3").Value
'MsgBox ans
Lastrow = Sheets("TIMESHEET").Cells(Rows.Count, "B").End(xlUp).Row
Lastrowa = 12
    For i = 1 To Lastrow
        If Sheets("TIMESHEET").Cells(i, "B") = ans And Cells(i, "F").Value <> "" Then
            Sheets("TIMESHEET").Range("C" & i & ":H" & i).Copy Destination:=Sheets("DAILY INVOICE").Range("A" & Lastrowa)
            Lastrowa = Lastrowa + 1
        End If
    Next
Application.ScreenUpdating = True
End Sub