Excel - Select copy y page de hoja a otra segun criterio

   
Vista:

Select copy y page de hoja a otra segun criterio

Publicado por Percy (17 intervenciones) el 31/08/2010 08:24:26
Hola programadores; espero puedan ayudarme, la idea que tengo es seleccionar y copiar todas filas que se encuentren en la hoja Data para luego pegarlo en la hoja Incidencias; para esto debemos de tener en cuenta que el criterio de selección (dd/mm/aaaa) se encuentra en la hoja de incidencias ($a$2) y el campo dond debe de seleccionar esta en la hoja Data en la columna B.

Por ejemplo: en la hoja data tengo 5 registros(en realidad son mas);pero si en la hoja incidencias ($a$2) pongo 12/08/2010,se debería de pegar en la hoja incidencias solo las filas para el criterio 12/08/2010 a partir de la celda a5.

DATA.
A B C
1 Item Fecha Incidencia
2 1 12/08/2010 ERROR DATA
3 2 12/08/2010 ERROR SISTEMA
4 3 10/08/2010 ERROR QUERY
5 4 10/08/2010 ERROR SISTEMA

Espero haberme dejado entender.. y muchas gracias por la ayuda.
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

RE:Select copy y page de hoja a otra segun criteri

Publicado por guihe (40 intervenciones) el 31/08/2010 09:40:34
Tienes que habrir el editor de VBA (Alt + F11) y insertar un modulo y pegar el codifo.
Espero que te sirva

Sub Macro1()
'crea un filtro en la hoja DATA y selecio
Sheets("DATA").Select
Columns("B:B").Select
Selection.AutoFilter
filtro = Sheets("Incidencia").Range("A2")
Selection.AutoFilter Field:=1, Criteria1:=filtro
'copia todos los registros filtrados
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Incidencia").Select
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'quita el autofiltro
Sheets("DATA").Select
Selection.AutoFilter
End Sub

guihe
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