Skip to main content
se añadieron 365 caracteres en el cuerpo
Origen Enlace
Andres
  • 73
  • 1
  • 8

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

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 usando eshaciendo esto:

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

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

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

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

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

pero me tira error de que no coinciden los tipos.

Espero alguien por acá me pueda ayudarEn la última línea la referencia al respectoCodeName no la reconoce.

Saludos!!!

necesito rescatar el CodeName de las hojas de un libro en Excel, usando para ello el nombre de la etiqueta. El código que estoy usando es

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

    MsgBox (Sheets(n).CodeName)
Next
End Sub

pero me tira error de que no coinciden los tipos.

Espero alguien por acá me pueda ayudar al respecto.

Saludos!!!

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.

Origen Enlace
Andres
  • 73
  • 1
  • 8

Rescatar el CodeName en VBA

necesito rescatar el CodeName de las hojas de un libro en Excel, usando para ello el nombre de la etiqueta. El código que estoy usando es

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

    MsgBox (Sheets(n).CodeName)
Next
End Sub

pero me tira error de que no coinciden los tipos.

Espero alguien por acá me pueda ayudar al respecto.

Saludos!!!