Buenas noches compañeros estube tratando de mejorar una reporte en el cual me ayudo Toldeman pero no encuentro la solucion al macro en el cual quiero que en la hoja de ExtraerReporteArticulo poniendo la fecha del dia de hoy supongamos y presioando el boton REPORTE me salga todo un reporte de los clientes que se encuentran en la hoja de ConsolidadoMensual que esten vencidas a la fecha de hoy sus pago

ejemplo si pongo 20/12/2012 y presione reporte me vote en la hoja de ExtraerReporteArticulo todas las deudas con sus respectivos datos que esten vencidas a la fecha que ingrese y no me salgas las que estan despues de esa fecha solo las que estan atrasadas , espero de su ayuda ya que me esta causando muchos dolores de cabeza muchas gracias , ya hay un macro si lo pudieran revidar

Sub reporte()

Dim a As Date

Dim b As Date

Dim aconversion As Double

Dim bconversion As Double

On Error Resume Next

a = Sheet5.Range("D5")

b = Sheet5.Range("D6")

c = Sheet5.Range("D4")

aconversion = a

bconversion = b

uf = Range("C65536").End(xlUp).Row

uf1 = Sheets("ConsolidadoMensualVentaArticulo").Range("C65536").End(xlUp).Row

If Sheets("ExtaerReporteArticulo").Range("C9") = Empty Then

Else

Sheets("ExtaerReporteArticulo").Range("C9:K" & uf).ClearContents

End If

Sheets("ConsolidadoMensualVentaArticulo").Range("C8:K" & uf1).AutoFilter Field:=1, Criteria1:= _

">=" & aconversion, Operator:=xlAnd, Criteria2:="<=" & bconversion, Operator:=xlAutoFilterValues

Sheets("ConsolidadoMensualVentaArticulo").Range("C8:K" & uf1).AutoFilter Field:=2, Criteria1:=c

Sheets("ConsolidadoMensualVentaArticulo").Range("C9:K" & uf1).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("ExtaerReporteArticulo").Range("C65536").End(xlUp).Offset(1, 0)

Sheets("ConsolidadoMensualVentaArticulo").Range("C8:K" & uf).AutoFilter

End Sub

pri.rar

Hola, prueba con esta macro:

Sub Reporte()

Dim Consolidado As Worksheet, Report As Worksheet, Fila As Long

Application.ScreenUpdating = False

Set Consolidado = Sheets("ConsolidadoMensual")

Set Report = Sheets("ExtaerReporteArticulo")

Report.Range("C9:I" & Report.Range("C" & Rows.Count).End(xlUp).Row).Clear

For x = 9 To Consolidado.Range("C" & Rows.Count).End(xlUp).Row

   If Consolidado.Range("F" & x) < Report.Range("D4") Then

      Fila = Fila + 1

      Consolidado.Range("C9:I" & x).Copy Report.Range("C" & Fila + 8)

   End If

Next

End Sub

[/CODE]

Macro Antonio lo e provado pero me sigue botando fechas que pasan el dia q pongo , osea puse 21/12/2012 y le di click a reporte para que corra el macro pero no me arrogo los que estan vencidos ose todas las facturas que estan antes de esa fecha , me arroja tambien las que estan pasando esa fecha

Había algún error en la macro, mis disculpas.

Sub Reporte()


Dim Consolidado As Worksheet, Report As Worksheet, Fila As Long



Application.ScreenUpdating = False



Set Consolidado = Sheets("ConsolidadoMensual")

Set Report = Sheets("ExtaerReporteArticulo")



[COLOR=#0000ff]If Report.Range("C" & Rows.Count).End(xlUp).Row > 8 Then[/COLOR]

   Report.Range("C9:I" & Report.Range("C" & Rows.Count).End(xlUp).Row).Clear

[COLOR=#0000ff]End If[/COLOR]



For x = 9 To Consolidado.Range("C" & Rows.Count).End(xlUp).Row

  [COLOR=#0000cd] If Trim(Consolidado.Range("C" & x)) <> "" Then[/COLOR]

     [COLOR=#0000ff] If CDate(Consolidado.Range("F" & x)) < CDate(Report.Range("D4")) Then[/COLOR]

         Fila = Fila + 1

       [COLOR=#0000ff]  Consolidado.Range("C" & x & ":I" & x).Copy Report.Range("C" & Fila + 8)[/COLOR]

      End If

   [COLOR=#0000ff]End If[/COLOR]

Next



End Sub



[/CODE]

muchas gracias por tu apoyo fue de mucha ayuda , muchas bendiciones y feliz navidad caso resuelto