¿Cómo mantener el formato de la celda al hacer referencia a celdas de otra hoja?

Generalmente, la celda solo conserva el valor mientras se hace referencia a otra celda, pero en este artículo presento un código VBA para mantener los valores y el formato de la celda al referenciar otra celda, y los valores y el formato cambian según cambia la celda de referencia como se muestra en la siguiente captura de pantalla.

Mantener el formato de la celda al referenciar otra celda con VBA

Mantener el formato de la celda al referenciar otra celda con VBA

Para realizar esta tarea, solo necesita ejecutar el siguiente código.

1. Active el libro que está utilizando, presione Alt + F11 para activar Microsoft Visual Basic for Application ventana, y haga doble clic en el nombre de la hoja donde colocará la celda de referencia en Project-VBAProject panel para mostrar un script en blanco. En este caso, quiero referirme a la celda A1 en la Hoja1. Ver captura de pantalla:

2. Pegue el siguiente código en el script, y en el código VBA, especifique las referencias de celda según sea necesario.

VBA: Mantener formato y valores al referenciar 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 Sub

Nota: A1 es la celda de referencia, B1 en Hoja 2 es la celda que desea vincular a la celda de referencia y mantener los valores y el formato con A1 en Hoja1.

Luego, cuando cambie los valores o el formato en la celda A1 en Hoja1, la celda B1 en Hoja2 cambiará al hacer doble clic en la celda de referencia.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!