Eliminar filas que vengan luego de fila específica
Estimados tengo un excel que se baja desde un programa y tengo que limpiarlo manualmente todo el tiempo. Decidí crear una macro pero dado que no la cantidad de filas y columnas no es siempre la misma me trabe. Necesito borrar todas las filas que le siguen a fila x donde aparece siempre la palabra "TOTAL". Este total aparte siempre en la columna A, solo que en diferentes filas. Entonces, necesito que de esa palabra para abajo, me borre todo.
Respuesta de Dante Amor
1
Te anexo la macro
Sub Eliminar_Filas()
'Por Dante Amor
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Set b = Columns("A").Find("TOTAL", lookat:=xlPart)
If Not b Is Nothing Then
If u >= b.Row + 1 Then
Rows(b.Row + 1 & ":" & u).Delete
MsgBox "Filas eliminadas"
Else
MsgBox "No existen filas a Eliminar"
End If
Else
MsgBox "No se encuentra la palabra Total"
End If
End Sub
