¿Cómo conservar el formato de celda al hacer referencia a celdas de otra hoja?
Por lo general, al hacer referencia a otra celda, solo se conserva su valor; sin embargo, en este artículo presento un código VBA que permite mantener tanto el valor como el formato de la celda referenciada, los cuales se actualizarán automáticamente cada vez que cambien en la celda de origen, tal como se muestra en la siguiente captura de pantalla.
Mantener el formato de celda al hacer referencia a otra celda con VBA
Mantener el formato de celda al hacer referencia a otra celda con VBA
Para llevar a cabo esta tarea, solo tiene que ejecutar el siguiente código.
1. Active el libro que está utilizando, pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y, a continuación, haga doble clic en el nombre de la hoja en la que colocará la celda de referencia en el panel Proyecto - ProyectoVBA para mostrar un script en blanco. En este caso, quiero hacer referencia a la celda A1 en la Hoja1. Vea la captura de pantalla:
2. Pegue el siguiente código en el script y, en el código VBA, ajuste la celda única especificada según sus necesidades.
VBA: Mantener el formato y los valores al hacer referencia a otra celda
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End SubNota: A1 es la celda de referencia; B1, en la Hoja 2, es la celda que deseas vincular a la celda de referencia y que debe mantener los valores y el formato de A1 en la Hoja 1.
Entonces, al cambiar los valores o el formato en la celda A1 de la Hoja1, la celda B1 de la Hoja2 se actualizará al hacer doble clic en la celda de referencia.
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos