problemas con fecha

hola, !

> Tengo una hoja de calculo de donde tengo que generar mensualmente un fichero plano
> con los datos contenidos en algunas de las columnas de la hoja.
> Uno de los campos es la fecha de carga que sirve para identificar los registros correspondientes a cada mes (columna J)
> y los valores que tiene son por ejemplo 28/08/2009., 28/09/2009.
> El caso es que no me funciona ya que no entre en el bucle ya que al comparar la fecha del registro
> con la fecha que le introduzco no las considera a ambas como fecha.
> He probado con la funcion format para la variable fecha, asi como a definirla como string.
> Como lo soluciono?

1) "manipular" fechas (en excel) requiere anticipar dos o tres imponderables que (probable/seguramente) encontraras por el camino (p.e.)
- los datos en las celdas son datos-fecha (reales) ? (independientemente del formato numerico), o textos que "simulan" fechas
- el orden de fechas en tu configuracion regional es: ??? (dd-mm-aa, mm-dd-aa, aa-mm-dd) porque para vba ES mm-dd-aa (USA)

2) en el codigo que comentas, declaras una variable (fecha) como tipo de datos Date (PERO...)
al usar por codigo un InputBox, la "entrada" de fechas...
a) como compruebas que el dato puede ser convertido a dato-fecha (por vba ?)
b) COINCIDE con el orden de la configuracion regional del pc (???)

3) asumiendo que el (des)conocimiento de lo anterior no es problema (?)
- prueba cambiando el bucle "do...loop" por una configuracion de pregunta diferente (p.e.)

do while range("j" & i) <> ""
if range("j" & i) = fecha then
print #1 .
end if
loop

4) por si las dudas, consulta la siguiente exposicion de manejo de fechas y temas relacionados con los regionalismos:
http://www.bmsltd.co.uk/ExcelProgRe...efCh22.htm (de Stephen Bullen)

saludos,
hector.

__ el codigo expuesto __
> Private Sub CommandButton1_Click()
> Dim fecha As Date
> Dim I As Integer
> Open "c:\kk\f.txt" For Output As #1
> fecha = InputBox("Introduce la Fecha de Liquidacion (27/mm/aaaa): ")
> I = 2
> Do While Range("J" & I) = fecha
> Print #1, Range("A" & I) & Range("B" & I) & Range("H" & I)
> I = I + 1
> Loop
> Close #1
> End Sub

Complementando la info aportada por Héctor Miguel, podrías aplicar un Filtro
Avanzado según el siguiente ejemplo:

http://tinyurl.com/pabm83


Saludos, Cacho.