Saltar al contenido

Máximos colaboradores

Popular Content

Showing content with the highest reputation on 08/24/24 in all areas

  1. Borrar filas cuando encuentre parámetro

    2 points
    Sub BorrarCobros() With Sheets("Hoja1") Set rango = .Range("A1").CurrentRegion rango.AutoFilter Field:=12, Criteria1:="COBRADA" .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row) _ .SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With End Sub Esta sería la otra variante

  2. Borrar filas cuando encuentre parámetro

    1 point
    Hola a todos, dejo otra más Sub BorrarCobros() With Hoja1 Set rango = .Range("A1").CurrentRegion rango.AutoFilter Field:=12, Criteria1:="COBRADA" .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row) _ .SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With End Sub Suponiendo que los datos los tienes en la Hoja1 (nombre interno)