VBA Excel: Formato de fecha Resuelto

Question

Hola,

No consigo dar formato a una fecha ingresada en un formulario:
Al cerrar el formulario, los datos ingresados se copian en las celdas de una hoja de cálculo; he definido en las celdas de la primera columna de mi hoja de cálculo un formato "Fecha" en forma "dd/mm/aaaa".
En el módulo (ver el código a continuación), fuerzo el valor del textbox a este formato:

 If saisie.date_ev.Value <> "" Then If Not IsDate(saisie.date_ev.Value) Then MsgBox "Fecha incorrecta.", vbCritical + vbOKOnly, "Error" saisie.date_ev.Value = "" saisie.date_ev.SetFocus saisie.Hide saisie.Show Else saisie.date_ev.Value = Format(saisie.date_ev.Value, "dd/mm/yyyy") End If End If

Sin embargo, a pesar de todas estas precauciones, la fecha copiada en la celda está en formato "mm/dd/aaaa".
No deseo modificar las preferencias regionales.

¿Alguien tiene una solución?

Gracias de antemano

Armojax · Accepted Answer

Hola Misfit,

Los formatos de fecha asignados a las celdas en Excel no se traducen todos de la misma manera en VBA.

Así, una celda cuyo formato se define como dd/mm/aa en Excel se traduce en VBA como: NumberFormat = dd/mm/yy. Normal.
Mientras que un formato definido como dd/mm/yyyy se traduce como: NumberFormat = m/d/yyyy, lo que cambia todo.

Concretamente, en VBA, invierte los meses y los días.

Armojax.

Kobaya · Answer

Hola Misfit,

cuando escribes:
saisie.date_ev.Value = Format(saisie.date_ev.Value, "dd/mm/yyyy"), pones una cadena de caracteres en tu celda.

intenta esto:
saisie.date_ev.Value = Cdate(saisie.date_ev.Value)

Hasta luego,
Kobaya.

misfit · Answer

Hola Kobaya,

Gracias por tu respuesta, pero no funciona. Al igual que con Formato, mi fecha aparece bien en la forma dd/mm/aaaa en mi caja de texto, pero cuando copio el contenido de esta caja de texto en la celda, la fecha cambia al formato mm/dd/aaaa.

¿Hay alguien que tenga alguna otra idea...? Estoy a punto de volverme loco.

Hasta luego
Misfit

random · Answer

y si miras dentro de tu celda el formato de esta si depositas una fecha en una celda, tomará el formato del contenedor

random · Answer

y luego transforma tu valor en cdate(textbox)

Nours · Answer

Tengo exactamente el mismo problema al abrir un archivo .txt mediante VBA en Excel, si encuentras algo avísame, de lo contrario, si yo encuentro algo te lo haré saber.

Yann MICHEL · Answer

Sugerencia:
En el momento de registrar el valor del cuadro de texto en tu celda, procede de la siguiente manera:
cells(x, y).value = format(Userform.Textbox, "dd/MM/yyyy")

para definir el formato dd/mm/aaaa, el mes debe estar en inglés y en mayúsculas. Es lo mismo que para la función PartDate.

Esperando que te funcione.
Michou

Alban · Answer

De parte de alguien a quien he podido ayudar gracias a este hilo: ¡gracias!

nini · Answer

Hola,
no puedo extraer los semestres del año con la función partdate de Access. Estoy intentando usarla en una consulta, pero no conozco el parámetro para extraer el semestre en función de una lista de fechas ingresadas. Muchas gracias por ayudarme. Nini

crogiez · Answer

d="22/08/2008 12:30:42" activecell...value=fecha(valor(t)) eventualmente cambie el formato de la celda  -- 15 escenarios para RCT3 en mi sitio http://crogiez.free.fr

freto · Answer

Bueno, revivo este tema, no tengo ganas de hacer otro.
Tengo un problema de fecha con un archivo Excel: en mi pc, y en el pc de mi responsable, no hay problema, puedo hacer en vba un:
activeSheet.Cells(parcoursLigne, "H").NumberFormatLocal = "dd/mm/aaaa"
EN cambio, en el pc de otra persona, ajena al servicio, cuya configuración no conozco, es imposible hacerlo: el formato dd/mm/aaaa no existe.
SI pudieran aclararme la solución... gracias de antemano

