copy cell on double click to another worksheet

[neto1a]

Hello, I know there are other threads on this subject, but because of my poor knowledge in vba I couldn't adapt the answers to my problem.

What I need:
WhenI give two clicks in a cell (c3:d10, worksheet"PM") , copy the cell's value and paste on D1, worksheet"PLANEJAMENTO".

Thank you.

 

[VoG]

Right click the PM sheet tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:D10")) Is Nothing Then
    Cancel = True
    Target.Copy Destination:=Sheets("PLANEJAMENTO").Range("D1")
End If
End Sub

 

[neto1a]

It worked!
One more thing. Do you know how todo after I give the two clicks in the cell, shows PLANEJAMENTO sheet.
How I do to paste on destination formatting, because it copies the formatting of the table C3:D10.

Thanks a lot.

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:D10")) Is Nothing Then
    Cancel = True
    Target.Copy
    Sheets("PLANEJAMENTO").Range("D1").PasteSpecial Paste:=xlPasteValues
End If
End Sub

 

[neto1a]

It worked, after double click was paste only the value (and stay destination formatting).
But the PLAN come back to PM sheet, and the cell stay selected, like when you press ctrl C

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C3:D10")) Is Nothing Then
    Cancel = True
    Target.Copy
    Sheets("PLANEJAMENTO").Range("D1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("PLANEJAMENTO").Select
End If
End Sub

 

[neto1a]

It worked perfectly!!
Thank you so much.

 

[mylesk]

This was a neat solution that worked well for me too.

It's an old thread, but can I ask how to add an a way to OFFSET the cell that is copied?

ie. I want to double click a name and copy their ID to the other sheet.
In my case, double click a cell in E:E then copy the cell from C:C and paste into another sheet.

Answer here, or should I start a new post?

 

[mylesk]

I've moved this request to a new thread. MK