Macro limpiear rango segun fecha

[grema90]

Necesito macro para eliminar celdas de una tabla segun mes .

Adjunto archivo

Gracias de antemano

ejemplo.rar

[Antoni]

Hola

Pues ahí te la dejo.

Sub EliminarMes()


If IsDate([J3]) = False Then

   Beep

   Exit Sub

End If


For x1 = 4 To Range("A" & Rows.Count).End(xlUp).Row

   If Month(Range("C" & x1)) = Month([J3]) And _

      Year(Range("C" & x1)) = Year([J3]) Then

      For x2 = Range("A" & Rows.Count).End(xlUp).Row To 4 Step -1

         If Month(Range("C" & x2)) = Month([J3]) And _

            Year(Range("C" & x2)) = Year([J3]) Then

            Range(x1 & ":" & x2).EntireRow.Delete

            Exit Sub

         End If

      Next

   End If

Next

MsgBox "No se han detectado filas con " & Format([J3], "mmm-yy")


End Sub


[/CODE]

Saludos

[grema90]

Muchas gracias.

[Armando Montes]

Opcion:

Sub Macro1()

    Range("C3").AutoFilter

    ActiveSheet.Range("$A$3:$G$1582").AutoFilter Field:=3, Operator:= _

        xlFilterValues, Criteria2:=Array(1, "2/28/2013")

    Range(Range("C4"), Range("C4").End(xlDown)).Select

    Selection.EntireRow.Delete

    Selection.AutoFilter

End Sub

[/CODE]