Filtrar datos de un libro a otro libro

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.

Gracias Héctor
Esto facilita mis búsquedas de obtener las fechas de entregas de trabajos y
emitir las correspondientes facturas y gúias.

Te agradezco infinitamente

Augusto Unten
Arenart SRL

"Héctor Miguel" escribió en el mensaje
news:

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.