Excel - Activar Macro al cambiar valor de celda dentro de un rango

   
Vista:

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:


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Activar Macro al cambiar valor de celda dentro de un rango

Publicado por JuanC juanc2942@gmail.com (1226 intervenciones) el 23/10/2017 01:37:49
probá con algo así:

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:B20]) Is Nothing Then Exit Sub
a = Target.Address
valor = Range(a).Value
Sheets("FEBRERO").Range(a).Value = valor
Sheets("MARZO").Range(a).Value = valor
Sheets("TOTALES").Range(a).Value = valor
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Activar Macro al cambiar valor de celda dentro de un rango

Publicado por Gema (2 intervenciones) el 23/10/2017 20:25:26
A la perfección.
Muchísimas gracias Juan. Pero muchas...
Un saludo, Gema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar