03/03/2006, 05:54
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 20 años Puntos: 1 | |
| Me he cargado sin querer una varible llamada Cambiar que utilizo para evitar que se meta en un bucle infinito. Te mando el código correcto.
Dim Direccion As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Cambiar Then
Select Case Direccion
Case "$G$5"
Range("D15").Value = Range("G5").Value
Range("D28").Value = Range("G5").Value
Range("P22").Value = Range("G5").Value
Case "$D$15"
Range("G5").Value = Range("D15").Value
Range("D28").Value = Range("D15").Value
Range("P22").Value = Range("D15").Value
Case "$D$28"
Range("G5").Value = Range("D28").Value
Range("D15").Value = Range("D28").Value
Range("P22").Value = Range("D28").Value
Case "$P$22"
Range("G5").Value = Range("P22").Value
Range("D15").Value = Range("P22").Value
Range("D28").Value = Range("P22").Value
End Select
Cambiar=False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub
Creo que esta vez está todo. El problema que mi código es mucho más extenso que esto y lo he acortado para que sea más cómodo verlo y entenderlo.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: |