Filtrar Datos con macros

hola, ?

Mostrar la cita

Tengo 5 Libros de los cuales por default cuentan con hoja1 con 3 columnas. ID-usuario, Nombre y Direccion.
Ahora en la macro junto o consolido todo esto en una sola, pero deseo que se filtre por ID
(al grabar la macro, por defecto toma las celdas predeterminadas)
al hacerlo se filtra con las celdas que se establecieron en la grabacion.
y No logro realizar que se filtre segun los datos generados en en momento

-> podrias exponer 'la macro' ?
-> y... uno que otro 'detalle' que consideres importante...
[de 'esos' que no se alcanzan a 'ver'... desde este lado del mensaje] :))

saludos,
hector.

On 20 feb, 14:28, "Héctor Miguel"
wrote:
Mostrar la cita

hola, ?

> Tengo 5 Libros de los cuales por default cuentan con hoja1 con 3 columnas. ID-usuario, Nombre y Direccion.
> Ahora en la macro junto o consolido todo esto en una sola, pero deseo que se filtre por ID
> (al grabar la macro, por defecto toma las celdas predeterminadas)
> al hacerlo se filtra con las celdas que se establecieron en la grabacion.
> y No logro realizar que se filtre segun los datos generados en en momento

-> podrias exponer 'la macro' ?
-> y... uno que otro 'detalle' que consideres importante...
[de 'esos' que no se alcanzan a 'ver'... desde este lado del mensaje] :))

saludos,
hector.

Hector.

Gracias por estar interesado en esté tema la idea es copiar el
contenido de los archivos 1,2 .n.xls
a un Libro o un solo archivo indistinto como se llamen los
archivos

ChDir "U:\"
Workbooks.OpenText Filename:="U:\1.XLS", Origin:“2, StartRow:=1,
_
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter _
:=False, Tab:=True, Semicolon:=True, Comma:=False,
Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1),
Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9,
1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1),
Array(16, 1), Array(17, 1), Array( _
18, 1)), TrailingMinusNumbers:=True

Cells.Select
Selection.Copy
Windows("Libro1").Activate
ActiveSheet.Paste
Sheets("Hoja1").Select
Windows("1.XLS").Activate
ActiveWindow.Close

'

ChDir "U:\"
Workbooks.OpenText Filename:="U:\2.XLS", Origin:“2, StartRow:=1,
_
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter _
:=False, Tab:=True, Semicolon:=True, Comma:=False,
Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1),
Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9,
1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1),
Array(16, 1), Array(17, 1), Array( _
18, 1)), TrailingMinusNumbers:=True


Cells.Select
Selection.Copy
Windows("Libro1").Activate
ActiveSheet.Paste
Sheets("Hoja2").Select
Windows("2.XLS").Activate
ActiveWindow.Close

hola, ???

Mostrar la cita

... la idea es copiar el contenido de los archivos 1,2 .n.xls a un Libro o un solo archivo indistinto como se llamen los archivos ...

hay algunas 'cosillas' en el codigo expuesto que no me dejan 'aclararme' las ideas :D [p.e.]

1) no veo cual es la necesidad [comentada en tu consulta inicial Y en el asunto del mensaje] de -> 'fitrar' -?-
2) no me queda claro si necesitas abrir LIBROS de excel [*.xls] o archivos de texto [OpenText]
3) tambien haria falta que comentes el contenido de dichos archivos, o porque 'extraes' una-a-una 18 'posiciones' -?-
4) comentas que [por macro] 'consolidas' la informacion en una sola hoja PERO... 'esa' NO es la macro que expusiste -?-

[pregunta]: la macro que expones... te esta funcionando tal-cual esta copiada ?

[probablemente] surgiran algunos otros 'detalles' [de momento]... sigo sin aclararme con alguna idea :-((

comentas [si hubiera] algun otro detalle 'en el tintero' ?
saludos,
hector.

On 20 feb, 23:30, "Héctor Miguel"
wrote:
Mostrar la cita

hola, ???

> ... la idea es copiar el contenido de los archivos 1,2 .n.xls a un Libro o un solo archivo indistinto como se llamen los archivos ...

hay algunas 'cosillas' en el codigo expuesto que no me dejan 'aclararme' las ideas :D [p.e.]

1) no veo cual es la necesidad [comentada en tu consulta inicial Y en el asunto del mensaje] de -> 'fitrar' -?-
2) no me queda claro si necesitas abrir LIBROS de excel [*.xls] o archivos de texto [OpenText]
3) tambien haria falta que comentes el contenido de dichos archivos, o porque 'extraes' una-a-una 18 'posiciones' -?-
4) comentas que [por macro] 'consolidas' la informacion en una sola hoja PERO... 'esa' NO es la macro que expusiste -?-

[pregunta]: la macro que expones... te esta funcionando tal-cual esta copiada ?

[probablemente] surgiran algunos otros 'detalles' [de momento]... sigo sin aclararme con alguna idea :-((

comentas [si hubiera] algun otro detalle 'en el tintero' ?
saludos,
hector.

Efectivamente Hector Está macro funciona y como me indicas no tiene
relacion a la consulta inicial de los "filtros" la idea de está macros
en tener "n" archivos *.xls los cuales su contenido con formato
identico.

18 posiciones o campos son copiados o consolidados a un libro o un
archivo unico Como vez yo debo direccionar y dar nombre de los
archivos...1 2 100 .xls para que realice el "proceso"

Luego de realizar esto vendría el famoso filtro pero aún estoy
pegado con el abrir y copiar los datos de los *.xls a un libro o
archivo excel unico

Gracias por la preocupación y contestar mis consultas.

hola, ???

Mostrar la cita

... funciona... la idea... es tener "n" archivos *.xls los cuales su contenido con formato identico.
18 posiciones o campos son copiados o consolidados a un libro o un archivo unico
Como vez yo debo direccionar y dar nombre de los archivos...1 2 100 .xls para que realice el "proceso"
Luego de realizar esto vendría el famoso filtro pero aun estoy pegado con el abrir y copiar los datos de los *.xls [...]

con los datos 'talco...mo' los expones, lo unico que necesitas es meter tu macro dentro de un bucle For...Next +/- como sigue:

Dim n As Byte
ChDir "u:\"
For n = 1 to 100
Workbooks.OpenText Filename:="u:\" & n & ".xls", Origin:“2, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=True, Comma:=False, Space:=False, _
Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), _
Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1)), _
TrailingMinusNumbers:=True
Cells.Select
Selection.Copy
Windows("libro1").Activate
ActiveSheet.Paste
Sheets("hoja" & n).Select
Windows(n & ".xls").Activate
ActiveWindow.Close
Next

[probablemente] saldran 'detalles' segun cambien las condicones 'reales' versos las exposiciones en las consutas -?-
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.