Problema con fecha en Textbox de formulario

15/12/2006 - 00:05 por Mk | Informe spam
Wenas!!

Recientemente he retomado un proyecto que tenía parado desde hace
semanas y he logrado (con vuestra ayuda) ir superando todas las barreras
o dificultades que me iban surgiendo pero ahora mismo estoy atascado en
un escollo que no logro superar.

Tengo un userform con varios textbox, uno de ellos es para que aparezca
automaticamente la fecha de tal modo que el usuario no pueda editar la
fecha.

En el formulario tengo el siguiente código:

Private Sub Userform_Initialize()

Dim Fecha As Date
Sheets("Matriz").Activate
Fecha = Cells(2, 5)
TxtFecha.Value = Fecha

Donde TxtFecha es el textbox que contiene la fecha. Como veis lo único
que he conseguido es que al mostrarse el fomulario aparezca la fecha ya
que el textbox recoge el valor de una celda de otra hoja del libro donde
tengo la función =hoy(). El problema es que al pulsar un botón del
formulario para volcar los datos lo hace correctamente con todos excepto
con la fecha. Sinceramente yo no doy para mucho mas, ¿alguna idea?.

Muchas gracias.
 

Leer las respuestas

#1 Ivan
15/12/2006 - 00:20 | Informe spam
hola Mk

si no quieres que se pueda editar, puedes utilizar un label.

si quieres haz esta prueba.-> abre un libro nuevo, en el editor de vba
inserta un userform, en este un label y un comand buton sin cambiarles
el nombre. en el modulo del formulario pega esto y dale a f5 (y despues
al command buton), a ver que pasa

Private Sub CommandButton1_Click()
Label1 = Now
Cells(1, 1) = Label1
End Sub

un saludo
Ivan

Preguntas similares