Necesito una Macro que elimine las filas donde en alguna celda aparezca la palabra total
Tengo una hoja de Trabajo, con una fila total que viene con cada cambio de cliente, (un subtotal que solo aparece los valores no se puede desactivar)y necesito recorrerla y que elimine en forma automática dicha fila, no siempre viene en la misma columna.
1 respuesta
Respuesta de Dante Amor
2
Utiliza la siguiente macro
Sub eliminar()
'Por.DAM
Dim fila As New Collection
Set b = Cells.Find("total", lookat:=xlPart)
If Not b Is Nothing Then
ncell = b.Address
Do: fila.Add b.Row
Set b = Cells.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
For i = fila.Count To 1 Step -1
Rows(fila(i)).Delete
Next
End Sub
