how to display my cursor cell content in another cell....

D

dh13134

hi
is there a function that can display the content of whatever cell my cursor
is currently in? for example, A1="Dog", A2="Cat", and A3="Horse". i want cell
D1 to display "Dog" when my cursor is in cell A1, "Cat" when i move my cursor
to A2, and "Horse" when i move my cursor to A3......
thanks
 
D

Don Guillett

Right click sheet tab>view code>insert this. Now when you select ANY cell it
will show in d1. SO, you may want to restrict by using the second one
instead.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1").Value = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
Range("d12").Value = Target
End Sub
 
D

Don Guillett

Right click sheet tab>view code>insert this. Now when you select ANY cell it
will show in d1. SO, you may want to restrict by using the second one
instead.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1").Value = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
Range("d12").Value = Target
End Sub
 
D

dh13134

VERY, VERY, COOL!!!

thanks much!!
--
dh13134


Don Guillett said:
Right click sheet tab>view code>insert this. Now when you select ANY cell it
will show in d1. SO, you may want to restrict by using the second one
instead.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1").Value = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
Range("d12").Value = Target
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
Click to expand...
 
D

dh13134

VERY, VERY, COOL!!!

thanks much!!
--
dh13134


Don Guillett said:
Right click sheet tab>view code>insert this. Now when you select ANY cell it
will show in d1. SO, you may want to restrict by using the second one
instead.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d1").Value = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
Range("d12").Value = Target
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Lookup_finding all the corresponding cell... 5
Automatically moving from one cell to another 3
How can I get a cursor location to use in a formula (e.g. IF A1,"Y 2
Dragging a transpose of data 2
Formula in comments? 4
Oversensitive touchpad on modern laptops 0
Excel VBA to move cursor from 1 cell to another, once original cell is filled with data. 3
Using two Vlookup in one Cell 1

Top