how to copy and paste a DATA from one sheet to another

[charith]

hello...

i want to copy column A,D,E,F from sheet 1 to sheet 2 column B,C,D,F...

I have a sheet titled "Main" that contains the raw data like the example below. I have another sheets titled "Orders" and . I'm needing a code to copy the data only from column A,D,E,F in "Main" sheet, and paste it in the "Sheet 2" column B,C,D,F based on "sell & buy" values

Sheet(main)

A	B	C	D	E	F
ORDER TYPE			#ORDERS	PRICE	%
BUY			1	45.78	0.1
SELL			23	2354.67	0.15
-			-	-	-
BUY			345	6789	0.23

<tbody>
</tbody>

Sheet(Orders)

A	B	C	D	F	G
A1	BUY	1	45.78	0.1
B2	SELL	23	2354.67	0.15
C1	BUY	345	6789	0.23
D1

<tbody>
</tbody>

​Any help is MUCH appreciated THANK YOU!!

 

[L. Howard]

On the Main sheet, CY column (103), is blacked out and has no Header. Do you use it?

the "Open column(Column number 103)" fills with "Y"


And "current price" is column 49 not 48. "Open price is column 46 not 45.

So i want to copy "current price "(48) to " open price "(45) column when "open column (103)" = Y


Are you looking for code to do the copy?

Howard

 

[charith]

yeah, this is what i want..!
"current price "(48) to " open price "(45) column when "open column (103)" = Y

 

[charith]

On the Main sheet, CY column (103), is blacked out and has no Header. Do you use it?

the "Open column(Column number 103)" fills with "Y"


And "current price" is column 49 not 48. "Open price is column 46 not 45.

So i want to copy "current price "(48) to " open price "(45) column when "open column (103)" = Y


Are you looking for code to do the copy?

Howard

YEAH i want the code..

 

[L. Howard]

You seem sure that this is what you want.

"current price "(48) to " open price "(45) column when "open column (103)" = Y


But when I look at the sheet Main from your link:

Column 48 is column AV and the Header for AV is "Gap" and the entries are % percentages.
Column 45 is column AS and the Header for AS "Short Drag" and the entries are % percentages.

Column 49 is column AW and the Header for AW is "Current Price" and the entries are $ dollars.
Column 46 is column AT and the Header for AT is "Open Price" and the entries are $ dollars.

So your statement above is in error.

And I have to ask again about column CY which is column 103. It is a narrow and blacked out column that looks like it is used as a border and there is no header "open". You don't really use a column that is blacked out for data entry do you?

What am I missing?

Howard

 

[charith]

i'm really sorry ..!!

it must be change to
current price "(49) to " open price "(46) column when "open column (104)" = Y

Thank you so much for your help..!!

 

[charith]

You seem sure that this is what you want.

"current price "(48) to " open price "(45) column when "open column (103)" = Y


But when I look at the sheet Main from your link:

Column 48 is column AV and the Header for AV is "Gap" and the entries are % percentages.
Column 45 is column AS and the Header for AS "Short Drag" and the entries are % percentages.

Column 49 is column AW and the Header for AW is "Current Price" and the entries are $ dollars.
Column 46 is column AT and the Header for AT is "Open Price" and the entries are $ dollars.

So your statement above is in error.

And I have to ask again about column CY which is column 103. It is a narrow and blacked out column that looks like it is used as a border and there is no header "open". You don't really use a column that is blacked out for data entry do you?

What am I missing?

Howard

https://www.dropbox.com/s/gp8s11lesiuahte/LIVE STOCK QUOTES (API) V5.1 test.xlsm

check this out ..
i'm really sorry ..!!


it must be change to
current price "(49) to " open price "(46) column when "open column (104)" = Y


Thank you so much for your help..!!

 

[charith]

bump

 

[L. Howard]

This works on the workbook you posted.

I'm not sure what all the other stuff does in you change event macro.

I'll see if I can get it to operate on your change event.

What is the main change event on the sheet that you want the code to run on?

Howard

Option Explicit

Sub OneOFour()
Dim c As Range
Dim lr As Long
Dim cyOpen As Range

lr = Cells(Rows.Count, 104).End(xlUp).Row
Set cyOpen = Range("CY6:CY" & lr)

   For Each c In cyOpen
     If c = "Y" Then
       c.Offset(, -55).Copy c.Offset(, -58)
     End If
   Next

End Sub

 

[charith]

This works on the workbook you posted.

I'm not sure what all the other stuff does in you change event macro.

I'll see if I can get it to operate on your change event.

What is the main change event on the sheet that you want the code to run on?

Howard

Option Explicit

Sub OneOFour()
Dim c As Range
Dim lr As Long
Dim cyOpen As Range

lr = Cells(Rows.Count, 104).End(xlUp).Row
Set cyOpen = Range("CY6:CY" & lr)

   For Each c In cyOpen
     If c = "Y" Then
       c.Offset(, -55).Copy c.Offset(, -58)
     End If
   Next

End Sub

this code is working fine
but this is not the code i want, because it do not work when column CZ filling automatically with letter "Y"

1.enter a value to day high or day low..

2, then you can see letter "Y" will automatically generated in column "OPEN" (CZ)

In that case , i want to copy the current price(AW) to open price(AT)

please download this workbook and try it

https://www.dropbox.com/s/slw36wq6nly2cki/LIVE%20STOCK%20QUOTES%20%28API%29%20V5%20test.xlsm

Howard , Thank you very much for your great help..!!

 

[charith]

bump