Eliminar fila con ciertos criterios

[juandabi]

hola, mi ayuda es como hago para eliminar filas que contengan cierta celda en blanco, por ejemplo, tengo una lista en la columna A, esta la ID, en la columna B esta el VALO PAGADO, y en la columna C esta la FECHA DEL PAGO, pero yo todo lo llamo desde otra hoja donde se insertan los datos de un formulario, entonces si en cierta fila el valor pagado es "0", entonces que me elimine toda la fila sin importar que tenga datos en las demas celdas.

el macro de insertar datos esta creado por grabar macros.

muchas gracias.

Libro1.rar

[Armando Montes]

Hola Juan, este codigo borra las filas que esten vacias en la columna C:

Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete[/CODE]

Manualmente seria asi:

1. Seleccionar columna C

2. Oprimir F5

3. Especial

4. Celdas en blanco

5. Borrar filas

[Armando Montes]

Considera la posibilidad de sustituir los codigos qur tienes por uno de estos 2, ambos hacen lo mismo:

Sub ACOSTUMBRADO()

Application.ScreenUpdating = False

    Sheets("Hoja1").Range("A4:A12").Copy Sheets("Hoja2").Range("A2")

    Sheets("Hoja1").Range("G4:H12").Copy Sheets("Hoja2").Range("B2")

    Sheets("Hoja1").Range("A4:A12").Copy Sheets("Hoja2").Range("A11")

    Sheets("Hoja1").Range("I4:J12").Copy Sheets("Hoja2").Range("B11")

    Sheets("Hoja1").Range("A4:A12").Copy Sheets("Hoja2").Range("A20")

    Sheets("Hoja1").Range("K4:L12").Copy Sheets("Hoja2").Range("B20")

    Sheets("Hoja2").Range("A1").CurrentRegion.Sort Key1:=Hoja2.Range("A1"), Order1:=xlAscending, Header:=xlYes

    Sheets("Hoja2").Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Application.ScreenUpdating = True

End Sub

Sub REDUCIDO()

Application.ScreenUpdating = False

    With Hoja1

        .[A4:A12].Copy Hoja2.[A2:A28]

        .[G4:H12].Copy Hoja2.[B2]

        .[I4:J12].Copy Hoja2.[B11]

        .[K4:L12].Copy Hoja2.[B20]

    End With

    Hoja2.[A1].CurrentRegion.Sort Key1:=Hoja2.[A1], Order1:=xlAscending, Header:=xlYes

    Hoja2.Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Application.ScreenUpdating = True

End Sub[/CODE]

[juandabi]

okey muchisisimas gracias los voy a probar y te digo como me fue

[juandabi]

ya lo probe y reemplace todo el codigo del macro, y me sirvio artisisimo muchisimas gracias esta genial

ya se puede cerrar el tema

[Armando Montes]

Adjunto otra version mas complete que copiara los datos de todas las columnas cuyo encabezado sea "valor" sin necesidad de especificar las columnas.

Libro1-999.rar