Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/04/2006, 02:36
Avatar de niconico
niconico
 
Fecha de Ingreso: enero-2006
Mensajes: 166
Antigüedad: 18 años, 4 meses
Puntos: 0
porque no borra este código?

Tengo un código (no es mío yo simplemente lo he adapatado) con el cual cualquier modificación que haga en la celda a1 o a2 de la hoja 1 se vuelca automáticamente a la celda a1 o a2 de la hoja 2, y viceversa. El problema que tengo es cuando borro las dos celdas a la vez, si borro una sola me la borra también en la otra hoja pero si borro las dos a la vez sólo me borra una, y esa siempre es a1, es como si cuando seleccionas las dos celdas y las borras no leyera el segundo if.
hoja1:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
    Hoja2.Range("A1") = Range("A1")
End If
If Target.Row = 2 And Target.Column = 1 Then
    Hoja2.Range("A2") = Range("A2")
End If
End Sub
hoja2
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
    Hoja1.Range("A1") = Range("A1")
End If
If Target.Row = 2 And Target.Column = 1 Then
    Hoja1.Range("A2") = Range("A2")
End If
End Sub
muchas gracias