Jump to content

Comparar fechas!!


Recommended Posts

Que tal!!

Tengo un pequeño problema para filtrar unas fechas de una columna, tengo dos fechas que obtengo de una caja de textos...

Asi las obtengo:

FechaOrigen = Format(Caja1.Text, "mm/dd/yyyy hh:mm")

FechaDestino = Format(Caja2.Text, "mm/dd/yyyy hh:mm")

Fecha1 = CDate(FechaOrigen)

Fecha2 = CDate(FechaDestino)

Teniendo las primeras dos variables de arriba como DATE y las otras dos variables como DOUBLE

Posteriormente tengo este codigo que es donde selcciono la hoja origen y toda la columna de fechas:

Sheets(HojaDescargada).Select 'HojaDescargada es una variable tipo String

Range("C2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.AutoFilter

Es aqui donde obtengo el error

ActiveSheet.Range("$C$2:$C$C").AutoFilter Field:=1, Criteria1:= _ '$C$9698

">=" & Fecha1, Operator:=xlAnd, Criteria2:="<=" & Fecha2

Como a la hoja se le siguen introduciendo datos pense que con $C$C buscaria en todas sin poner un numero entero,

tengo 9698 filas y si lo cambio no me esta filtrando bien, ¿Tengo un problema en mi codigo?

Posteriormente quiero agregar el resultado del filtro a una nueva pestaña y agregue este codigo

Range(Selection, Selection.End(xlToLeft)).Select

Selection.Copy

Sheets(Nombre).Select 'Otro String con nombre de la hoja nueva hecha anteriormente

ActiveSheet.Paste

Sheets(HojaDescargada).Select

Range(Selection, Selection.End(xlToRight)).Select

Application.CutCopyMode = False

Selection.Copy

Sheets(Nombre).Select

Range("C2:CC").Select

ActiveSheet.Paste

Obtuve este codigo de un macro grabada pero quisiera que la variable en rojo ajuste al numero de filas y bueno teniendo eso que filtre mis datos

Link to comment
Share on other sites

Archived

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

×
×
  • Create New...

Important Information

Privacy Policy