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) ? el 16 may. 2022 a las 4:49
  • también tira error si uso Worksheets: fuera del intervalo.
    – Andres
    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
    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
    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
    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
    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
    el 17 may. 2022 a las 12:28
  • @Andres te contesto en tu pregunta principal
    – Esei
    el 17 may. 2022 a las 23:08

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

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