copy/paste special

[Rpettis31]

I need help to perform this task.

For dt=2 to 1000
If cells(dt,1)=date then Copy paste special this row.
Next dt

 

[Rick Rothstein \(MVP - VB\)]

If I understand your question correctly, this should do what you want...

Dim dt As Long
Dim LastRow As Long
For dt = 2 To 1000
If Cells(dt, 1) = Date Then
With Worksheets("SomeOtherSheet")
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Cells(dt, 1).EntireRow.Copy .Cells(LastRow, 1).Offset(1, 0)
End With
End If
Next dt

You didn't supply a lot of information, so I set it up to run from the
active sheet and place the copied data to SomeOtherSheet.

Rick

 

[Rpettis31]

I have data that is prefilled from other sheets to this master sheet.
The dates are prefilled and a Vlookup applies the data in the appropriate
cell without VB. I just want to copy and paste special the values in the
sheet for the current date.

DATE Positions
03/12/08 500 <--- want to automate the copy paste special rather
than the manual process.

 

[Rick Rothstein \(MVP - VB\)]

Unless I am missing something, that is what the code I posted does (you
would run the code from your master sheet and specify whatever the name of
the sheet you are copying the information to in the With statement.

Rick