1

necesito rescatar el CodeName de las hojas de un libro en Excel, usando para ello el nombre de la etiqueta.

En la hoja Preliminares hay una lista de opciones asociadas a un formulario que el usuario debe completar. Según la opción que elige, los datos ingresados se deben ir a la hoja correspondiente. Y para eso quiero usar el CodeName de la hoja.

Específicamente estoy haciendo esto:

For Each n In Preliminares.Range("A2:A13")

If Inicio.Range("C4") = "n" Then

If Inicio.Range("C8") = "1" Then

    Inicio.Range("B9") = "Descripción 1"
    Inicio.Range("B10") = ""
    Inicio.Range("B11") = ""

    Sheets(n).CodeName.Range("A11") = Inicio.Range("C9")

En la última línea la referencia al CodeName no la reconoce.

4
  • Worksheets(n) ? Commented el 16 may. 2022 a las 4:49
  • también tira error si uso Worksheets: fuera del intervalo.
    – Andres
    Commented el 16 may. 2022 a las 4:51
  • 1
    Tu bucle ahora tiene menos sentido. No está completo. Tampoco tus Ifs, ya que se deberían cerrar con End ifDeberías añadir un ejemplo visual y el output esperado. Codename es una propiedad de solo lectura. No puedes modificarla, solo leerla, así que la línea Sheets(n).CodeName.Range("A11") = Inicio.Range("C9") siempre va a dar error. Además, la variable n por tu bucle está devolviendo un objeto range pero cuando lo usas en Sheets(n) debería ser un integer o un string.
    – Esei
    Commented el 17 may. 2022 a las 23:11
  • Gracias @Esei. Finalmente pude hacer funcionar el código y hace lo que necesito. Tu aclaración de que codename es solo lectura me aclaro el panorama. Muchas gracias por tus respuestas. Me ayudaron muchísimo.
    – Andres
    Commented el 18 may. 2022 a las 3:50

1 respuesta 1

1
Dim wk As Worksheet
For Each wk In ThisWorkbook.Worksheets
    MsgBox wk.CodeName
Next

En tu código estabas haciendo un bucle dentro de Preliminares.Range("A2:A13"), que es un conjunto de celdas, no de hojas...

Suponiendo que PReliminares no sea una hoja sino un Libro, entonces el código que he puesto quedaría algo así:

Dim wk As Worksheet
For Each wk In Preliminares.Worksheets
    MsgBox wk.CodeName
Next
4
  • Hola Esei. Efectivamente Preliminare es una hoja donde tengo la lista de nombres de las hojas del libro, y de allí leo esos nombres. De todas maneras entiendo lo que mencionas, y trataré de usar tu idea en el código que necesito generar. Muchas gracias!!!
    – Andres
    Commented el 17 may. 2022 a las 1:05
  • intenté usar el código pero no tuve un buen resultado. Voy a ser más específico a ver si me puedes guiar: en la hoja Preliminares tengo una lista de opciones (opcion1...). Cada opción tiene una hoja asociada. El usuario tiene que llenar un formulario y elige una opción. Dependiendo de la opción, los datos que completa del formulario se deben ir a la hoja asociada. Quiero indicar eso con la referencia al CodeName. Tengo esto (sigue)
    – Andres
    Commented el 17 may. 2022 a las 11:57
  • finalmente edité la pregunta para poder mostrar con más detalle lo que necesito hacer. Ojalá me puedas ayudar con la última línea. Gracias!!!
    – Andres
    Commented el 17 may. 2022 a las 12:28
  • @Andres te contesto en tu pregunta principal
    – Esei
    Commented el 17 may. 2022 a las 23:08

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.