Abrir todos los Archivos + Desactivar Filtro + Copiar column

[rayali]

Hola,

Soy nuevo por aquí y aunque ya curtido en programación en varios lenguajes, ésto en los inicios parece que me esta costando.

A ver si alguien me puede ayudar:

Intento Abrir todos los...

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í

 

[galileogali]

showalldata piensa que la hoja esta filtrada, cuando no lo está detiene la macro, entonces, prueba con esto

Hojalaquesea.activate
On error resume Next
ActiveSheet.ShowAllData
On Error Goto 0

 

[rayali]

Muchas Gracias.

Lo pruebo y te comento.

 

[rayali]

No consigo que funcione.

Se me cierra la ventana de la macro y se me queda abierto el primer archivo abierto con la columna a copiar señalada. :?

No entiendo. ¿Que error cometo? ¿Alguien...

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í

 

[galileogali]

No habra alguno de losmlibros Protegidos?

 

[galileogali]

En que línea se detiene?

 

[galileogali]

'FILA = FILA + 1
Cuando queda cargada esta variable?

Otra, todo lo que tenga que ver con maejo de FILAS declaralo como Long y no como Integer

 

[rayali]

Gracias Galileo!

Por partes:

1. No hay ningun libro protegido.

2. Se detiene en la linea en la que intenta hacer el ShowAllData que me has sugerido.

3. He modificado las variables a Long, y 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í

 

[galileogali]

aunque no se elegante cambia esto

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Fichero.Name
por

set wbk = Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Fichero.Name
y reemplaza...

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í

 

[galileogali]

Francamente, la necesidad de destapar el filtro, todavia sigo pensando que es innecesaria, lo que pasa es que esta tan embrollado esto que todo piolin es digno de ser tironeado

 

[rayali]

Necesito quitar el filtro xq cada archivo usa filas distintas y como resumen hay q dejar solamente donde hay datos.

Como se podria copiar todos los datos de la columna sin q haya q quitar el...

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í

 

[galileogali]

Podras subir una archivo con datos simulados, estrictamente reducido a lo mínimo necesario para testear, y agrega el código en el archivo de comando (no hace falta el archivo)

 

[rayali]

Hola Galileo,

El archivo adjunto solamente tiene 9 datos.

Y el código no he conseguido avanzar más que lo que tenía antes.

Gracias

 

[galileogali]

Tenes que revisar los nombres de los archivos y las extensiones correctas.

despues de probado, intenta anular el tema filtros

Sub ABRIR_TODO()

Dim Objeto_Ficheros As Object
Dim...

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í

 

[galileogali]

en esta línea se deslizo un error

wkb por wbk
wbk.ActiveSheet.Range("G:G").Copy Destination:=ThisWorkbook.Worksheets("Hoja1").Cells(FILA, COLUM)

ademas deje H:H, pero vos mandaste el ejemplo...

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í

 

[rayali]

ops... perdon, llevas razon... estoy revisando ;)

En un rato te digo.

 

[galileogali]

Espero que la revision concluya, dentro de la semana, porque despues tendre la AGENDA LLENA (JAJAJAJA)

 

[rayali]

Pues no me copia bien. La misma linea de codigo para copiar qque antes funcionaba ahora no funciona y me he quedado muy extrañado.

 

[galileogali]

vAMOS POR PARTES, AHORA LOS PROBLEMAS ANTERIORES, continúan????
cómo queres que copie?

 

[rayali]

Pero antes copiaba perfectamente.
La idea es copiar de cada archivo la columna G y pegarla en el otro archivo y asi juntar todas las columnas g de los archivos que hay en la carpeta.