Filtrar datos de un libro a otro libro

09/01/2007 - 14:38 por auntent | Informe spam
Feliz año amigos del foro
Tengo el siguiente problema... Tengo un libro de ordenes de trabajo y dos de
los campos son la fecha de entrega del mismo y la hora... necesito filtrar
en otro libro por medio de una macro todas las ordenes de trabajo cuya fecha
de entrega coincida con la fecha ingresada en una celda del nuevo libro.
Agradeceré una ayuda. Gracias

ARENART S.R.L.
Augusto Unten T.
Gerencia de Operaciones
Bartolomé Herrera 451 - Lima 14 - PERU
Teléfono: (511)265-7878
Nextel: (511)819*6022
Celular: (511)9819-6022
E-mail: aunten@arenart.com / operaciones@arenart.com
website: http://www.arenart.com
 

Leer las respuestas

#1 Héctor Miguel
10/01/2007 - 06:08 | Informe spam
hola, Augusto !

Tengo un libro de ordenes de trabajo y dos de los campos son la fecha de entrega del mismo y la hora...
necesito filtrar en otro libro por medio de una macro todas las ordenes de trabajo cuya fecha de entrega
coincida con la fecha ingresada en una celda del nuevo libro.



usa los filtros avanzados indicando rutas completas [libro hoja y rangos] donde se encuentran 'los datos' que necesitas
[p.e.] si suponemos que en tu libro de ordenes los datos entan en la hoja1 y en el rango 'A1:F50' [incluyendo los titulos]
y suponemos que en tu nuevo libro, en la hoja1 pones en [A1] el mismo titulo de la fecha de entrega y en [A2} 'la fecha'...
podras obtener el listado 'filtrado' [p.e.] en el rango [A4:F4] los titulos y en seguida los datos coincidentes...

ejemplo de macro en un modulo de codigo general en tu libro nuevo:

Workbooks("ordenes de trabajo").Worksheets("hoja1").Range("a1:f50").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=ThisWorkbook.Worksheets("hoja1").Range("a1:a2"), _
CopyToRange:=ThisWokbook.Worksheets("hoja1").Range("a4:f4"), _
Unique:=False

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

Preguntas similares