copy selection value and paste in other application

[seba64]

Hi, i have a column with values, i copy each value, one on one with selection.copy, and i need go to the other app with alt tab and paste the value with ctrl v.

I try:

selection.copy
Application.SendKeys ("%{TAB}^v"), True

but that don't work

 Application.SendKeys ("%{TAB}"), True
 Application.SendKeys ("^v"), True

its tries only do the alt + Tab but not the CTRL + V

How can paste the value in other application?

 

[MCLIFTO8]

Hi, i have a column with values, i copy each value, one on one with selection.copy, and i need go to the other app with alt tab and paste the value with ctrl v.

I try:

selection.copy
Application.SendKeys ("%{TAB}^v"), True

but that don't work

 Application.SendKeys ("%{TAB}"), True
 Application.SendKeys ("^v"), True

its tries only do the alt + Tab but not the CTRL + V

How can paste the value in other application?

method 1, the equivalent of ctrl-c + ctrl-v, copies formatting.
selection.copy Destination:=ThisWorkbook.Sheets("Sheet2").Range("A1:A5")

method 2, the preferred way to copy and paste values only.
selection.copy
ThisWorkbook.Sheets("Sheet2").Range("A1:A5).PasteSpecial Paste:=xlPasteValues

note:
I would replace "selection" with a specific range of cells in most cases.
ThisWorkbook.Sheets("Sheet2").Range("A1:A5").copy

Copy range directly (fastest)	vRangeToCopy = ws1.Range("A1:A3") ws2.Range("B1:B3").Value2 = vRangeToCopy
Copy range (without clipboard, faster)	Set rng = Worksheets("Sheet1").Range("A1:Z100") Worksheets("Sheet2").Range("A1").Resize(rng.Rows.Count, rng.Columns.Count).Cells.Value = rng.Cells.Value
Copy range using clipboard	Range.Copy method (Excel) Range(“A1:B3”).Copy Range(“D1”) .Range("F5").Copy Destination:=.Range("A1:A5")
Paste special	Range.PasteSpecial method (Excel) Range(“A1:B3”).Copy Range("B1").PasteSpecial Paste:=xlPasteValues Paste:=xlPasteFormats