Macro que elimine filas por fechas
Estimado experto quería preguntarte como puedo hacer para eliminar filas de una columna siempre y cuando las fechas son menores al 01/01/08 (las fechas aparecen en este formato). Estaba pensando en algo así pero no funciona, no se como expresar la fecha para que las borre si son menores a la fecha indicada.
Sub FECH()
Range("A1").Select
ActiveCell.Offset(0, 5).Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value < "1 / 1 / 08" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Saludos
ginei
Sub FECH()
Range("A1").Select
ActiveCell.Offset(0, 5).Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value < "1 / 1 / 08" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Saludos
ginei
1 respuesta
Respuesta de paramisolo
1
1º Que formato tienen las celdas donde están las fechas
2º Desde VBA las fechas tienen formato mm/dd/yyyy si no las introduces así en la macro falla, y habría que formatear las fechas.
Para corregir todo esto pasa el valor a una variable y la declaras como Date:
Sub Macro1()
Dim valor As Date
Range("A1").Select
Do While ActiveCell <> ""
valor = ActiveCell.Value
If valor < "01/01/2008" Then 'OJO "01 es mes/ 01 es dia /2008 es el año"
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Sin embargo el formato en celdas debe ser fecha "14/03/2001" dd/mm/yyyy
Prueba y me cuentas.
Si te ha servido puntúa y finaliza la consulta y deja algún comentario. Gracias.
>Un saludo
>Julio
2º Desde VBA las fechas tienen formato mm/dd/yyyy si no las introduces así en la macro falla, y habría que formatear las fechas.
Para corregir todo esto pasa el valor a una variable y la declaras como Date:
Sub Macro1()
Dim valor As Date
Range("A1").Select
Do While ActiveCell <> ""
valor = ActiveCell.Value
If valor < "01/01/2008" Then 'OJO "01 es mes/ 01 es dia /2008 es el año"
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Sin embargo el formato en celdas debe ser fecha "14/03/2001" dd/mm/yyyy
Prueba y me cuentas.
Si te ha servido puntúa y finaliza la consulta y deja algún comentario. Gracias.
>Un saludo
>Julio
Gracias experto :) en mi código programo la fecha mm/dd/yy pero en mis celdas esta como dd/mm/yy pero si lo ejecuta bien y elimina las que yo quiero.
Me ha sido de mucha utilidad aunque aun me faltan varios macros por hacer :) cuidate mucho y otra vez gracias.
Ginei
Me ha sido de mucha utilidad aunque aun me faltan varios macros por hacer :) cuidate mucho y otra vez gracias.
Ginei