--
What's tiny, and yellow and very very dangerous?????
A canary with the super-user password.
Mouhahahaha

Duderino_23 · Answer

¡Las reglas de Kubaya!!!!  Tenía el mismo problema con el formato de las fechas y se solucionó gracias a "Cdate"!!!  ¡Muchas gracias!

freto · Answer

Bon, ha pasado tiempo, pero he encontrado con un Cdate y no recuerdo qué manipulación (creo que teníamos que poner la cosa en inglés pero en francés de todos modos, en fin).
Ahora funciona pero no puedo decir más sobre la solución
--
¿Qué es pequeño, amarillo y muy, muy peligroso?????
Un canario con la contraseña de superusuario.
Mouhahahaha

turbo92 · Answer

Hola,

Tengo un problema similar, pero con otro caso.
Quiero copiar el contenido de una celda a otra, y
en la primera se muestra correctamente "01/03/2010", pero en
la segunda, se invierte el día y el mes, es decir, "03/01/2010"
cuando la macro copia y pega los datos de una celda a otra.

Preciso que las 2 hojas (celda de copia y celda de pegado) son
diferentes, pero pertenecen al mismo libro y las celdas están
configuradas para fechas francesas.

Gracias por tu ayuda.

sarrus · Answer

récupère ta da en format Long

Nicoroth · Answer

Hola,  tenía un problema similar, pegué mis fechas en una columna que no me servía con la fórmula:  =TEXT(K2;"dd/mm/yyyy") con la fecha en cuestión en K2....  A mí personalmente me pasaba lo mismo que a ti cuando tenía que hacer una concatenación, pero gracias a este pequeño truco funciona.  Espero que te ayude.

SSAMAN · Answer

2008-05-03

Sefran · Answer

Hay que probar el valor y el tipo de celda
MsgBox ("La propiedad Value es: " & Cell.Value)
MsgBox ("La propiedad Text es: " & Cell.Text)

Se observa que "Value" es el valor de la fecha y que "Text" es el formato de visualización de la fecha.

Si la celda contiene un texto no interpretado como fecha en su forma de visualización, hay que convertirlo de la siguiente manera

For Each Cell In Selection
If IsDate(Cell.Value) Then
Cell.Value = DateValue(Cell.Value)
End If
Next Cell

Ironmano · Answer

¡Hola foro!
Un pequeño up unos años después, ya que tengo un problema "similar".
Me explico:
- Estoy importando un archivo .txt a xls. En este archivo, diversos datos + 2 columnas (B y F) con fechas en el formato dd/mm/aaaa
- Con una macro de VBA, copio los datos de este archivo
- Cierro el archivo
- Pego los datos de este archivo en otro libro

Hasta el jueves pasado (31/05/2012), todo iba bien ... pero desde el 1 de junio, al pasar de un archivo a otro, mi 01/06/2012 se convierte en 06/01/2012 ...

He leído bien sus distintas sugerencias, pero ¿cómo hacer si se trata de definir el formato de estos datos importados en 2 columnas y no perder este formato al copiar y pegar?

Gracias de antemano.

EDM

6boulettes · Answer

Dim datduJour As String Application.StatusBar = Format(datduJour, "dd/mm/yyyy")  ==> permite tener la fecha en formato DD/MM/AAAA independientemente del soporte utilizado (textbox o celda).

moncoteyang · Answer

Puedes intentar formatear tu celda con un formato tipo:  Selección (tu celda) = CDate(CSng(Fecha))  Encontré esta solución en un foro porque me enfrentaba al mismo problema...  ¡Hasta luego!

VBA Excel: Formato de fecha

21 respuestas

Pantalla rota huawei p20 lite

Problema de texturas en enshrouded

[tabla de contenido de word] eliminar un número de página

No puedo transferir mis videos a mi ordenador

Widget de google siempre cargando

¿qué puedo hacer realmente?

Abrir archivos de word pdf directamente sin vista previa

Repetidor bb08 bloquea aplicación

Problema de sonido convertidor hdmi=>peritel

Anclaje de sitio web en windows 10 o 11