Copy Cell Text Only Content on single Click

It would be best to provide some examples of what is in these cells?

How many cells? Where are the cells and where do you want things placed?

Please post a sample workbook of before and after

Hi Jeffery,

Here's a sample code I was using but would like to modify it to copy text ONLY:

Please Login or Register  to view this content.

I need text only to be able to paste properly into a program I use at work.

The way I've been able to do so far is by triple clicking the cell, highlighting the text and THEN copying and pasting into the other program - but I'm trying to simplify it down to just single click and paste.

Any help would be greatly appreciated.

Try this...

I'm guessing you already have values in B2:G10. not sure how this helps you. Couldn't you just right click and copy then paste the text to the other program. Anyway, with this macro when you double click the cell it wii only copy if it is text.

Please Login or Register  to view this content.

If this does not do it then more explanation is required

Well I can't say I have any real ideas since I don't know what I am working with here.

Can I see a sample workbook of the text you are trying to copy and into what type of program are you pasting the results?

Hi Jeff,

Here's a sample of the data:

Please Login or Register  to view this content.

Each word is in a seperate cell and I have to triple click the cell, highlight the text, copy, switch to other program and paste.

What I'd like to do is be able to click once and paste text only into the other program. (Again, It must be text only other wise it won't paste for whatever reason)

The program I'm using is called Orion by VCI solutions, it's a broadcast traffic program.

There was another guy who was trying to help me in different forum but I couldn't figure out how to get the code he provided working - see here:

http://www.mrexcel.com/forum/showthr...1&goto=newpost

I'm glad to be able to get a second opinion on this.

I really appreciate your help and persistence - Thanks again!

Using

Please Login or Register  to view this content.

should put the content of the activecell in the clipboard every time you select a new cell.

Hi OnErrorGoto0,

Thanks for your reply.

I know for sure I must be doing something wrong because the code does not seem to run when I paste it into the code window.

Here's what I'm doing:

1. Open excel spread sheet with data I need to copy

2. Open VBA window

3. In VBA Insert UserForm1 so Microsoft Forms 2.0 Object Library is available and selected from the References list.

4. In VBA Double click Sheet1

5. In VBA Paste Code into Sheet1

At this point I switch back to the excel spread sheet data to test by clicking on a cell within the specified range in code "A1:J281" but nothing happens. I don't get it, can you please give me a step by step instructions on how to get this working or point out what I'm doing wrong?

I'm using windows 7 sp1 and ms excel 2003 sp3

Thanks again - I appreciate everyone's patience & help with this.

I double posted... sorry

That code needs to go into the ThisWorkbook module - it is designed to work with all sheets. Also, you can just set a reference rather than adding an unnecessary userform. (it could also be late bound so you wouldn't need any references)

0EGO,

Thanks again for your response.

I tried pasting the code into the workbook without inserting UserForm1 but got Compile Error: "User-defined type not defined" and "DataObj As MSforms.DataObject" line was highlighted in the module.

I tried again but having inserted UserForm1 in order to get reference to Microsoft Forms 2.0 Object Library (It appears I need to do this otherwise Microsoft Forms 2.0 Object Library will not be available in the references list). It got rid of the Compile Error but nothing happens when I click a cell in the spread sheet with in the cell parameters specified in the code. From what I understand, the script should just work once the code is pasted in.

I'm stumpted, any ideas?

You can set the reference yourself via the Tools-References dialog without needing to insert a userform, but it's not really important.

The code should work but all it does is copy the text to the clipboard. I assume you are then pasting it elsewhere to test? (pasting to another cell in the workbook obviously will not work)

My pleasure. You can actually skip the referencing and use

Please Login or Register  to view this content.

if you prefer.

Hi again guys,

First of all thank you so much for the help and for the script that works flawlessly.

After much use and for my work purposes, I'm realizing it would be more efficient to use arrow keys to select and copy text only rather than single clicking. So would it be possible to modify the script to copy text only using any arrow key? ie: what ever cell is selected after hitting any arrow key it lands on will have text only copied instead of the click?

Thanks so much in advance any help would be greatly appreciated.