Double click in cell and copy the value into another cell

[asyamonique]

Good Day and Happy New Year,
The datas has stored in columns "a:g" all the way down.
When i double click any cell in column "A" I would like to store the value one by one into the column "K" from first cell to down.Is it possible?

 

[Peter_SSs]

Good Day and Happy New Year,
The datas has stored in columns "a:g" all the way down.
When i double click any cell in column "A" I would like to store the value one by one into the column "K" from first cell to down.Is it possible?

That is not entirely clear to me.

1. If I double click, say, A10, can you detail exactly what cells would get copied to where?

2. Then if I next double clicked A5, can you detail exactly what cells would get copied to where?

 

[asyamonique]

Peter,
Column K will be the destination..So if i double click on A10 the data in A10(digit numbers) will go to K1...then A5 will be in K2 ...any cell I do double click in coumn A it will go trough to column K in last cell.
Thanks a lot

 

[Peter_SSs]

Peter,
Column K will be the destination..So if i double click on A10 the data in A10(digit numbers) will go to K1...then A5 will be in K2 ...any cell I do double click in coumn A it will go trough to column K in last cell.
Thanks a lot

If column K starts off empty, then this will actually start the list in K2 then go down. If that is a problem post back and the code can be tweaked to start in row 1. I left it like this because the code was a bit simpler and I thought you might be having a heading in K1 anyway?

If you need help with the code implementation, post back.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_BeforeDoubleClick(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range, Cancel <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>)<br>    <SPAN style="color:#00007F">If</SPAN> Target.Column = 1 <SPAN style="color:#00007F">Then</SPAN><br>        Range("K" & Rows.Count).End(xlUp).Offset(1).Value = Target.Value<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br><br><br></FONT>

 

[asyamonique]

Is it possible to make the cell with highlight (red) after double click on it.
Many thanks Peter..
More Power !!

 

[Peter_SSs]

Is it possible to make the cell with highlight (red) after double click on it.
Many thanks Peter..
More Power !!

Sure, just add the code below in a new line just before the 'End If' line

Target.Interior.ColorIndex = 3

 

[asyamonique]

thanks again.

 

[asyamonique]

Peter actually column K has the staff ID numbers and i had put into column L VLOOKUP formulas...so what if i remove those formulas and when double click from column A the next cell which names located column B will copy also into column L in same line...is it possible?

 

[Peter_SSs]

Try this change

Range("K" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Target.Resize(, 2).Value

 

[asyamonique]

Peter you helped me a lot..!!
Realy appricated.
Thanks