Jump to content
Sign in to follow this  
hans vilanueva

Formato de celdas... fechas

Recommended Posts

Ola Maestros - amigos, aqui con una consulta algo extraño par ami, tengo una base de datos, en la cual me muestra datos del mes de Enero "Fechas de Emision", la cual es el formato (ejemplo: 03/01/2015) dd/mm/yyyy.

Pero el problema empieza cuando se cargar en el excel, la fila 4 y 5 se invierte el formato, mi pregunta es como lo puedo resolver este inconveniente...

Muchas gracias de antemano...

SALUDOS!!!!

DATOS_FECHAS.rar

Share this post


Link to post
Share on other sites

Ola [uSER=96885]@josekar[/uSER] , t agradezco por la inquietud, pero el error es al momento de importar las fechas de una tabla de access, por eso subi los archivos.

1. abrir el formulario (ahi le puse un botón) y luego le presionas en el botón cargar, ahí cargara los datos y el error q m lanza en la fecha columna "D", fila 4 y 5

Share this post


Link to post
Share on other sites

Me funciona todo, solamente el problema es cuando cargas los datos la primera ves, la fila 4 y 5 varia cada ves q guardas, a ver fíjense en ese inconveniente, el formato de la columna es DD/MM/YYYY; pero no entiendo el formato de la fila 4 y 5 se vuelve a MM/DD/YYYY.

Deberia abrirme siempre en el mismo formato DD/MM/YYYY

Aqui les adjunto el archivo q carga y guarda los datos en la base de datos

DATOS_FECHAS.rar

Share this post


Link to post
Share on other sites

Tienes que convertir la fecha a Date.

Sub VerDatos()
Application.ScreenUpdating = False
Ado_Error = ADO_CONEXION_VISTA(CONEXION)
If Ado_Error > 0 Then
MsgBox "ERROR AL ABRIR LA BASE DE DATOS", vbCritical, "INFORMACIÓN DEL SISTEMA"
Exit Sub
End If
Hoja1.Range("A8:D" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
SQL = "Select * FROM COMPRAS" & " WHERE CRUC= '" & Hoja1.Range("E3") & "'order by ID"
On Error GoTo Salir
DATOS = ADO_OBTENER_CURSOR_VISTA(CONEXION, SQL)
For X = 0 To UBound(DATOS, 2)
For y = 0 To UBound(DATOS, 1)
xx = X + 8: yy = y + 1
If yy = 4 Then '<============================
Hoja1.Cells(xx, yy) = CDate(Trim(DATOS(y, X)))
Else
Hoja1.Cells(xx, yy) = Trim(DATOS(y, X))
End If
Next
Next
Salir:
CONEXION.Close
End Sub
[/CODE]

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5