Sub ab()
With Worksheets("Log")
If Application.CountIf(.Columns(1), _
Format(Date, "mm/dd/yyyy")) 0 Then
.Range("A1").CurrentRegion.AutoFilter _
Field:=1, Criteria1:="=" & Date
With .AutoFilter.Range
.Offset(1, 1).Resize( _
.Rows.Count - 1, 24).Copy _
Destination:=Worksheets( _
"Print").Range("A2")
.AutoFilter
End With
End If
End With

End Sub

would be a start. Assumes data table on Log starts in A1.

--
Regards,
Tom Ogilvy



"Anthony" wrote in message
...
Can you help a novice and provide some vb code to do the following...

in worksheet1 (log) column A contains an unlimited number of dates
columns B:Y contain other data.
I want a search made for the whole of column A for 'todays' date and each
time a match is found to copy that particular rows data (cells B:Y) into
worksheet2 (print). This loop is continued until the whole of column A has
been searched
so basicaly a list of data found matching todays date is pasted to another
sheet.

easy uh !

thanks in advancve