
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
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


0