copying cell text to non-Microsoft application

  • Thread starter Thread starter John C
  • Start date Start date
J

John C

Hi - i'm trying to copy the contents of a cell to the clipboard (so that I
can then paste it into a non-Microsoft program). When doing it manually,
selecting and copying the cell itself doesn't work - instead I need to 'go
into the cell' and select the text and copy it. How can I do this with VBA?

As an added twist, the cell contains a formula that concatenates text from a
number of other cells (to create a unique code). I actually need to copy
the result of the concatenation to the clipboard.

TIA, John
 
Harald

Range("A1").Copy and Ctrl C don't work (I need to select and copy the text
inside the cell - from the formula bar), but the link to Chip Pearson's site
looks promising

tks john
 
John

If you copy the contents from the formula bar you will get the formula.

If you copy the cell you will get the concatenated result.

Which do you want? Seems you're asking for both.

Gord Dibben XL2002
 
the link to Chip's site gave me what i needed; tks ...

Sub CopyTextToClipboard()
Dim DataObject As New DataObject

DataObject.SetText ActiveCell.Text
DataObject.PutInClipboard

End Sub
 
Back
Top