0

Tengo la siguiente función que debe eliminar todos las filas de la columna "A" que tengan el valor 5. Pero al momento de ejecutar no me elimina ninguna fila que tenga el valor 5.

    Sub Borrar()
    Dim Fila As Long
    
    For Fila = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(Fila, 1)) = 5 Then Cells(Fila, 1).EntireRow.Delete
    Next Fila
   End Sub

Estos son los datos en el excel introducir la descripción de la imagen aquí

4
  • 1
    Y el problema cual es?
    – gbianchi
    Commented el 23 nov. 2020 a las 13:49
  • perdón, ya lo corregí, me olvidé poner cual era el problema Commented el 23 nov. 2020 a las 14:25
  • 1
    Claro, no estas comparando el valor de la celda, estas haciendo un count....
    – gbianchi
    Commented el 23 nov. 2020 a las 15:21
  • Gracias por la ayuda, ahora si ya me elimina los valores 5 ;) Commented el 23 nov. 2020 a las 21:28

1 respuesta 1

1

Cuando lo que quieres borrar es siempre lo mismo, esta opción es mucho más rápida:

Option Explicit
Sub Borrar()
    
    With ThisWorkbook.Sheets("Nombrehoja")
        .UsedRange.AutoFilter 1, 5
        If .Cells(.Rows.Count, 1).End(xlUp).Row > 1 Then
            .Range("A2:A" & .Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End If
        .AutoFilterMode = False
    End With

End Sub

filtras la columna en cuestión por el valor a borrar, compruebas que haya datos a partir de la fila 2 (si es que tus encabezados están en la 1) y borras de golpe todas las filas que contienen el 5.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.