Formato de fechas edsde macro
Hola es la, te escribo por que tengo un pequeño problema, pero que me está dando muchos dolores de cabeza, tengo un formulario que toma varios valores en algunos textbox, uno de ellos es una fecha, y otro un botón que agrega dichos datos en una hoja de excel, el problema viene cuando al copiar la fecha a la celda de la hoja le cambia el formato es decir si yo pongo en el textbox "01-12-05" (primero de diciembre del 2005)al momento de copiar a la hoja en la celda aparece 12-01-05 (12 de enero del 2005); he intentado con lo siguiente(parte del código):
ActiveCell.Offset(0, 0).Value = Form_ingreso.fecha.Text
ActiveCell.Offset(0, 0).NumberFormat = "dd-mmm"
También he probado con "dd-mmm-aa" y nada, ya no se que hacer, espero me ayudes
.
Saludos y gracias.
David
ActiveCell.Offset(0, 0).Value = Form_ingreso.fecha.Text
ActiveCell.Offset(0, 0).NumberFormat = "dd-mmm"
También he probado con "dd-mmm-aa" y nada, ya no se que hacer, espero me ayudes
.
Saludos y gracias.
David
1 respuesta
Respuesta de Elsa Matilde
1
Intentá de esta manera:
ActiveCell.value = Cdate(textbox1)
Reemplazá el nombre del control por el tuyo.
Dos acotaciones:
1- otra manera de dar formato es: ActiveCell.value = Format(textbox1, ?dd-mm-yy?)
2- No es necesario coloca Offset cuando no te desplazarás. ActiveCell. Value es lo mismo que colocar ActiveCell. Offset(0,0). Value ya que los valores 0 del Offset indican desplazamiento 0, por lo tanto es redundante.
ActiveCell.value = Cdate(textbox1)
Reemplazá el nombre del control por el tuyo.
Dos acotaciones:
1- otra manera de dar formato es: ActiveCell.value = Format(textbox1, ?dd-mm-yy?)
2- No es necesario coloca Offset cuando no te desplazarás. ActiveCell. Value es lo mismo que colocar ActiveCell. Offset(0,0). Value ya que los valores 0 del Offset indican desplazamiento 0, por lo tanto es redundante.
