Macro para filtrar, copiar y pegar
Llevo Días buscando información y nada que doy
He grabado macros luego modifico pero no me dan el resultado del todo
A ver les planteo mi petición
Tengo un libro con 170 filas y casi 100 columnas
Ok
El punto es la col2 es quien lleva la descripción del resto de la información
Ahora
Unas 80 columnas restantes están por decir enlazadas en tríos
Col10 col11 col12 col13 col14 col15
José no 26/12/17 miguel si 26/12/17
Luis si 30/01/18 juan no 02/02/18
juan no 02/02/18 Luis no 30/01/18
Si vemos en la imagen los puntos rojos dicen "NO"
"NO" se han entregado documento para esa tarea
A ver si me ayudan con el código principal y yo lo modifico en las posiciones
Ok lo primero que tenemos q hacer es asegurarnos q no haya ningún filtro activo
Vamos filtrar es una categoría que va enumerada del 1-9 en la col3 podría escogerlo de alguna celda en la hoja4 A1 bien luego
Se filtro por ejemplo categoría "6"
Col10 col11 col12 col13 col14 col15
José no 26/12/17 miguel si 26/12/17
Luis si 30/01/18 juan no 02/02/18
juan no 02/02/18 Luis no 30/01/18
Debemos filtrar la col11 aquí si siempre va a ser un "NO" ya que quiero saber que documento me hace falta
Luego de estos dos filtros seleccionamos el resultado de las siguientes columnas
Col2 'descripción
Col10 'primera tarea
Col12 'fecha de la primera tarea
Copiamos solo esas columnas
Vamos a la hoja 4 limpiamos la columna B, C, D
Pegamos a partir colB
Volvemos a la tabla descartamos lo filtrado y aplicamos solo el segundo filtro para la col 14 obviamente "NO"
Seleccionamos el resultado de las siguientes columnas
Col2 'descripción
Col13 'primera tarea
Col15 'fecha de la primera tarea
Copiamos solo esas columnas
Vamos a la hoja4 limpiamos la columna E, F, G
Pegamos a partir colE
Volvemos a la tabla descartamos lo filtrado
Y así sucesivamente
Cualquier idea es bien recibida
Disculpen tanta escritura pero quería tratar de no dejar dudas en mi idea
Agradezco de antemano solo el hecho haber leído y dedicarme parte de su tiempo
Aquí les dejo el código q grabe pero no es preciso
Sheets("DATOS").Select Rows("1:1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$CN$169").AutoFilter Field:=3, Criteria1:="4" ActiveSheet.Range("$A$1:$CN$169").AutoFilter Field:=12, Criteria1:="NO" Range("B:B,K:K,M:M").Select Range("M1").Activate Sheets("hoja4").Select Selection.ClearContents Sheets("DATOS").Select Selection.Copy Sheets("hoja1").Select Range("B1").Select ActiveSheet.Paste Sheets("DATOS").Select Rows("1:1").Select Selection.AutoFilter End Sub