Ver Mensaje Individual
  #20 (permalink)  
Antiguo 03/03/2006, 09:27
potypoty
 
Fecha de Ingreso: noviembre-2005
Mensajes: 170
Antigüedad: 13 años
Puntos: 1
Si con dos ya sé que funciona , pero prueba esto:

Private Sub Worksheet_Change(ByVal Target As Range)
'Si ponemos un dato en A1, nos pone el mismo dato en A2 y A3
If Target.Row = 1 And Target.Column = 1 Then
If Range("a1").Value <> "" Then
Range("a2").Value = Range("a1").Value
Range("a3").Value = Range("a1").Value
End If
End If
'Si ponemos un dato en A2, nos pone el mismo dato en A1 y A3
If Target.Row = 2 And Target.Column = 1 Then
If Range("a2").Value <> "" Then
Range("a1").Value = Range("a2").Value
Range("a3").Value = Range("a2").Value
End If
End If
'Si ponemos un dato en A3, nos pone el mismo dato en A1 y A2
If Target.Row = 3 And Target.Column = 1 Then
If Range("a3").Value <> "" Then
Range("a1").Value = Range("a3").Value
Range("a2").Value = Range("a3").Value
End If
End If
End Sub

Esto, pero a mayor medida necesito para mi curro. Cuando vi tu código lo probé con mis cambios y no sé por qué exactamente no funciona. Bueno, en realidad lo que no entendía era por qué con dos cambios si funciona. Tu al escribir en la celda A2 estás haciendo un cambio y eso debería hacer saltar el proceso.
Igual estoy haciendo algo mal y no lo veo. Si lo pruebas y te funciona me gustaría saber qué has cambiado.
Ya me dirás.
__________________
El sabio no dice nunca todo lo que piensa,
pero siempre piensa todo lo que dice.
Aristóteles :pensando: