Click on a Cell and Contents of cell populate another cell in another worksheet

Status
Not open for further replies.

brumby

Active Member
Joined
Apr 1, 2003
Messages
400
Hi There,

Hopefully an easy one.

I have a worksheet called "Main Sheet", I would like for any cell I click on in Col D, the contents of that cell to appear in worksheet "JOB CHECK" in Cell F1.


Appreciate you help as always!!!!
 
Put this script in sheet named
Options
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  8/28/2018  10:57:21 AM  EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets("List").Cells(Rows.Count, "A").End(xlUp).Row + 1
Target.Copy Sheets("List").Cells(Lastrow, 1)
End If
End Sub
I know this was a while back - but any help would be amazing. How can I use this exact code BUT copy/paste values only? (No formulas/formatting etc). Thanks!
 
Upvote 0

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.
^NVM btw. Fluff's solution worked perfectly for my needs. Thank you Fluff and My Answer Is This. Very helpful thread!
 
Upvote 0
Glad it worked for you & thanks for letting us know.
 
Upvote 0
Put this script in sheet named
Options
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  8/28/2018  10:57:21 AM  EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets("List").Cells(Rows.Count, "A").End(xlUp).Row + 1
Target.Copy Sheets("List").Cells(Lastrow, 1)
End If
End Sub
I was wanting to know how to expand this code to do this: say on sheet 1 have have data in columns A and C, when double clicking a cell in A, I want it to populate A and C onto sheet 2 columns A and B, on the next empty row?
 
Upvote 0
Status
Not open for further replies.

Forum statistics

Threads
1,215,463
Messages
6,124,963
Members
449,200
Latest member
indiansth

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top