Problemas con la macro al ingresar una fecha... Me ayudan
hola expertos.........espero me puedan ayudar..........bueno he hecho un formulario con varios texbox ... Lo que hace mi formulario con un botón guardar ..es que al llenar los datos........
TextBox2.Value = ActiveCell.Offset(0, 1) 'REFERENCIA
TextBox3.Value = ActiveCell.Offset(0, 2) 'APLICACIÓN
TextBox16.Value = ActiveCell.Offset(0, 26) 'fecha...............es en este el error cuando dígito la fecha en el textbox16 los datos q se muestran en la celda 26 son de otro tipo de formato..
como podría darle el valor al texbox de formato fecha.. Dd-mmm gracias de antemano
asi mismo con los valores de moneda con dos decimales............mil gracias por su ayuda
1 Respuesta
Para volcar una fecha procedente de un textbox a una celda lo tienes que hacer de esta manera:
Ejemplo:
activecell.value = cdate(textbox16)
Con esta línea estamos volcando en la celda activa el contenido del textbox16 que es una fecha y el volcado será correcto
Para volcar importes numéricos sería así:
activecell.value = cdbl(textbox1)
Con esta línea volcamos en la celda activa el importe tecleado en el textbox1 y será volcado con formato numérico correcto
Para alterar la visualización del textbox para tu fecha sería algo así:
textbox16.value = format(textbox16.value,"dd/mmmm")
Para alterar la visualización del textbox para un importe con decimales sería así:
textbox1.value = format(textbox1.value,"#.##0,00")
No olvides finalizar la consulta
