Jump to content

Macros excel – vba 60.- registro control cambios en valores de celdas


José_Santos

Recommended Posts

En este tutorial vemos como crear un control que registre los cambios que se han producido en las celdas de nuestro libro de Excel. Dicho registro se va a completar con la siguiente información: Usuario que ha hecho el cambio en la celda, valor original y valor final de la celda modificada, fecha y hora de la modificación, dirección de la celda modificada y, finalmente, nombre de la hoja a la que pertenece la celda.

Link to comment
Share on other sites

  • 9 months later...

Hola, José_Santos,

Muchas gracias por tu rápida respuesta. Tus vídeos son de gran ayuda y están genial, poco a poco iré viéndolos todos.

He estado revisando el código y no consigo encontrar el error. Al hacerlo correr me sigue dando el error 438 y al darle a depurar me señala la siguiente línea:

With ThisWorkbook("hoja4").Range("A" & Rows.Count).End(xlUp)

Adjunto el archivo sobre el que lo estoy intentando por si le fuera más fácil.

Saludos

Link to comment
Share on other sites

Te pongo el código del With

With ThisWorkbook.Sheets("hoja4").Range("A" & Rows.Count).End(xlUp)
.Offset(1, 0).Value = Environ("UserName")
.Offset(1, 1).Value = Sh.Name
.Offset(1, 2).Value = Replace(Target.Address, "$", "")
.Offset(1, 3).Value = ThisWorkbook.Sheets("hoja1").Cells(1, 1).Value
.Offset(1, 4).Value = Target.Value
.Offset(1, 5).Value = Date
.Offset(1, 6).Value = Time
End With
[/CODE]

Link to comment
Share on other sites

  • 2 weeks later...

Buenas tardes.

Tengo unos problemas con un archivo que estoy realizando y me gustaría que me apoyaras con tus comentarios.

Tengo un archivo que cuenta con 4 hojas:

Datos

Base de datos

Registro

Inicio

Cree varios usuarios, donde 4 usuarios solamente pueden ver la hoja de datos.

Existe el administrador que puede ver todas las hojas.

lo que necesito es que se quede registrado que usuario realizo un cambio en alguna celda y se quede registrado en la hoja de Registro.

tengo una macro que me guarda el registro de alguna modificación pero es el usuario de la computadora y yo quiero de los usuarios que cree.

por otra parte en la hoja de Datos en la columna L "realizó" quisiera que cuando entre un usuario por ejemplo Rosalba a la hora de ingresar su usuario y contraseña y que además realice un cambio en alguna celda en automático se ponga el usuario en la columna L

el usuario administrador es gerardo y la clave es gerardo

hay mas usuarios por ejemplo rosalba y la clave es rosalba otro es Mary y la clave es mary.

ojala me puedan ayudar con esto.

Gracias.

Prueba 15marzo - copia.rar

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



  • Crear macros Excel

  • Posts

    • Gracias, Antoni! No encontraba nada por ahí. Funcionan todas las soluciones, aunque voy a desarrollar sobre esta, es la que he podido entender mejor para adaptarlo a lo mío y de momento genial. Gracias de nuevo!
    • Buenos días; Estoy intentado hacer lo siguiente y corregirme si es que no se puede, adelanto un poco el tema. He adjuntado una macro con dos hojas y sus correspondientes encabezados en la fila 1. -He configurado una macro que borra todos los datos de ambas hojas. -También he creado otra que copia los datos de la primera hoja y los pega a partir de la fila diez creo recordar. Lo que necesito conseguir es copiar los datos de las dos hojas en una variable antes de que los borre y si los he borrado por error con la macro recuperar que pegue los datos que se hayan almacenado en la variable en cada una de las hojas.   Igual lo que se pretende hacer no es posible "de momento"  y si es así me comentáis. Saludos y buen día para todos. MCopiarBorrar.xlsm
    • ¡Hola de nuevo! @GabrielRaigosa, la razón del SI.ERROR(... 1+ CONTARA) es por si el usuario coloca la última fecha (en el ejemplo de la tabla, es el 12/04/2021), donde al ser 100% no habrían fechas por debajo de ésta. Tu opción 2 genera error por este motivo. ¡Bendiciones!
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy