Copy Cell Content on Click

[excelnow]

Hi,

I am not sure if this is possible because I couldn't find anything about this on the web and on this forum.

I want to copy the cell content(text) when I click on it. Can this be done via code?

Thanks

 

[Fucius]

hrmmmm.... I know how to select a reference but how do I know which one to select?



btw, thanks for your help and patience with me, I appreciate it very much!

 

[VoG]

It is explained in the first two paragraphs of the link that I posted.

 

[Fucius]

ahhhh.... okay, I see now. Sorry about that. I look through the references list and there doesn't appear to be a Microsoft Forms 2.0 Object Library. Would I have to find and install this?

 

[VoG]

You need to check carefully. The listing is not entirely alphabetic. On my system the Microsoft Forms library is fairly close to the top of the list.

 

[Fucius]

I'm running MS Excel 2003, version 6.1.7601 SP1 Build 7601 on Windows 7 OS.

I went through the list again and it appears everything is in alphabetical order for me. I downloaded and installed the MS Forms and check references list again but the closest thing I found was "Microsoft Feeds 2.0 Library" instead. I selected that but got same results. I'm going to investigate further-This is strange.

 

[VoG]

Try this http://www.excelbanter.com/showthread.php?t=279919

 

[Fucius]

Woah, I think this is going way over my head now. I googled how to Inset a userform in your project:

http://www.excel-vba-easy.com/vba-userform-excel-vba.html

I think I need some time to try to understand how this all fits in...

 

[VoG]

You should just be able to add a userform from the Insert menu in the VBE. You won't need any coding for it.

 

[Fucius]

ahhhh..... okay, I've inserted it and now I see the MS Forms 2.0 Library and it's now selected and the script runs, however when I select a cell in the spread sheet I'm still getting "compile error: Procedure declaration does not match description of event or procedure having the same name."

Here's the code I pasted:

Private Sub Workbook_SheetSelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:J281")) Is Nothing Then Exit Sub

Dim DataObj As New MSForms.DataObject
Dim S As String
S = ActiveCell.Text
DataObj.SetText S
DataObj.PutInClipboard

Dim DataObj As New MSForms.DataObject
Dim S As String
DataObj.GetFromClipboard
S = DataObj.GetText
Debug.Print S

End Sub

 

[VoG]

It should be

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)