ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   how to copy on double-click the cell value to Clipboard (https://www.excelbanter.com/excel-worksheet-functions/12788-how-copy-double-click-cell-value-clipboard.html)

cyrille

how to copy on double-click the cell value to Clipboard
 
Hello everybody,
My question is in the title... I just want to be able to automatically
copy the text content of one selected cell (selected by double-click)
into the Clipboard. Can you help me?
I tried something like the following, but it doesn't work.
Thanks in advance
Cyril

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If ActiveCell.Value < "" Then
ActiveCell.Value.Copy
End If
Cancel = True
End Sub

Debra Dalgleish

Copy, the cell, not the value:

If Target.Value < "" Then
Target.Copy
End If


cyrille wrote:
Hello everybody,
My question is in the title... I just want to be able to automatically
copy the text content of one selected cell (selected by double-click)
into the Clipboard. Can you help me?
I tried something like the following, but it doesn't work.
Thanks in advance
Cyril

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If ActiveCell.Value < "" Then
ActiveCell.Value.Copy
End If
Cancel = True
End Sub



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html


cyrille

Thanks a lot...

Debra Dalgleish wrote:
Copy, the cell, not the value:

If Target.Value < "" Then
Target.Copy
End If


cyrille wrote:

Hello everybody,
My question is in the title... I just want to be able to automatically
copy the text content of one selected cell (selected by double-click)
into the Clipboard. Can you help me?
I tried something like the following, but it doesn't work.
Thanks in advance
Cyril

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If ActiveCell.Value < "" Then
ActiveCell.Value.Copy
End If
Cancel = True
End Sub






All times are GMT +1. The time now is 02:24 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com