Saltar al contenido

Borrar filas segun 2 criterios

publicado

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

publicado

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.

publicado
  • Autor

Muchisimas gracias verzulan

Si supiera como hacerlo daria el tema como finalizado

Gracias a todos

publicado

De nada,

Creo que me mola mas verzulan que verzulsan xD

Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.