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.
1 Respuesta
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
