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

1 respuesta

Respuesta
2

Ordena todo bien, una cosa debajo de otra, no en columnas de tres, solo te estás complicando la vida, solo agregas una columna auxiliar en donde pongas el tipo de escalera y ya

¡Gracias! por leer pero lastimosamente ya la tabla funciona así para otra macro

mi interés es saber lo que tengo pendiente

y si, lo se me estoy complicando aunque a veces es bueno

gracias en verdad

saludos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas