View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default evnet code, checking for entry

Right click sheet tabview code insert this. Modify to suit.
I would imagine you want to restrict to a cell or range.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I8:I10")) Is Nothing Then Exit Sub
Range("h1,j4,k6").Formula = Target.Formula
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Tami" wrote in message
...
i would like to write a view code that if someone edits a formula in column
AC, the macro copies that formula to 3 different cells on that line.

assumptios:
column AC is called "tot_dollars"
currently cell AC10= ac11+ac12.
lets say the user edits this formula to ac10=ac11+ac13.
i want the macro to automatically recognize that the user modified the
formula and to copy/pastespecial/formulas that new formula to three
different
cells on that line (ad10, bb10 and cc10)

help?

I did start with this sentence but ran into trouble when i deleted a row
as
it triggered the event. technically i didn't enter or modify anything in
"Tot dollars" but by deleting it it considers it an event?
If Intersect(Target, Range("tot_dollars")) Is Nothing Then exit sub

thanks in advanace,
Tami