¿Cómo cambiar el color de la pestaña de la hoja según el valor de una celda?

Normalmente, puedes cambiar fácilmente y rápidamente el color de la pestaña en Excel, pero, ¿has intentado alguna vez cambiar el color de la pestaña basándote en el valor de una celda en una hoja de cálculo? Si estás interesado en esta tarea, te hablaré de algunos códigos para que puedas colorear la pestaña de la hoja basándote en un valor específico de una celda en Excel.

Cambiar el color de una pestaña de hoja basándose en el valor de una celda con código VBA

Cambiar varias pestañas de hojas basándose en el valor de una celda con código VBA

Cambiar el color de una pestaña de hoja basándose en el valor de una celda con código VBA

Por ejemplo, quiero que el color de la pestaña de la hoja actual sea verde si el valor de la celda A1 es el texto “VERDADERO”, el color de la pestaña será rojo si el texto en A1 es “FALSO”, y el color de la pestaña será azul si el valor en la celda A1 es cualquier otro texto, como se muestra en la siguiente captura de pantalla:

1. Haz clic derecho en la pestaña de la hoja que deseas cambiar de color basándote en los datos de la celda A1, y luego selecciona Ver Código desde el menú contextual.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Cambiar el color de una pestaña de hoja basándose en el valor de una celda:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

Nota: En el código anterior, A1 es la referencia de celda en la que deseas basar el color de la pestaña, “VERDADERO” y “FALSO” son los textos que necesitas; puedes cambiarlos según tus necesidades, y también puedes cambiar el color en el código según lo necesites.

3. Luego guarda y cierra esta ventana de código. Ahora, cuando ingreses el texto “VERDADERO” en la celda A1, el color de la pestaña actual se volverá verde, y cuando ingreses el texto “FALSO” en la celda A1, el color de la pestaña se volverá rojo, y si se ingresa otro texto en la celda A1, el color de la pestaña se volverá automáticamente azul.

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!

Cambiar varias pestañas de hojas basándose en el valor de una celda con código VBA

Si necesitas cambiar el color de varias pestañas de hojas basándote en un valor de celda, aquí hay un código que puede ayudarte; por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones; en la ventana abierta, haz doble clic en ThisWorkbook bajo la sección VBAProject, luego copia y pega el siguiente código en el Módulo en blanco.

Código VBA: Cambiar varias pestañas de hojas basándose en el valor de una celda:

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Updateby Extendoffice 20160930
  Select Case Sheets("Master").Range("A1").Value
         Case "KTE"
             Sheets("Sheet1").Tab.Color = vbRed
         Case "KTO"
             Sheets("Sheet2").Tab.Color = vbGreen
         Case "KTW"
             Sheets("Sheet3").Tab.Color = vbBlue
         End Select
End Sub

Nota: En el código anterior, A1 y Master son la celda y la hoja de trabajo en las que deseas basar el color de la pestaña; Sheet1, Sheet2, Sheet3 son las hojas de trabajo cuyas pestañas deseas colorear. KTE, KTW, KTO son los valores de celda en A1 en los que deseas basar el color de las pestañas; puedes cambiar las referencias y los colores en el código según lo necesites.

2. Luego guarda y cierra esta ventana de código. Ahora, cuando ingreses el texto KTE en la celda A1 de la hoja Master, la pestaña Sheet1 se coloreará en rojo; cuando ingreses KTO en la celda A1, la hoja Sheet2 se coloreará en verde, y cuando ingreses KTW en la celda A1, la hoja Sheet3 se coloreará en azul, ver captura de pantalla: