View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default There must be a way!!!--set cells' values equal to calculated values in another range

Eric,

Try code like the following in the worksheet's code module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("NamesConcatenated")) Is Nothing
Then
Application.EnableEvents = False
Range("NamesConcatenated").Copy Destination:=Range("NameValues")
Application.EnableEvents = True
End If
End Sub


The line
Application.EnableEvents = False
prevents the change from triggering the Change event, which would put you in
a loop.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)





"Arnold" wrote in message
oups.com...
I must set up an extra column that only contains values--values that
are equal to calculated values from another column. This has to be
done in VBA and not a regular formula (the column must contain
values--not formulas). I've tried...

Range("NameValues").Value = Range("NamesConcatenated").Value

The problem is that the NameValues must be updated after worksheet
change.

However, this is creating a never-ending 'filling cells' process. When
forced quit (Error 1004) the data values, however, are in the
NameValues column--so it's partially working--can this work?

Any help would be incredibly appreciated.

Eric