ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   same sheet copy/paste special (https://www.excelbanter.com/excel-programming/407555-same-sheet-copy-paste-special.html)

Rpettis31

same sheet copy/paste special
 
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.

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







JLGWhiz

same sheet copy/paste special
 
This psuedo code gives the syntax you would use.
Dim dt As Range
For dt=2 to 1000
If cells(dt,1)=date Then
dt.EntireRow.Copy
Range("Z1").PasteSpecial Paste:=xlPasteValues
Next dt


"Rpettis31" wrote:

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.

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







JLGWhiz

same sheet copy/paste special
 
Forgot the End If

This psuedo code gives the syntax you would use.
Dim dt As Range
For dt=2 to 1000
If cells(dt,1)=date Then
dt.EntireRow.Copy
Range("Z1").PasteSpecial Paste:=xlPasteValues
End If
Next dt


"Rpettis31" wrote:

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.

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








All times are GMT +1. The time now is 07:57 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com