Problema MACROS

hola, Jon !

he mirado y he instalado todo, no queda nada por instalar, y nada.
El mensaje que me sale dice: Error de compilacion No se encuentra proyecto o biblioteca
y en la linea que falla, lo unico que hay es una variable que coge valor: a=Sheets("MAIN").Cells(i+1,1).Value [...]

1) si VBA te esta 'avisando' que no encuentra una biblioteca... [puedes 'creerle'] -> no encuentra una biblioteca ;)

2) revisa en el proyecto de vba, dentro de [menu] herramientas / referencias...
por alguna que este indicada como: FALTA: [o MISSING:]

3) [probablemente] 'algo' de lo que estaba instalado antes, no se instalo despues de dar formato al HD -?-

4) [seguramente] mantener una referencia a una biblioteca inexistente [o no instalada]...
esta creando conflictos con otras bibliotecas 'estandar' [ya que las fallas ocurren en llamadas a funciones 'nativas']
sobre todo, si mencionas controles como un 'commondialog' que [hasta donde se] vienen de VB [stand-aone] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Hola Hector,
efectivamente, he mirado y FALTA lo del CommonDialog que está marcado con un
tick como que lo estoy usando. No sabía que esto existía (siempre se aprende
algo nuevo jeje).
Por tanto me faltta por instalar eso y hace que el error me esté dando en
otra linea de codigo que no tiene nada que ver verdad?
Luego, por lo que comentas parece que esta Libreria no viene con Excel,
verdad? Como la puedo conseguir? Como la habría instalado ya que no me
acuerdo? Igual en su momento instalé C++ o algun programa similar que hiciera
que estuviera disponible? no se...
Espero que podamos ver como lo puedo volver a instalar...
Muchas gracias de nuevo.

"Héctor Miguel" wrote:

hola, Jon !

> he mirado y he instalado todo, no queda nada por instalar, y nada.
> El mensaje que me sale dice: Error de compilacion No se encuentra proyecto o biblioteca
> y en la linea que falla, lo unico que hay es una variable que coge valor: a=Sheets("MAIN").Cells(i+1,1).Value [...]

1) si VBA te esta 'avisando' que no encuentra una biblioteca... [puedes 'creerle'] -> no encuentra una biblioteca ;)

2) revisa en el proyecto de vba, dentro de [menu] herramientas / referencias...
por alguna que este indicada como: FALTA: [o MISSING:]

3) [probablemente] 'algo' de lo que estaba instalado antes, no se instalo despues de dar formato al HD -?-

4) [seguramente] mantener una referencia a una biblioteca inexistente [o no instalada]...
esta creando conflictos con otras bibliotecas 'estandar' [ya que las fallas ocurren en llamadas a funciones 'nativas']
sobre todo, si mencionas controles como un 'commondialog' que [hasta donde se] vienen de VB [stand-aone] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

hola, Jon !

efectivamente, he mirado y FALTA lo del CommonDialog que esta marcado con un tick como que lo estoy usando...
Por tanto me faltta por instalar eso y...por lo que comentas parece que esta Libreria no viene con Excel, verdad?
Como la puedo conseguir? Como la habria instalado ya que no me acuerdo?
Igual en su momento instale C++ o algun programa similar que hiciera que estuviera disponible? no se...

sobre todo, si mencionas controles como un 'commondialog' que [hasta donde se] vienen de VB [stand-aone] -?-

[pues]... si no estaba instalado VisualBasic [full/stand-alone], supongo que SI lo estaba C++ ;)
o... tenias instalada la version 'developer' de office 2000 ? [me parece que fue la unica/ultima] que proveia 'commoncontrols' :-(

o sea... o vuelves a intalar 'lo que tenias'... o te cambias de control [p.e.] al metodo Application.GetSaveAsFieName
[p.e.] prueba con algo +/- como lo siguiente:

Dim GuardarComo
Inicio:
GuardarComo = Application.GetSaveAsFilename
If GuardarComo = False Then
MsgBox "operacion cancelada por el usuario..."
Exit Sub
End If
If Dir(GuardarComo) <> "" Then
MsgBox "El nombre seleccionado ya existe..."
GoTo Inicio
End If

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola [de nuevo], Jon !

si lo que buscas es para abrir archivos [no para guardar como...] :D
prueba con el otro metodo:

Sub Abrir_mis_archivos()
Dim Este_archivo As String
Este_archivo = Application.GetOpenFilename("Mis archivos (*.xyz), *.xyz", , "Mi aplicación")
If Este_archivo = False Then MsgBox "Operacion cancelada !!!": Exit Sub
MsgBox Este_archivo & vbCr & "es el que se ""abre por codigo"" [si quieres o validas]"
End Sub

saludos,
hector.

Hola Hector,
he cambiado el codigo para hacerlo de esta forma, olvidandome del
CommonDialog. Lo he probado y va bien (en el trabajo) el problema lo tengo
luego en casa, pero imagino que con estpo ya no me dará problemas.
Aunque es malo trabajar en casa hay veces que se hace necesario y quería
saber que podía estar haciendo mal. Esta noche lo pruebo en casa y ya te
comento que tal me ha ido.
Muchas gracias por todo.

"Héctor Miguel" wrote:

hola [de nuevo], Jon !

si lo que buscas es para abrir archivos [no para guardar como...] :D
prueba con el otro metodo:

Sub Abrir_mis_archivos()
Dim Este_archivo As String
Este_archivo = Application.GetOpenFilename("Mis archivos (*.xyz), *.xyz", , "Mi aplicación")
If Este_archivo = False Then MsgBox "Operacion cancelada !!!": Exit Sub
MsgBox Este_archivo & vbCr & "es el que se ""abre por codigo"" [si quieres o validas]"
End Sub

saludos,
hector.