Excel - Filtrar y copiar datos de una hoja a otra usando 2 criterios

   
Vista:

Filtrar y copiar datos de una hoja a otra usando 2 criterios

Publicado por Percy (17 intervenciones) el 17/05/2011 19:07:14
Hola.
Actualmente estoy manejando una macro que selecciona todas las filas de la hoja DATA, cuyo criterio sea ingresado en la celda F2 de la hoja DATA para posteriormente copiarlos bajo la misma estructura en la hoja TRATAMIENTO.

El código que utilizo es el que se encuentra líneas debajo, sin embargo ahora me veo en la necesidad de utilizar dos criterios, vale decir poner un criterio en la Celda F2 y otro en la celda F3 de la hoja DATA para posteriormente seleccionar todas las filas que cumplan con estos dos criterios y copiarlos en la hoja TRATAMIENTO

Por favor, alguien me puede dar una ayuda.

Gracias
**************************************************************

Sub Mac_tratamiento()

'crear filtro en la hoja DATA y selecion
Sheets("DATA").Select
Columns("d:d").Select
Selection.AutoFilter
filtro = Sheets("Tratamiento").Range("f2")
Selection.AutoFilter Field:=1, Criteria1:=filtro

'copiar todos los registros filtrados
Range("b2:v1000").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Tratamiento").Select
Range("b11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
''quitar el autofiltro
Sheets("DATA").Select
Selection.AutoFilter
'regresa a hoja de incidencias
Sheets("Tratamiento").Select
Range("f2").Select
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Filtrar y copiar datos de una hoja a otra usando 2 criterios

Publicado por Armando (126 intervenciones) el 17/05/2011 20:05:20
Necesitas algo asi:
AutoFilter Field:=2, Criteria1:=">=35", Operator:=xlAnd, Criteria2:="<=45"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar