Double click cell - copy data to new sheet - create a list from double clicking

**kakky** · 05-03-2015, 11:56 PM

Hi,

I have hunted the forums for a while now trying to find a solution for the problem I am stuck with.

I wish to create a Code enabling me to Double click a cell, in turn it then copies the cell to a new sheet. I then wish to go back to the first sheet and double click the next item to copy across, pasting the new item underneath the first copied cell, continuing to do this multiple times to create a list

Currently this Code over writes the cell on the new sheet (D1)
how can I change the range to be row D recurring?

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

cheers,
Kak

**vcoolio** · 05-04-2015, 02:33 AM

Hello Kakky,

This slight modification to your code should do the trick:-

Please Login or Register  to view this content.

It copies from sheet 1 to sheet 2.
The code assumes that there is a heading in cell D1, Sheet2.

Cheerio,
vcoolio.

**maxwell13** · 05-04-2015, 02:46 AM

Hi

This should paste into the next empty cell column D

Please Login or Register  to view this content.

**JOHN H. DAVIS** · 05-04-2015, 07:37 AM

Please use code tags when posting. Try:

Please Login or Register  to view this content.

**vcoolio** · 05-04-2015, 08:14 AM

Greetings Maxwell and John,

Doesn't the OP want the result on a second sheet?

I wish to create a Code enabling me to Double click a cell, in turn it then copies the cell to a new sheet.

I suppose we all read and understand things differently!

Cheers Gentlemen,
vcoolio.

**JOHN H. DAVIS** · 05-04-2015, 08:44 AM

@ vcoolio. The OP complains about overwriting D1 on the new sheet and then gives as destination for the new sheet as Sheets("SHEET1").Range("D1").PasteSpecial Paste:=xlPasteValues. That's how I read it?

**vcoolio** · 05-04-2015, 09:05 AM

Oh well, John. At least the OP now has a couple of options!

Over to Kakky.

Cheers.

**kakky** · 05-04-2015, 10:30 PM

Cheers guys, maybe my explaining wasn't the best Vcoolio

was what I was chasing so thanks for that

**vcoolio** · 05-04-2015, 11:14 PM

Hello Kakky,

Glad that I could help.

Cheerio,
vcoolio.

Double click cell - copy data to new sheet - create a list from double clicking

LinkBack

Thread Tools

Rate This Thread

Display

Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Re: Double click cell - copy data to new sheet - create a list from double clicking

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Before double click event with if statements (Double clicking blank cell stops bdc firing)

Changing cell properties with double click, then revert with another double click

[SOLVED] Copy data to another sheet a double click option vba

Copy double-clicked cell to next empty row in different sheet with each double-click

Create macro upon double click cell display filter in new sheet

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions