Tests Copying, Pasting, API Cliipboard issues. and Rough notes on Advanced API stuff

[DocAElstein]

In support of answer for this Thread:
http://www.excelfox.com/forum/showth...lighted-colour


Initial 1.xlsx
_____ Workbook: 1.xlsx ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G
1	Stock Name
2	A2	22	32	42	52	62	72
3	A3	23	33	43	53	63	73
4	A4	24	34	44	54	64	74
5	A5	25	35	45	55	65	75
6	A6	26	36	46	56	66	76
7	A7	27	37	47	57	67	77
8	A8	28	38	48	58	68	78

Worksheet: Tabelle1

---

After the following code section we have a modified worksheet

Rem 2  .... initial adjustment so that I can detect the highlighted cells in a different way
Dim Rng As Range
 For Each Rng In Ws1.UsedRange.Offset(0, 2).Resize(, Ws1.UsedRange.Columns.Count - 1)
    If Rng.Interior.Color = 65535 Then
     Let Rng.Value = "=" & """" & Rng.Value & """"
    Else
    End If
    

_____ Workbook: 1.xlsx ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G	H
1	Stock Name
2	A2	22	32	42	52	62	72
3	A3	23	="33"	43	53	63	73
4	A4	24	34	44	="54"	64	="74"
5	A5	25	35	="45"	55	65	75
6	A6	26	36	46	56	66	76
7	A7	27	37	47	57	="67"	77
8	A8	28	38	48	58	68	78
9

Worksheet: Tabelle1

---

First worksheet in 2.xlsx, before running macro, showing the Matched A5 in row 6
_____ Workbook: 2.xlsx ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G	H	I	J	K	L	M
1		Symbol
2		x						H2
3		r						H3
4		f						H4
5		gdg						H5
6		A5						H6
7		5						H7
8		h						H8
9

Worksheet: Tabelle1


After running macro:-
_____ Workbook: 2.xlsx ( Using Excel 2007 32 bit )

Row\Col	A	B	C	D	E	F	G	H	I	J	K	L
1		Symbol
2		x						H2
3		r						H3
4		f						H4
5		gdg						H5
6		A5						H6				45
7		5						H7
8		h						H8
9

Worksheet: Tabelle1

---

1.xlsx : https://app.box.com/s/dgufdfvw3lm3knkvwvp0xgiqpwarqf69
2.xlsx : https://app.box.com/s/51cykk4zd6ldan8puz70o3zyj0e17rwf
macro.xlsm : https://app.box.com/s/tbis0g4n6l6386df6xjwh4cirbtgphzl