Changing Cell Value

[Yogi]

I have numerical values in an array of cells (say from A1:A25). As I click on any of these cells in the array I want the value of that particular cell to display in cell D1. When a different cell is selected the display changes in cell D1. Is this possible?

 

[Tom Urtis]

Sounds like a worksheet selection event may do the trick. Right click on your sheet tab, left click on View Code, and paste this in:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A25")) Is Nothing Then Range("D1").Value = ""
Range("D1").Value = Target.Value
End Sub

Any help?

 

[Yogi]

Mission Accomplished!
Thanks Tom!
On 2002-10-22 20:58, Tom Urtis wrote:
Sounds like a worksheet selection event may do the trick. Right click on your sheet tab, left click on View Code, and paste this in:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A25")) Is Nothing Then Range("D1").Value = ""
Range("D1").Value = Target.Value
End Sub

Any help?

[/quote]

 

[Yogi Anand]

Hi Yogi:

Welcome to the Board!

Tom Urtis gave you a VBA solution -- that may be a lot neater -- I am going to submit a non-vaba solution, a formula to be input in cell D1 ...

=IF(AND(CELL("col")=1,CELL("row")>=1,CELL("row")<26),CELL("contents"),"")

Regards!
(have we both not got an interesting first name)
Yogi Anand