Actualización automática de macro cuando cambian los datos fuentes

Tengo una macro que me crea una hoja resumen con datos de celdas de varias hojas del mismo libro, necesito que la macro se actualice al cambiar los datos de las hojas fuentes o con alguna otra función que no sea eliminar la hoja resumen y volver a ejecutarla macro.

Esta es mi macro creada:

Sub RESUMEN()

Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "xresumenx"
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "xresumenx" Then
Sheets("xresumenx").Range("a65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c3")
Sheets("xresumenx").Range("b65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c5")
Sheets("xresumenx").Range("c65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c6")
Sheets("xresumenx").Range("d65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ab32")
Sheets("xresumenx").Range("e65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ac32")
Sheets("xresumenx").Range("f65000").End(xlUp).Offset(1, 0).Value = hoja.Range("an32")
Sheets("xresumenx").Range("g65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ao32")
End If
Next
End Sub

2 Respuestas

Respuesta
1

Suponiendo que cuando hayas hecho las modificaciones tienes que guardar el libro, puedes crear un evento beforesave tal que así:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each hoja In ActiveWorkbook.Sheets
    If hoja.Name <> "xresumenx" Then
    Sheets("xresumenx").Range("a65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c3")
    Sheets("xresumenx").Range("b65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c5")
    Sheets("xresumenx").Range("c65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c6")
    Sheets("xresumenx").Range("d65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ab32")
    Sheets("xresumenx").Range("e65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ac32")
    Sheets("xresumenx").Range("f65000").End(xlUp).Offset(1, 0).Value = hoja.Range("an32")
    Sheets("xresumenx").Range("g65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ao32")
    End If
Next
End Sub

De este modo siempre tendrás la hoja xresumenx actualizada cuando guardes el libro

Chevere se me actualiza al guardar pero debo borrar los datos anteriores para que funcione el evento BeforeSave, solo faltaría incluirle que sustituya los datos existentes por los nuevos, para eso le quite el Offset(1, 0) de cada línea al Beforesave pero me sustituye solo los datos de la última línea.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each hoja In ActiveWorkbook.Sheets
    If hoja.Name <> "xresumenx" Then
    Sheets("xresumenx").Range("a65000").End(xlUp).Value = hoja.Range("c3")
    Sheets("xresumenx").Range("b65000").End(xlUp).Value = hoja.Range("c5")
    Sheets("xresumenx").Range("c65000").End(xlUp).Value = hoja.Range("c6")
    Sheets("xresumenx").Range("d65000").End(xlUp).Value = hoja.Range("ab32")
    Sheets("xresumenx").Range("e65000").End(xlUp).Value = hoja.Range("ac32")
    Sheets("xresumenx").Range("f65000").End(xlUp).Value = hoja.Range("an32")
    Sheets("xresumenx").Range("g65000").End(xlUp).Value = hoja.Range("ao32")
    End If
Next
End Sub

Así se encuentra el Beforesave actualemente

Ok, incluyo la línea Sheets("xresumenx"). ClearContents que borrará todos los datos de la hoja resumen antes de empezar la macro.

Si hay datos en la hoja xresumenx que no se pueden borrar, entonces la línea debería especificar el rango a borrar

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("xresumenx").ClearContents
For Each hoja In ActiveWorkbook.Sheets
    If hoja.Name <> "xresumenx" Then
    Sheets("xresumenx").Range("a65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c3")
    Sheets("xresumenx").Range("b65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c5")
    Sheets("xresumenx").Range("c65000").End(xlUp).Offset(1, 0).Value = hoja.Range("c6")
    Sheets("xresumenx").Range("d65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ab32")
    Sheets("xresumenx").Range("e65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ac32")
    Sheets("xresumenx").Range("f65000").End(xlUp).Offset(1, 0).Value = hoja.Range("an32")
    Sheets("xresumenx").Range("g65000").End(xlUp).Offset(1, 0).Value = hoja.Range("ao32")
    End If
Next
End Sub
Respuesta

Tienes que crear un evento change en la hoja/s en los que hayan cambios y quieras que se actualicen los datos:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then RESUMEN ''' SI A1 DE ESTA MISMA HOJA CAMBIA, SE EJECUTA EL MACRO RESUMEN
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
2 respuestas

Buscar la ultima fecha de mantenimiento

Tengo una tabla de excel hoja2 que cuando escribo el numero de activo del equipo en la columna A me busca los datos como el nombre del equipo, marca, serie y modelo. Estos datos provienen de la hoja 1. Lo que quiero hacer es que al digital el activo...
2 respuestas

Promedio de las ultimas 100 celdas con numeros

Tengo en la columna 0Y2:OY146 (celdas en blanco y celdas con numeros necesito calcular el promedio de los ultimos 100 numeros de la columna, si la cantidad fuera inferior a 100 que calcule el promedio de la totalidad de las celdas que contenga numeros.
2 respuestas

Tengo una base de datos en access para cobrar cuotas

En la cual genere formulario que muestra un resumen de las cuotas pagadas ¿Cómo puedo enviar cada formulario por mail?
2 respuestas

Es estrictamente necesario que una aplicación para android e ios se vea diferente

Si una empresa lanza su aplicación en las tiendas para Android y App Store ¿Esta tendría que verse diferente? Ya que he visto aplicaciones de empresas famosas que se ven un poco mejor diseñadas en Iphone ¿Es estrictamente necesario ofrecer una...
2 respuestas

No encuentro como usar bien la función sumar.si

He probado con el sumar. Si, y no encuentro la fórmula para que, en D1, me de la suma de B7:B18, sumada a la D7:D18, mientras que el mes de las celdas A7:A18 sea igual a Marzo. Y que en D2 hiciera lo mismo, pero para el mes de abril. Muchas gracias
1 respuesta

Boot para firmar pdf con firma digital

Tengo que firmar numerosos pdf's con firma digital, ¿Habría alguna manera de automatizar la tarea con un boot? La firma se realizaría siempre en la misma hoja dependiendo del documento, tengo dos tipos de documentos. Ejm: Documento 1 simpre la firma...
4 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

Buscar un valor que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que proviene de una tabla dinámica que se va actualizando por mes y tiene dos características y buscar el valor en diferentes tablas.
Sin respuestas

Buscar un valor en un rango que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que viene de una tabla dinámica con dos características y hay que buscarlo dentro de un rango en diferentes tablas que coincidan con el nombre.
Sin respuestas