Cambiar el valor de 2 celdas de un gruppo de 3 cuando se cambia una de las tres
Pues Necesito un macro que se ejecute y cambie el valor de las otras dos del grupo
Ejemplo : Tengo A1, A2 y A3 quiero que cuando cambie cualquiera de ellas las otra dos se pongan a 0 o cualquier otro valor designado por mi.
H he desarrollado la siguiente macro :
--------------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' Variable KeyCells contiene las celdas a controlar
Set KeyCells = Range("A1:A3")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Codigo en caso de cambio en A1
If Target.Address = "$A$1" Then
Range("$A$2").Select
ActiveCell.FormulaR1C1 = "0"
Range("$A$3").Select
ActiveCell.FormulaR1C1 = "0"
Exit Sub
End If
' Codigo en caso de cambio en A2
'If Target.Address = "$A$2" Then
' Range("$A$1").Select
' ActiveCell.FormulaR1C1 = "10"
' Range("$A$3").Select
' ActiveCell.FormulaR1C1 = "10"
' Exit Sub
' End If
' Codigo en caso de cambio en A3
'If Target.Address = "$A$3" Then
' Range("$A$1").Select
' ActiveCell.FormulaR1C1 = "20"
' Range("$A$2").Select
' ActiveCell.FormulaR1C1 = "20"
' Exit Sub
' End If
End If
End Sub
------------------------------------------------------------------------------------------------------------
Si dejo que se ejecute cualquiera de los 3 grupos funciona bien, pero cuando dejo que se ejecute más de uno siempre me da "error 28 pila insuficiente"
¿Dónde me equivoco?
¿Hay otra forma más sencilla?