none
Nombres de hojas de excel y mostrar o esconder RRS feed

  • Pregunta

  • Buenas. Tengo en un libro excel una lista de personas en la Hoja1, con la facturación de cada una, y, con el nombre de cada persona de esa lista vertical, actualizo el nombre de cada hoja que corresponde a los datos de facturación de cada persona, para hacer un seguimiento. Pero me encuentro en la tesitura que se me acumulan personas (y por lo tanto hojas) en el libro, y quiero poder esconder las que yo marque desde la lista en Hoja1 como "BAJAS", poniendo un 1 en la celda correspondiente de baja.

    En cada hoja2 y Hoja3 y siguientes: A1 es el valor calculado del nombre en la hoja "lista de personas" y es igual a: =Hoja1!B2, =Hoja1!B3 =Hoja1!B4 y asi seguido hasta completar tantas hojas como nombres tengo en la lista de la Hoja1.

    De momento, cada hoja2 y 3 y succesivas recibe como instrucción:

    Private Sub Worksheet_Activate()
    ActiveSheet.Name = Range("A1").Value
    End Sub

    y la hoja1 que tiene la lista completa de las personas, tiene como instrucción pàra esconder cada hoja marcada:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If [D2] = "1" Then
    Sheets(Hoja2).Visible = True
    Else
    Sheets(Hoja2).Visible = False
    End If
    If [D3] = "1" Then
    Sheets(Hoja3).Visible = True
    Else
    Sheets(Hoja3).Visible = False
    End If
    End Sub

    El problema es que en esta ultima instrucción topo porque no se como poner el nombre actual de cada hoja (que no es Hoja2 o Hoja3 o siguientes ) sino el nombre que le corresponde desde la lista de Hoja1. Evidentemente tengo siempre el error de finalizar/depurar, a cada cambio de estado del nombre y de la baja/alta....!

    Como puedo hacer en esta instruccion, para poner el nombre que tenga realmente cada hoja del libro segun la lista de la primera hoja? 

    No se si me expreso bien.

    Podeis ayudarme?

    Gracias

     


    • Editado Enriqueigl lunes, 6 de mayo de 2019 10:04
    lunes, 6 de mayo de 2019 9:57

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    • Propuesto como respuesta Carlos_Ruiz_M martes, 21 de mayo de 2019 17:40
    lunes, 6 de mayo de 2019 21:33