Copy TODAY data

[chris89]

Hi,

I have a worksheet (A) which compile all the data of the year. However, i need to run a macro which will copy only TODAY data from worksheet (A) to worksheet (B). Again, i need the table appears shade with alternate 2 rows.

Thanks

 

[HalfAce]

Hi Chris,
(please stick to one thread per subject.)

That said, if your dates were in column A of sheetA, then maybe something like this?...

Sub TestSub()
Dim i As Range
Set i = Range("A1", Range("A65536").End(xlUp))
For Each cell In i
    If cell.Value = Date Then cell.Rows.EntireRow.Copy Sheets("B").[A65536].End(xlUp)(2, 1)
Next cell

Sheets("B").Select
Set i = Range("A1", Range("A65536").End(xlUp))
With i.Rows.EntireRow
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)=0"
    .FormatConditions(1).Interior.ColorIndex = 15
End With

End Sub

Hope it helps,
Dan