Macro para copiar valores de fórmula entre libros en celdas vacías

La consulta que se plantea en esta ocasión es crear una macro que permita copiar los valores de las celdas C3 y C4 de un libro denominado Captura de datos a...

...las celdas E4 y J4 respectivamente de otro libro llamado Resumen Mayoreo al pulsar el botón Mayoreo. Además, al tratarse de una macro que se ejecutará a diario, deberá copiar los valores diarios cada vez que se ejecute en las celdas de cada columna correspondientes al día en cuestión.

Para crear nuestra macro, realizamos los siguientes pasos:

Abrimos el libro Captura de datos en donde está nuestro botón denominado Mayoreo

Accedemos al editor VBA mediante Alt+F11

Insertamos un módulo

Copiamos el siguiente código:

Sub copiar()

Workbooks.Open Filename:= _

"C:\Users\5incoaprendices\Desktop\Resumen_Diaro_Transaciones_Mayoreo.xls"

If Range("e4") = 0 Then

Range("e4").Value = Workbooks("Captura_de_datos").Worksheets("Registro").[c3]

Else

Range("e3").End(xlDown).Offset(1, 0).Select

Selection.Value = Workbooks("Captura_de_datos").Worksheets("Registro").[c3]

End If

If Range("j4") = o Then

Range("j4").Value = Workbooks("Captura_de_datos").Worksheets("Registro").[c4]

Else

Range("j3").End(xlDown).Offset(1, 0).Select

Selection.Value = Workbooks("Captura_de_datos").Worksheets("Registro").[c4]

End If

Workbooks("Resumen_Diaro_Transaciones_Mayoreo").Close SaveChanges:=True

End Sub

Cosas a tener en cuenta:

La macro comienza abriendo el documento Resumen Mayoreo en el que ha de copiar los datos, ya que para copiar datos en un libro cerrado habría que utilizar un código más extenso que requiere configurar algunas referencias en el editor. En este caso, el archivo en cuestión se encuentra en el Escritorio del equipo. Por tanto, si se aplica a un archivo en una ruta distinta como por ejemplo el disco F:, habrá que modificar la tercera línea de código.

Se comprueba si las celdas destino E4 y J4 están vacías. Si lo están, se copian los datos y si no, se selecciona la siguiente celda vacía en la que copiarlos.

Por último, se guardan los cambios y se cierra el libro.

Posteriormente, asignamos la macro al botón Mayoreo, haciendo clic con botón derecho sobre el mismo.

Selecionamos Asignar macro...

Seleccionamos la macro que acabamos de crear. En este caso, se denomina copiar.

Hacemos clic en Aceptar.

Hacemos clic en el botón Mayoreo para probar nuestra macro

Comprobamos si ha realizado su cometido abriendo el archivo en cuestión.

Podemos observar, comos los datos se han copiado como valores sin necesidad de utilizar el pegado especial en las celdas E4 y J4.

Volvemos a probar la macro para asegurarnos de que mantiene estos valores y los copia en la siguiente celda libre de ambas columnas.

Podemos observar como la macro ha copiado los valores en las siguientes celdas vacías sin ningún problema.

Si deseas recibir nuestra explicación semanal sobre Excel, no dudes en rellenar el formulario situado en el menú de la derecha.

Redactado en: Excel 2007