Limpiar contenido de filas y ordenarlas

Hola elsamatilde, he visto que tus respuestas siempre son muy buenas y espero puedas ayudarme, soy bastante nuevo en esto de las macros y en alguna ocasion vi una de tus respuestas en la que ayudabas a eliminar el contenido de dilas que contenian una palabra en especifico en alguna celda...
esta es la macro que he grabado:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 22/08/2009 by front2
'
'
    Selection.AutoFilter
    Selection.AutoFilter Field:=10, Criteria1:="="
    Rows("2:130").Select
    Selection.ClearContents
    Range("J2").Select
    Selection.AutoFilter Field:=10, Criteria1:="FULL TIME"
    Rows("120:126").Select
    Selection.ClearContents
    Range("J1").Select
    Selection.AutoFilter Field:=10, Criteria1:="<>"
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow =...

1 Respuesta

Respuesta
1
¿Es necesaria una macro? Porque esto lo podés hacer filtrando tu tabla por el criterio Full..., y luego seleccioná las filas resultantes (desde su encabezado) y borrá los valores con SUPR.
Al quitar el filtro te quedarán las filas vacías.
También podés eliminar las filas con este me´todo. Confirmame si es lo que estás necesitando o si querés una macro.
gracias elsamatilde, de hecho, eso es lo que hago, solo trataba de hacer  ver mi trabajo algo "mejor"
te lo agradezco de cualquier manera, aun asi si pudieras darme por alli el dato estaria excelente!!!
si decides hacerlo puedes mandarme el tip a [email protected]...
gracias!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar, copiar y pegar filas en otra hoja.

No tengo mucha experiencia con macros y tengo el siguiente ejercicio: Debo tomar las filas que cumplan 3 criterios a la vez (por ejemplo C3="Y" AND F3>=60% AND K3="Active") y copiarlas a otra hoja (hoja2) donde deben quedar ordenadas por otro...
1 respuesta

¿Cuál es el ritmo?

Me estoy preparando para un duatlon el 4 de agosto, entreno atletismo un día, y el otro ciclismo, a veces ambos, voy al gimnasio 3 veces semanales, uso un pulsómetro, pero no se cual debe ser el porcentaje de pulsaciones el día de la carrera. Tengo...
1 respuesta

Macro Filtro copiar pegar

Estoy trabajando con una macro, que una de sus funciones debe hacer lo siguiente: En la hoja 1 tengo una tabla con autofiltros, y en la hoja dos tengo que pegar los valores que levanto el filtro. El tema es que cuando lo hago con record macro, las...
1 respuesta

¿Cómo crear una tabla resumen clasificada de acuerdo a valor de una celda?

Tengo un archivo de excel conformado por varias hojas, en cada una de las hojas un resumen de gastos mensual que esta ordenado por fecha y esta compuesto de varios datos En la primera columna esta un código de clasificación (importante) y en las...
1 respuesta

Macro para filtrar

Necesito necesito crear una macro que me filtre la columna b de todas las hojas de calculo que tengo en el achivo, que son 10. Yo cree una pero no me funciona bien, a veces filtra pero a veces no. Necesito que filtre y que use el criterio para...
1 respuesta

¿Cuál es el código para borrar las filas visibles después de aplicar un filtro?

Los expertos! Tengo una base de datos donde necesito aplico diversos filtros para depurar y limpiar dicha base, normalmente lo hago todo de forma manual, pero desde hace un tiempo para aca la base se ha echo mas grande y por tal motivo decidí crear...
1 respuesta

Como inserto más de 2 filtros con OR

Me pueden ayudar con este problema: tengo una BDD en excel y necesito filtrar 3 valores diferentes de una columna con una macro que aparte hace otras cosas, ¿Cómo puedo alterar la instrucción? Ya lo intente así pero me marca error:...
2 respuestas

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta