Necesito codigo VB

hola, Engel !

... codigo VB que me haga lo siguiente:
... hoja con varias columnas dos... reflejan la fecha de baja (columna F) y fecha de alta (columna G) de cada persona.
... desearia un codigo que me permitiera previa peticion de la fecha saber quienes estan de baja en una fecha determinada.

-> es algo que no se pueda 'resolver' por medio de los autofiltros ?
-> las fechas son [realmente] datos-fecha ? [o se trata de textos que representan 'sus fechas'] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

On Sat, 25 Feb 2006 04:10:55 -0600, "Héctor Miguel"
wrote:

hola, Engel !

... codigo VB que me haga lo siguiente:
... hoja con varias columnas dos... reflejan la fecha de baja (columna F) y fecha de alta (columna G) de cada persona.
... desearia un codigo que me permitiera previa peticion de la fecha saber quienes estan de baja en una fecha determinada.

-> es algo que no se pueda 'resolver' por medio de los autofiltros ?
-> las fechas son [realmente] datos-fecha ? [o se trata de textos que representan 'sus fechas'] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Hola Hector,

Por medio de autofiltros?, pues pienso que si, aunque al ser una hoja
que actualmente tiene 2895 lineas y en la linea 1 aparecen fechas
correspondientes al año 2001, asi que con el autofiltro, para ver los
que estan de baja por ejemplo el dia 1-01-06 tengo que recorrer un
monton de filas hasta dar con uno que tenga esa fecha, asi que habia
pensado en codigo VB donde me saltara una ventanita pidendo la fecha
que quiero ver y luego ver los resultados de la busqueda, por eso pedi
la ayuda de codigo.

En cuano las columnas que contienen tanto la fecha de baja como la de
alta son columnas con formato de celda = fecha

Saludos,
Engel

hola, Engel !

... al ser una hoja que actualmente tiene 2895 lineas y en la linea 1 aparecen fechas correspondientes al año 2001
... con el autofiltro, para ver los que estan de baja por ejemplo el dia 1-01-06 tengo que recorrer un monton de filas
... habia pensado en codigo VB donde me saltara una ventanita pidendo la fecha que quiero ver y luego ver los resultados
... las columnas que contienen tanto la fecha de baja como la de alta son columnas con formato de celda = fecha

op1: con los autofiltros puedes 'avanzar' rapidamente NO -solo- de uno en uno, sino desplazando la barra ;)

op2: si es el caso que en las 2895 lineas tienes mas de 1000 fechas con bajas... SOLO podras 'ver' 1000 [en el listado] :-(
tendrias que usar la opcion de 'personalizar' e introducir la fecha 'solicitada' -> en el mismo formato que el listado :))

op3: prueba con algun codigo +/- como el siguiente [suponiendo que SOLO necesitas filtrar la columna 'F']...
Sub Filtrar_Fecha()
Dim FechaX, Fecha As Date
FechaX = InputBox("Indica la fecha de busqueda..." & vbCr & _
"usa el ejemplo para la fecha de hoy: " & Date, "Bajas...")
If FechaX = "" Then Exit Sub Else Fecha = CLng(CDate(FechaX))
With [f1]
If .AutoFilter Then .AutoFilter
.AutoFilter Field:=1, Criteria1:=Fecha
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

On Sun, 26 Feb 2006 02:27:23 -0600, "Héctor Miguel"
wrote:

hola, Engel !

... al ser una hoja que actualmente tiene 2895 lineas y en la linea 1 aparecen fechas correspondientes al año 2001
... con el autofiltro, para ver los que estan de baja por ejemplo el dia 1-01-06 tengo que recorrer un monton de filas
... habia pensado en codigo VB donde me saltara una ventanita pidendo la fecha que quiero ver y luego ver los resultados
... las columnas que contienen tanto la fecha de baja como la de alta son columnas con formato de celda = fecha

op1: con los autofiltros puedes 'avanzar' rapidamente NO -solo- de uno en uno, sino desplazando la barra ;)

op2: si es el caso que en las 2895 lineas tienes mas de 1000 fechas con bajas... SOLO podras 'ver' 1000 [en el listado] :-(
tendrias que usar la opcion de 'personalizar' e introducir la fecha 'solicitada' -> en el mismo formato que el listado :))

op3: prueba con algun codigo +/- como el siguiente [suponiendo que SOLO necesitas filtrar la columna 'F']...
Sub Filtrar_Fecha()
Dim FechaX, Fecha As Date
FechaX = InputBox("Indica la fecha de busqueda..." & vbCr & _
"usa el ejemplo para la fecha de hoy: " & Date, "Bajas...")
If FechaX = "" Then Exit Sub Else Fecha = CLng(CDate(FechaX))
With [f1]
If .AutoFilter Then .AutoFilter
.AutoFilter Field:=1, Criteria1:=Fecha
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias Hector, con este codigo me va perfecto para lo que queria.

Lo unico que he tenido que hacer es modificar el With [f1] por With
[f1:f4000]

Saludos,
Engel