Run macro whenever cell changes

[eLaCiD]

Hi
Need help with macro
The question is... how to run macro each time when cell changes but as
result of formula calculation (mean without selection this cell)
Example :
I wish to run macro when value in cell A1 is changed by changing value in
B1 (formula in A1 =B1)

Thanks

eLaCiD

[Bearacade]

I am not sure If I get your question.

B1 is = the value of A1?

Why would you need a macro change that? Just make sure you have automatic calculation on.

[Jim Thomlinson]

Paste this code in the appropriate sheet...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

On Error Resume Next
Set rng = Intersect(Target, Range("A1").Precedents)
On Error GoTo 0

If Not rng Is Nothing Then
MsgBox "Tada"
End If
End Sub

--
HTH...

Jim Thomlinson


"eLaCiD" wrote:

> Hi
> Need help with macro
> The question is... how to run macro each time when cell changes but as
> result of formula calculation (mean without selection this cell)
> Example :
> I wish to run macro when value in cell A1 is changed by changing value in
> B1 (formula in A1 =B1)
>
> Thanks
>
> eLaCiD
>
>
>

[Norman Jones]

Hi eLaCiD,

Try something like:

'=============>>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range

Set rng = Range("A1")

If Not Intersect(rng.Precedents, Target) Is Nothing Then
Call myMacro
End If

End Sub
'<<=============

---
Regards,
Norman



"eLaCiD" <[email protected]> wrote in message
news:[email protected]...
> Hi
> Need help with macro
> The question is... how to run macro each time when cell changes but as
> result of formula calculation (mean without selection this cell)
> Example :
> I wish to run macro when value in cell A1 is changed by changing value in
> B1 (formula in A1 =B1)
>
> Thanks
>
> eLaCiD
>
>

[Norman Jones]

Hi eLaCiD,

To allow for the posiibility that the range of interest does not have
precedent cells, an error handler should be included - as in Jim's superior
suggestion.

---
Regards,
Norman

[eLaCiD]

Realy fast )
Thanks ...


eLaCiD