Forums Últimos mensajes - Powered by IBM
 

problemas con fecha

15/09/2009 - 20:48 por j_lete | Informe spam
Hola grupo!!
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 función
format para la variable fecha, así como a definirla como string.
Como lo soluciono?
Gracias

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
 

Leer las respuestas

#1 Cacho
16/09/2009 - 02:14 | Informe spam
Hola! j_lete. Hay algo en tu código que no cierra...

Imagina que deseas generar un archivo "f.txt" con las líneas del día
28/09/2009.

Si en la segunda fija se encuentra un registro que tiene una fecha diferente
de aquella, el código termina allí...

¿Lo habías notado?... ¿Es ésa la dificultad que encuentras?

Saludos, Cacho.

Preguntas similares