-
103 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
-
1. ¿Te parecen útiles los tips de las funciones?
-
Sí
-
No
-
Ni me he fijado en ellos
-
- Por favor conéctate o regístrate para votar en esta encuesta.
- Ver tema
-
-
Ayúdanos a mejorar la comunidad
-
Mantenimiento de la comunidad
Objetivo: 130.00 EUR
-
-
Archivos
-
-
Estadísticas de descargas
-
Mensajes
-
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
-
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)
-
Pues tienes toda la razón, @Israel Cassales tu propuesta y la @Antoni son las correctas. Escribí el código sin pensar en ese detalle. Saludos
-
Otra más: Sub BORRAR_COBRADAS() Dim i As Long For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Range("L" & i) = "COBRADA" Then Rows(i).Delete End If Next End Sub
-
Por Israel Cassales · publicado
Saludos totales, Maestro @JasallBcn yo participaría variando en dos cosas, buscaría hasta la ultima fila con datos para hacer la eliminación de abajo hacia arriba, porque creo que si eliminas las filas de arriba hacia abajo, habría la posibilidad de saltarte algunas filas, porque las filas se reordenan cada vez que eliminas una ¿Qué opina? Sub BORRAR_COBRADAS() Dim i As Long Dim lastRow As Long lastRow = Cells(Rows.Count, "L").End(xlUp).Row For i = lastRow To 2 Step -1 ' Recorre de abajo hacia arriba If Range("FACTURAS!L" & i).Value = "COBRADA" Then Rows(i).EntireRow.Delete End If Next i End Sub
-
-
Visualizado recientemente
- No hay usuarios registrado para ver esta página.
Recommended Posts
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.