Macro para eliminar a partir de cierto criterio

Hola Dam, recurro a ti ya que no se de que forma realizar esta instrucción, tengo en la columna A números ordenados de menor a mayor, me gustaría que a partir de donde contenga una celda el 201 borre a partir de ahi hacia abajo incluyendo toda la fila.

Gracias por tu ayuda y un gran saludo.

1 respuesta

Respuesta
1

Esta sería la macro

Sub borra201()
'por.dam
ufila = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To ufila
    If Cells(i, "A") >= 201 Then
        Range(Cells(i, "A"), Cells(ufila, "A")).EntireRow.Delete
        i = ufila
    End If
Next
End Sub

Saludos.dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas