Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Activar Macro al cambiar valor de celda dentro de un rango

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

Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)Activar Macro al cambiar valor de celda dentro de un rango
Gema (23/10/2017 00:49:56)2.306 visitas
2 respuestas
Mensajes realizados anteriormente (No estaban la última vez que entraste)(+1)Activar Macro al cambiar valor de celda dentro de un rango
JuanC (23/10/2017 01:37:49)
Mensajes realizados anteriormente (No estaban la última vez que entraste)Activar Macro al cambiar valor de celda dentro de un rango
Gema (23/10/2017 20:25:26)

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 (1237 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