Activar Macro al cambiar valor de celda dentro de un rango
Publicado por Gema (2 intervenciones) el 23/10/2017 00:49:56
Buenas noches,
Desde la hoja "ENERO" intento que al cambiar el valor de cualquier celda dentro del rango B3:B30 cambie el valor de esa misma referencia en las hojas FEBRERO, MARZO y TOTALES. Es decir, si en B20 de la hoja ENERO cambio el valor, en el resto de hojas mencionadas cambié en sus respectivas celdas B20, tanto si al cambiar el valor me desplazo posteriormente (salgo de la celda) con el tabulador, enter o incluso con el ratón.
La macro que tengo y que entra en un bucle es:
Agradezco vuestras sugerencias.
Un saludo,
Desde la hoja "ENERO" intento que al cambiar el valor de cualquier celda dentro del rango B3:B30 cambie el valor de esa misma referencia en las hojas FEBRERO, MARZO y TOTALES. Es decir, si en B20 de la hoja ENERO cambio el valor, en el resto de hojas mencionadas cambié en sus respectivas celdas B20, tanto si al cambiar el valor me desplazo posteriormente (salgo de la celda) con el tabulador, enter o incluso con el ratón.
La macro que tengo y que entra en un bucle es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B20]) Is Nothing Then Exit Sub
a = ActiveCell.Address
valor = Range(a).Value
Sheets("FEBRERO").Select
Range(a).Value = valor
Sheets("MARZO").Select
Range(a).Value = valor
Sheets("TOTALES").Select
Range(a).Value = valor
Sheets("ENERO").Select
Range(a).Select
End Sub
Agradezco vuestras sugerencias.
Un saludo,
Valora esta pregunta
0