View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
John C[_5_] John C[_5_] is offline
external usenet poster
 
Posts: 5
Default copying cell text to non-Microsoft application

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


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
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

On Sun, 30 Nov 2003 21:24:06 +0000 (UTC), "John C"
wrote:

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