Máximos colaboradores

Popular Content

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

Borrar filas cuando encuentre parámetro

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
- el 23 de agosto
2 points
Borrar filas cuando encuentre parámetro

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)
- el 23 de agosto
1 point