Cambiar indistintamente el valor que comparten dos celdas
Publicado por pepe (1 intervención) el 31/08/2013 02:06:44
Sé que puedo cambiar indistintamente el valor de la celda A1 o el de la B1, que automaticamente se cambiará en la que no toco ( es decir, que si en A1 pongo 5, automaticamente en B1 sale un 5, y si por el contrario en B1 pongo un 3 es entonces en A1 dónde aparece un 3)
Esto se puede conseguir mediante el siguiente código :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("b1") = Range("a1").Value
If Target.Address = "$B$1" Then Range("a1") = Range("b1").Value
End Sub
Quisiera ampliar esta característica a un rango de valores determinado, por ejemplo que las celdas A2 a A10 fueran iguales a las celdas B2 a B10, y por ejemplo las celdas A11 a A20 fueran iguales a las C1 a C10 ( SIN TENER QUE IR METIENDOLAS UNA A UNA)
Podeis decirme como? GRACIAS
Esto se puede conseguir mediante el siguiente código :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("b1") = Range("a1").Value
If Target.Address = "$B$1" Then Range("a1") = Range("b1").Value
End Sub
Quisiera ampliar esta característica a un rango de valores determinado, por ejemplo que las celdas A2 a A10 fueran iguales a las celdas B2 a B10, y por ejemplo las celdas A11 a A20 fueran iguales a las C1 a C10 ( SIN TENER QUE IR METIENDOLAS UNA A UNA)
Podeis decirme como? GRACIAS
Valora esta pregunta
0