Beth preguntó cómo copiar el formato de color de una celda externa a una celda en el libro de trabajo actual. Desafortunadamente, no existe una forma intrínseca de hacer esto utilizando las funciones de vinculación de Excel. Sin embargo, puede copiar el formato de un libro a otro utilizando una macro.

Como ejemplo, considere el siguiente código de macro:

Dim lMyColor As Long Workbooks.Open Filename:="C:\mypath\myworkbook.xlsm"

lMyColor = Range("A1").Interior.Color Windows("TargetBook.xlsm").Activate Range("E8").Interior.Color = lMyColor

Este código abre un libro de trabajo (myworkbook.xlsm) y toma el color de relleno de la celda A1. Luego vuelve al libro de trabajo de destino (desde el cual se supone que se está ejecutando este código) y coloca el color de relleno en la celda E8.

Este enfoque funciona muy bien si está copiando el color de relleno de una sola celda a una sola celda. Si, en cambio, desea copiar un rango de celdas o copiar más formato que solo el color de relleno, entonces podría ser mejor servido con este enfoque:

Workbooks.Open Filename:= "C:\mypath\myworkbook.xlsm"

Range("A1:B6").Copy Windows("TargetBook.xlsm").Activate Range("E8").PasteSpecial Paste:=xlPasteFormats, _   Operation:=xlNone, SkipBlanks:=False, _   Transpose:=False

Nuevamente, este código abre el libro de trabajo externo. Luego usa el método .Copy para un rango de celdas (A1: B6). Después de cambiar al libro de trabajo de destino, los formatos de esas celdas se pegan en las celdas que comienzan en E8.

Si decide utilizar un código como este, puede colocarlo en la macro Auto_Open para el libro de trabajo de destino. Por supuesto, debe modificar el código para que haga referencia a la ruta adecuada y los nombres de los libros de trabajo, junto con los rangos de origen y destino deseados.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (11169) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Referencing_External_Cell_Cell_Colors [Hacer referencia a colores de celdas externas].