Macro para cambiar color hoja excel

Estoy en busca de una ayuda

Tengo un libro en la cual

Hoja1 nombrado como OLT

Hoja2 nombrado como PON1

Hoja3 nombrado como PON2

Hoja4 nombrado como PON3

Hoja5 nombrado como PON4

La acción que realice es:

Al seleccionar una celda de mi hoja OLT se lanza a la hoja seleccionada y pinta de color verde la hoja.

Lo que me falta es que al ir a la hoja principal que es OLT las demás hojas se quede sin color osea automático.

Aquí expongo mi código.

1 Respuesta

Respuesta
3

Pon el siguiente código en los eventos de la hoja "OLT"

Private Sub Worksheet_Activate()
  Dim sh As Worksheet
  For Each sh In Sheets
    If sh.Name <> "OLT" Then
      sh.Tab.Color = xlAutomatic
    End If
  Next
End Sub

[Comenta cualquier duda. No olvides la valoración.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas