Cell contents vs. Formula Bar contents

I suppose that the "other" application does not recognize the format on the clipboard. It is not always "straight text" when copying from a range. There are better ways of transferring data to other applications if you wish to discuss that here.

Any ideas are welcome. The text will not paste into an application called "TabWare" which is a CMMS system. I do not know much about it as to it's platform etc.

I can copy the text in Excel, paste it into WordPad for example, then copy from WordPad to Tabware. But I cannot go direct unless the text in the formula bar is copied. I have not been able to automate doing that.

Thanks for the response.

Lamar

Is your data transfer from Excel to Tabware a very repetitive task or something done occasionally?

Option 1.
Edit the macro to copy the text from the formula bar (for some range such as the activecell or multiple ranges) to the clipboard instead of the displayed text in the cell.

Option 2.
Edit the macro to do the above, but, instead of sending the data to the clipboard, send it directly to Tabware. This option will require a bit of investigation on your part. If this process of copying and pasting and the time and effort involved could be greatly reduced by simply running code that takes a range of cells as an argument, then it may be worth your time.

It is done by the users frequently - 25 to 50 times a day, but under a time constraint of a sort. Presently the number is 'remembered' from Excel then typed into Tabware. Note that they could highlight & copy from the formula bar, but this is rather clumsey.

Option 1 is what I am trying to do but have failed at it with macro code.

I have tried copying the cell contents, value, text etc but all fail. What do you suggest for copying the contents of the formula bar?

Thanks,

Lamar

<table border="1" bgcolor="White"><caption ALIGN=left><font size="2" face=Courier New>Example VBA Code:</FONT></caption><tr><td><font size="2" face=Courier New>  <font color="#008000">'add a reference to Microsoft Forms 2.X Object Library</font>
  <font color="#0000A0">Sub</font> TryThisFirst()
       <font color="#0000A0">Dim</font> DatObj <font color="#0000A0">As</font> <font color="#0000A0">New</font> DataObject
       DatObj.SetText ActiveCell.Text
       DatObj.PutInClipboard
  <font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
</FONT></td></tr></table>

Thanks. I will try this out when I get back into the office. It works with everything else I have tried so I am optomistic!

I'll let you know if it works soon.

Lamar

Tom - that did the trick! It works great and will save us a lot of time and keyboard enty.

And I learned something new and useful...

Many thanks

Lamar