Jump to content

Borrar filas segun 2 criterios

Posted

Hola a todos de nuevo.

Siento ser tan pesado y solo espero que pronto pueda ofrecer mi ayuda como ahora me la estais ofreciendo a mi.

En esta ocasion necesito borrar filas teniendo en cuenta 2 condiciones,en el archivo que adjunto os lo explico bien

Gracias a todos por vuestro trabajo

prueba.xls

Featured Replies

Hola, 

Sub BorradoFechaCoincidente()

    Dim Fecha As Date:  Fecha = "01/01/1990  0:00:00"

    Dim ListaLimpia As Boolean: ListaLimpia = False

    Do While ListaLimpia = False

        ListaLimpia = True

        For Each fila In ActiveSheet.UsedRange.Rows

            If Cells(fila.Row, 12) = Fecha And Cells(fila.Row, 13) = Fecha Then

                fila.Delete

                ListaLimpia = False

            End If

        Next

    Loop

End Sub[/CODE]

Saludos.

  • Author

Muchisimas gracias verzulan

Si supiera como hacerlo daria el tema como finalizado

Gracias a todos

Archived

This topic is now archived and is closed to further replies.

Go to topic listing