Excel - Problema con inserción de Fechas

   
Vista:

Problema con inserción de Fechas

Publicado por Jesus (3 intervenciones) el 01/06/2016 03:04:31
Buenas

Tengo un problema con una macro que inserta fechas en una hoja de Excel.

La macro suma una hora a la fecha y la inserta en una celda, pero cuando llega a las 00:00 del día siguiente, me mantiene el mismo día, aunque la variable de VBA cambia de día,

1
2
3
4
5
6
7
8
9
Dim i As Integer
Dim Fecha As Date
 
Fecha = CDate("1 mayo 2015")
 
For i = 2 To 100
    Fecha = DateAdd("h", 1, Fecha)
    Range("A" & i).Value = Fecha
Next i

En VBA Fecha = 2/05/2015 0:00 pero en Excel aparece 1/05/2015 0:00

Em cambio el siguiente valor ya sería correcto

En VBA Fecha =2/05/2015 1:00 en Excel aparece 2/05/205 1:00

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema con inserción de Fechas

Publicado por claudio (6 intervenciones) el 04/06/2016 01:48:43
para que te ponga la fecha escrito asi lo hice de esta manera:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i, x As Integer
Dim fecha As Date
x = 1
For i = 1 To 100
    fecha = Format(CDate(x & " mayo 2015") & " " & i & ":00:00 pm", "dd/mm/yyyy hh:mm:ss")
    Range("A" & i).Value = fecha
    If i = 23 Then
      i = 0
      x = x + 1
    End If
    If x = 31 Then
      Exit For
    End If
Next i

despues el formato lo elejis de acuerdo al dato que queres obtener
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con inserción de Fechas

Publicado por Jesus (3 intervenciones) el 04/06/2016 15:02:10
Muchas gracias por la respuesta, pero sigo teniendo el mismo problema, cuando hace el cambio de día, en VBA lo hace bien, pero a la hora de insertarlo en Excel pone el día anterior, es decir, no corresponde lo que se escribe en Excel con el valor en VBA.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con inserción de Fechas

Publicado por claudio (6 intervenciones) el 04/06/2016 19:06:00
mejore el codigo pero el resultado me sigue dando bien, salvo que no sea el resultado que buscas.
Te pongo la modificacion y tambien una captura de como queda en la hoja excel.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim i, x, y As Integer
Dim fecha As Date
Sub Macro1()
y = 0
x = 1
For i = 1 To 100
 
    If i = 1 Then
      fecha = Format(CDate(x & " mayo 2015") & " 00:00:01 am", "dd/mm/yyyy hh:mm:ss")
    Else
      fecha = Format(CDate(x & " mayo 2015") & " " & i - 1 & ":00:00", "dd/mm/yyyy hh:mm:ss")
    End If
      Range("A" & i + 1 + y).Value = fecha
 
    If i = 24 Then
      y = i
      i = 0
      x = x + 1
    End If
    If x = 31 Then
      Exit For
    End If
Next i
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con inserción de Fechas

Publicado por Jesus (3 intervenciones) el 05/06/2016 01:54:20
Muchas gracias.

Parece que así si que funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar