problema con ejecucion de funcion VBA en excel

[herramienta]

Hola,

al ejecutar la función right de VBA en una macro me aparece el error:

"Error de compilacion:

no se puede encontrar el proyecto en la biblioteca"

Esta macro la estoy añadiendo a un fichero excel de un compañero, que no se como ha creado. Sin embargo la misma macro en un archivo "virgen" si que funciona. Estoy empezando con esto y estoy muy verde, os agradezco cualquier ayuda. Muchas gracias de antemano y saludos.

[opermty]

Podria pegar el codigo donde utilizas el famoso right ... a ciegas no se puede :)

Saludos

[herramienta]

lo pego

cadena = Right("Jose Antonio", 7)
Range("k6").Value = cadena

como digo, el error no es del codigo sino del archivo donde lo utilizo.

Saludos y gracias

[opermty]

Si puedes ver el codigo del libro ...se me hace raro ese comportamiento.

Como lo intentas agregar y en que modulo del codigo

[herramienta]

donde veo el codigo del libro? te refieres al código entero?

[opermty]

Asi es .. presionas ALT + F11 para entrar al codigo de VBA

Saludos

Iniciado por herramienta

donde veo el codigo del libro? te refieres al código entero?

[herramienta]

Ok este es el codigo

Private Sub CargaCfg_Click()
'abre un archivo "cfg" y copia los valores que tiene en las celdas adecuadas de la hoja cfg de "prueba.xls"

Dim barra As String
Dim cadena As String
Dim posicion As String
Dim numerocaracteresdirectorio As String
Dim totalcaracteres As String
Dim nombrearchivo As String
Dim longitudlinea As String

Dim aux As String

barra = "\"
igual = "="
numerocaracteresdirectorio = Len(Range("[prueba.xls]cfg!d41").Value) 'valor de la ruta del directorio de trabajo
Close #1
Open Range("[prueba.xls]cfg!d41") + "\" + Range("[prueba.xls]cfg!e42") + ".cfg" For Input As #1 'abrimos el archivo de configuracion como lectura de texto
Line Input #1, cadena 'leemos la cabecera
Line Input #1, cadena 'leemos la 2ª linea (vacia)

Line Input #1, cadena 'leemos la linea que contiene la ruta del archivo DFQL
longitudlinea = Len(cadena) 'longitud del la linea
posicion = InStrRev(cadena, barra) 'vemos desde donde coger el nombre del fichero
nombrearchivo = Right(cadena, posicion - numerocaracteresdirectorio)
Range("[prueba.xls]cfg!e33").Value = nombrearchivo 'pegamos la celda del archivo DFQL


hasta ahi funciona, lo he comprobado, pero el Rigth famoso no funciona. El codigo está en una de las páginas donde si persionas un boton, se ejecuta el código, no tiene más. Si rehago el código con la misma función en un archivo "virgen" funciona. Por eso no entiendo que es, debe ser del archivo original sobre el que añado este código. Ayuda por favor!!!

[David]

Una vez me pasó algo parecido con un código en excel.
Y no encontré otra solución que copiar el contenido a un Libro en blanco .
Pero quizás debes asegurarte de que no haya ninguna otra declaración con nombre 'Right' en alguna parte de la macro...

[herramienta]

Gracias David el Grande, la solucion "a pelo" queria descartarla hasta el final, cuando no quede más remedio pero se que funcionara.
¿lo que dices si en el libro hay otra right no deberia decir visualbasic que no se puede utilizar porque está reservada?

[David]

Iniciado por herramienta

Gracias David el Grande, la solucion "a pelo" queria descartarla hasta el final, cuando no quede más remedio pero se que funcionara.
¿lo que dices si en el libro hay otra right no deberia decir visualbasic que no se puede utilizar porque está reservada?

No, no dice que está reservada, pero en caso de que existiera otro 'Right' el error sería otro...

[herramienta]

¿Pero otro right no seria la misma funcion qu ya existe en VBA?

[David]

Iniciado por herramienta

¿Pero otro right no seria la misma funcion qu ya existe en VBA?

Me refería a otra declaración Right, por ejemplo:

Código:

 
Public Right As String

[herramienta]

ok david, no hay ninguna aparte de los Right que he puesto yo. Gracias de nuevo por la rapidez de respuestas

[David]

Iniciado por herramienta

ok david, no hay ninguna aparte de los Right que he puesto yo. Gracias de nuevo por la rapidez de respuestas

Otra opción sería intentar usar otras funciones de texto como: Len, Left, Mid para ver si dan el mismo problema... o hasta reemplazar los Right por Mid si quieres conservar el original a toda costa

[herramienta]

Left no funciona, Len si, es raro no?

[David]

Iniciado por herramienta

Left no funciona, Len si, es raro no?

Quizás esté faltando alguna referencia (Menú -> Herramientas -> Referencias). Intenta compararlas con las de un Libro en blanco.
O como te dije reemplaza los Right por Mid.

[herramienta]

David, eres un hacha, tenia referencias de más. He quitado las que sobraban y funciona, espero que por lo menos no salgan otros errores ahora. Gracias.