Eliminar filas a partir de una condición

Algún experto me podría ayudar por favor.
Quiero eliminar todo lo que hay hacia arriba desde la palabra hola y todo lo que hay hacia abajo desde la palabra chao. Es como lo del siguiente ejemplo:
343435
FGDFGDF
DFDFGFD
HOLA
HOLA
HOLA
123456789
2345667
435454
64565645
45645645
4545666
CHAO
CHAO
CHAO
CHAO
3453
SDFDF
3445
FDFF
Deseo eliminar todas las filas que están sobre la palabra HOLA (incluyendo la palabra hola, porque puede aparecer hacia arriba más de una vez) y también eliminar todas las filas que están bajo la palabra CHAO (incluyendo la palabra chao porque igual puede estar más de una vez)
Si lo aplico al ejemplo que te doy solo me debería quedar en la planilla esto:
123456789
2345667
435454
64565645
45645645
4545666
Necesito realizar esto con macro,ya que en un archivo la palabra hola puede estar en la celda A40 por ejemplo, en otro en la A66, en otro en la A100, y así, no es definido, lo mismo pasa cuando aparece la palabra chao.

1 Respuesta

Respuesta
1
Estuve revisando tu pregunta y te dejo el código que funciona. Quedo pendiente de tu éxito.
Saludos
No olvides finalizar y puntuar la pregunta
********
Sub EliminarPorCriterio()
''Creada por FSerrano en 120118 para (xxxxxx) en TodoExpertos.com
'' Conserva los registros encontrados EN LA COLUMNA ACTUAL entre los puntos especificados, eliminando todos los demás registros de la columna actual
'Captura los criterios que determinan el rango a eliminar
A = InputBox("Que valor determina el inicio de la eliminación?", "COMIENZO", "HOLA")
B = InputBox("Qué valor determina el fin de la eliminación?", "FIN", "CHAO")
'Determina si la primera fila esta vacia, en caso contrario inserta una fila
If Cells(1, ActiveCell.Column) <> "" Then
Cells(1, ActiveCell.Column).Cells.Insert (xlDown)
End If
'Aplica los filtros para determinar las filas que limitan el rango a preservar
ActiveSheet.Range(Cells.Address).AutoFilter FIELD:=ActiveCell.Column, Criteria1:="=" & A, Operator:=xlFilterValues
A = ActiveCell.SpecialCells(xlLastCell).Row
ActiveSheet.Range(Cells.Address).AutoFilter FIELD:=ActiveCell.Column, Criteria1:="=" & B, Operator:=xlFilterValues
Cells(ActiveCell.SpecialCells(xlCellTypeLastCell).Row, ActiveCell.Column).Select
B = Selection.End(xlUp).Row
'Quita el filtro
Cells.AutoFilter
'Elimina los registros que no se encuentran dentro del rango a preservar
Range(Cells(1, ActiveCell. Column).Address(False, False) & ":" & Cells(A, ActiveCell. Column).Address(False, False) & "," & Cells(B, ActiveCell. Column).Address(False, False) & ":" & Cells(ActiveCell. SpecialCells(xlLastCell). Row, ActiveCell. Column). Address(False, False)).Delete (xlUp)
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar según valor de celda en excel

Puedo hacer un filtro según el valor que tenga una determinada celda, ej: tengo una base de datos desde B a Z donde D me indica el ciclo, en una hoja y que en la celda AA1 si yo pongo 13 (por ejemplo), me filtre todos los resultados, de ese ciclo si...
1 respuesta

Ordenar por dos criterios

Necesito que me ayuden a construir una macro que dependa de dos criterios, Ordena primero de n.v,,,, luego de la A a la Z,,, sube o baja la información de toda la fila. Yo lo elabore con la grabadora pero a veces no me funciona. Les dejo el código:...
1 respuesta

Ordenar datos desordenados de una TABLA en OTRA

La presente es para agradecer a Dios y felicitarles por su invalorables apoyos en nuestras consultas, lo cual quedamos sumamente agradecidos al respecto. Asimismo es para hacerle la siguiente pregunta: Como haríamos para ordenar una tabla que...
1 respuesta

Macro para Eliminar filas sobrantes después de aplicar filtro

Habitualmente me hacen llegar ficheros excel con mucha información. Normalmente hago un filtro en el que deselecciono lo que me interesa para eliminar manualmente todo lo que queda visible, que es lo que no me interesa. Así consigo dejar solo lo que...
1 respuesta

Buscar y filtrar información de una hoja a otra

Tengo una hoja de excel llena de datos (hoja2), quiero un macro que este en otra hoja de excel (hoja1) y que al introducir una palabra busque en todas las celdas de la hoja2 y filtre las filas que contengan la palabra. En la hoja1 me muestre un...
1 respuesta

Copiar filas a hoja resumen

Necesito una macro o formula que copie las filas rellenas, incluido el formato a partir de la cuarta fila de al menos 30 hojas distintas en una hoja llamada resumen ocupando siempre la primera fila vacía disponible y que se ejecute desde un botón o...
1 respuesta

Macro que busque y me traiga las filas con las coincidencias encontradas

Tengo esa macro funcionando pero me trae solo un resultado no se como hacer para indicarle a la macro que si hay varios resultados con el mismo dato me traiga todas las filas Ejemplo busco "1" y la macro me trae a la fila seleccionada toda la fila...
1 respuesta

Separar filas en excel

Trabajo con hojas de excel muy grandes alrededor de 120.000 filas cada hoja. Muchas filas están repetidas la columna A. Lo que necesito es una macro para que cada vez que se repta la columna A se corten y se peguen los datos en una hoja nueva,...
1 respuesta

Macro Excel filtrar copiar y pegar

Me gustaría pudiera facilitarme una macro que filtre en la hoja1 celda C3, el texto de la celda F6 de la hoja 2, que copie las filas que contengan ese valor y las pegue en la hoja 2 desde la fila 12.
1 respuesta

Autofiltro VBA para Excel

Quisiera saber si me pueden ayudar a agregar el código necesario para hacer un auto filtro basado en "inicia con", este ya esta listo, lo que necesito es que ademas el filtro contemple la cantidad de caracteres en la celda e.g =17, este es el...
1 respuesta