3pies me paso un código hace un par de días en una duda que tenía a cerca de una referencia circular, este me sirve para que si modifico una celda en una hoja otra celda de otra hoja se modifique automáticamente. El problema que tengo ahora es que si borro el contenido de una celda se borra el contenido de la otra celda, bien, pero si borro el contenido de dos o más celdas a la vez sólo me borra una de ellas, como conseguiría que me las borrara todas.
Código hoja 1:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 16 And Target.Column = 2 Then
Hoja4.Range("B16") = Range("B16")
End If
If Target.Row = 17 And Target.Column = 2 Then
Hoja4.Range("B17") = Range("B17")
End If
If Target.Row = 18 And Target.Column = 2 Then
Hoja4.Range("B18") = Range("B18")
End If
If Target.Row = 19 And Target.Column = 2 Then
Hoja4.Range("B19") = Range("B19")
End If
If Target.Row = 16 And Target.Column = 3 Then
Hoja4.Range("C16") = Range("C16")
End If
If Target.Row = 18 And Target.Column = 3 Then
Hoja4.Range("C18") = Range("C18")
End If
If Target.Row = 26 And Target.Column = 3 Then
Hoja4.Range("C26") = Range("C26")
End If
If Target.Row = 27 And Target.Column = 3 Then
Hoja4.Range("C27") = Range("C27")
End If
End Sub
Código hoja 2:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 16 And Target.Column = 2 Then
Hoja20.Range("B16") = Range("B16")
End If
If Target.Row = 17 And Target.Column = 2 Then
Hoja20.Range("B17") = Range("B17")
End If
If Target.Row = 18 And Target.Column = 2 Then
Hoja20.Range("B18") = Range("B18")
End If
If Target.Row = 19 And Target.Column = 2 Then
Hoja20.Range("B19") = Range("B19")
End If
If Target.Row = 16 And Target.Column = 3 Then
Hoja20.Range("C16") = Range("C16")
End If
If Target.Row = 18 And Target.Column = 3 Then
Hoja20.Range("C18") = Range("C18")
End If
If Target.Row = 26 And Target.Column = 3 Then
Hoja20.Range("C26") = Range("C26")
End If
If Target.Row = 27 And Target.Column = 3 Then
Hoja20.Range("C27") = Range("C27")
End If
End Sub