Transfer of data on mouse click – Urgent!!!

E

Eddy

Hi,

Is it possible in an Excel sheet to get the data in an empty cell from
another cell at a single click of mouse on the cell which contains that data
or number. Basically, it’s transferring of a number from one cell to another
without using Copy & Paste. The number or data will come from a cell in a
matrix. Further, is it possible to automatically change the colour of the
cell which is being clicked. Please reply urgently with detail solution to
the problem if achievable by programming or any means, it will be highly
appreciable.


Thanks,
Eddy
 
P

Per Jessen

Hi Eddy

More details needed!

How do I know which cell to transfer data to ? Will it be next empty cell in
a certain column or ....

What is the range you want to transfer data from?

Regards,
Per
 
E

Eddy

Hi Per Jessen,

Thanks for your prompt reply.

For details, let takes this example.
A B C

1 $2 $4 $8
2 $3 $6 $9
3 $10 $11 $7

Here, Matrix A1 to C3 has some values. Now I want to check/select the value
sitting in A1 cell (ie, $2) and want to transfer (copy) it into any another
empty cell lets say N6, by just clicking once on A1 cell. Is this possible?
Further if possible, I also want to change the cell background colour of the
checked cell once selected.

I hope this will help you enough to understand the problem. Look forward for
your reply.

Thank you.
Eddy
 
P

Per Jessen

Hi Eddy

I'm still not sure how to determine which cell to transfer to....

Here's a solution that will copy the value to N6. I can change the code to
work as desired when I know how to find the destination cell.

This is an event code, so it has to go in the code page for the sheet where
you need this routine. Rightclick on the sheet tab on the desired sheet and
select View Code. Copy the code below to the code page. Go back to the
worksheet and test it.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Matrix As Range
Dim isect As Range

Set Matrix = Range("A1:C3")
Set isect = Intersect(Target, Matrix)

If Not isect Is Nothing Then
Range("N6").Value = Target.Value
Target.Interior.ColorIndex = 41
End If
End Sub

Best regards,
Per
 
E

Eddy

Dear Per,

Thanks so much for your solution. It’s exactly what I was looking for. Rest
I will figure out the destination cell and change the values as required.
Thank you.

Kind regards,
Eddy
 
Top