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

  • Thread starter Thread starter dh13134
  • Start date Start date
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
 
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
 
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
 
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...
 
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...
 
Back
Top