Problema con codigo

[JuanEchenique]

Buenos días.
Tengo dificultad para crear una macro o codigo, que abra otros libros, pero que reconozca si alguno ya esta abierto, en cuyo caso solo cambie el libro activo, y por ultimo en la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Tengo dificultad para crear una macro o codigo, que abra otros libros...

Hola! Juan
No hay una única forma de andar "abriendo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Fredy Amado]

Buenas noches:
Tengo un problema con un código para pasar datos de excel a una hoja de calculo en google, no copia los datos pero si hace el registro de la hora y la fecha de entrada del dato.

 

[Cacho R]

Fredy:
Tu dificultad no tiene nada que ver con la consulta que originó este hilo.
Así que deberías abrir tu propia consulta y plantear allí el tema.

 

[JuanEchenique]

Hola! Juan
No hay una única forma de andar "abriendo libros"... De modo que deberás mostrarnos la línea de código que lo hace -en tu caso- más...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Sólo para confirmar, Juan: ¿en J2 tienes la path COMPLETA del libro que abres inicialmente, verdad?...

De ser así, lo siguiente puede ayudarte:

Private Sub CommandButton1_Click()...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JuanEchenique]

Sólo para confirmar, Juan: ¿en J2 tienes la path COMPLETA del libro que abres inicialmente, verdad?...

De ser así, lo siguiente puede ayudarte...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Como no comentaste que tienes en J2 voy a esperar que subas al Foro tu archivo de muestra.

 

[JuanEchenique]

Como no comentaste que tienes en J2 voy a esperar que subas al Foro tu archivo de muestra.

Buen día. Tiene razón, no respondí su pregunta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Prueba reemplazando dos cosas:

• Case Dir(iName) <> Mid(iName, 1 + InStrRev(iName, "\"), Len(iName))
• Por: Case LCase(Dir(iName)) <> LCase(Mid(iName, 1 + InStrRev(iName, "\")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JuanEchenique]

Private Function libro_Abierto(iName) As Workbook Dim wb As Workbook, mName$ mName = LCase(Mid(iName, 1 + InStrRev(iName, "\"), Len(iName))) For Each...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Funciona perfecto!!! Genio total!!!

Me alegra que así sea y disculpa que se me "chispoteó" la primera versión sugerida.

P.D.
...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí