Excel - Macro para eliminar filas que contengan un valor específico en una celda

Pos: 1.084

Val: 1

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Héctor (1 intervención) el 01/08/2019 17:46:03

Tengo el siguiente archivo (adjunto) en el que intento borrar las filas de la hoja "TRÁNSITOS (LOIN_llenos)" cuyos valores de la columna (D= "Días en tránsito") sean menores a 1080...

Si le aplico lo siguiente:

For Contador1 = 2 To 100

    Sheets("TRÁNSITOS (LOIN_llenos)").Select

    If Sheets("TRÁNSITOS (LOIN_llenos)").Range("D" & (Contador1)) > 1080 Then

        Range("D" & (Contador1)).Select

        Selection.EntireRow.Select

        Selection.Delete Shift:=xlUp

    End If

Next

Al final de la ejecución de la macro, el no elimina todas las filas y deja algunas con valores mayores a 1080... no se si la cantidad de datos de la hoja influye en la efectividad de la macro, pero quisiera saber si a uds se les ocurre alguna macro distinta a la que elaboré para lograr el objetivo o si saben el motivo de que mi macro no elimine todas las filas que debería

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 6

Val: 575

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Hector Madriz (137 intervenciones) el 01/08/2019 20:50:46

Buen dia, prueba esto:

Sub BorrarFilas()

    TotalFilas = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

    Cont = 1

    While TotalFilas >= Cont

          If IsNumeric(Cells(Cont, 1)) And Cells(Cont, 1) >= 1080 Then  'celda a comparar

             ActiveSheet.Cells(Cont, 1).Delete

             TotalFilas = TotalFilas - 1

          Else

             Cont = Cont + 1

          End If

    Wend

End Sub

Saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 6

Val: 575

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Hector Madriz (137 intervenciones) el 01/08/2019 20:59:18

Buen dia, prueba esto:

Sub BorrarFilas()

    TotalFilas = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

    Cont = 1

    While TotalFilas >= Cont

          If IsNumeric(Cells(Cont, 1)) And Cells(Cont, 1) >= 1080 Then  'celda a comparar

             ActiveSheet.Cells(Cont, 1).Delete

             TotalFilas = TotalFilas - 1

          Else

             Cont = Cont + 1

          End If

    Wend

End Sub

Saludos

Valora esta respuesta

Comentar

Pos: 7

Val: 455

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Dirk (166 intervenciones) el 01/08/2019 22:41:51

Hola Hector, a mi me borraba filas demás...... y así me funcionó

For contador1 = 2 To 10

    If IsNumeric(Cells(contador1, 4)) And Cells(contador1, 4) > 1080 Then

        Range("D" & (contador1)).Select

        Selection.EntireRow.Select

        Selection.Delete Shift:=xlUp

        contador1 = contador1 - 1

    End If

Next

Importante restar a la variable contador un valor, sino va a pasar por alto la fila que está a después de la que estás borrando

Salu2

Valora esta respuesta

Comentar

Pos: 6

Val: 575

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Hector Madriz (137 intervenciones) el 01/08/2019 23:12:55

Esta de mas seleccionar la celda y luego eliminarla; simplemente elimina de una vez (el objeto cuenta con el método delete)

Saludos

Valora esta respuesta

Comentar

Pos: 7

Val: 455

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Dirk (166 intervenciones) el 02/08/2019 19:26:41

tienes razón... delete de una vez.... lo importante es decrementar el contador...

Salu2

Valora esta respuesta

Comentar

Pos: 6

Val: 575

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Hector Madriz (137 intervenciones) el 02/08/2019 19:59:08

Puedes mantener el flujo feliz del {FOR} haciéndolo decreciente y el código queda más óptimo.

Sub EliminarFilas()

   For Fila = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1 ' Desde la ultima fila hasta la fila 2

       If IsNumeric(Cells(Fila, 1)) And Cells(Fila, 1) > 1080 Then Cells(Fila, 1).EntireRow.Delete

   Next Fila

End Sub

Saludos

Valora esta respuesta

Comentar

Pos: 7

Val: 455

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Dirk (166 intervenciones) el 02/08/2019 20:25:39

Asi mismo es..... 3 líneas de código... mejor IMPOSIBLE!!!!!!!

Salu2

Valora esta respuesta

Comentar

Pos: 6

Val: 575

Macro para eliminar filas que contengan un valor específico en una celda

Publicado por Hector Madriz (137 intervenciones) el 02/08/2019 01:23:18

Sub EliminarFila()

  For Cont = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row   'Desde la la fila 2 hasta la ultima fila de la hoja

      If IsNumeric(Cells(Cont, 1)) And Cells(Cont, 1) > 1080 Then

         Cells(Cont, 1).EntireRow.Delete   'Elimina la fila

         Cont = Cont - 1

      End If

  Next

End Sub

Valora esta respuesta

Comentar

Mostrar suspenso o la media de las notas

Hacer cuadrante de horarios y que al cambiar un nombre cambien todos