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.

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#2 Ivan

15/12/2006 - 00:43 | Informe spam

o mejor prueba con esto:-> inserta tambien un TextBox (copialo y pegalo
directamente en el modulo del formulario

Private Sub CommandButton1_Click()
'con esto limpias las celdas A1 y B1
'y pones la fecha actual en ellas
With [a1:a2]
.Clear
.Value = Date ' -> fecha actual del sistema
End With
'con esto cargas el Label1 con la celda A1
'y le das apariencia de textbox
With Label1
.Caption = Cells(1, 1)
.TextAlign = 2
.SpecialEffect = 6
End With
'con esto cargas el TextBox1 con la celda B1
'y lo inhabilitas
With TextBox1
.Value = Cells(1, 2)
.Enabled = False
End With
End Sub

un saludo
Ivan

Responder a este mensaje

#3 Mk

16/12/2006 - 23:40 | Informe spam

Ivan escribió:

o mejor prueba con esto:-> inserta tambien un TextBox (copialo y pegalo
directamente en el modulo del formulario

Private Sub CommandButton1_Click()
'con esto limpias las celdas A1 y B1
'y pones la fecha actual en ellas
With [a1:a2]
.Clear
.Value = Date ' -> fecha actual del sistema
End With
'con esto cargas el Label1 con la celda A1
'y le das apariencia de textbox
With Label1
.Caption = Cells(1, 1)
.TextAlign = 2
.SpecialEffect = 6
End With
'con esto cargas el TextBox1 con la celda B1
'y lo inhabilitas
With TextBox1
.Value = Cells(1, 2)
.Enabled = False
End With
End Sub

un saludo
Ivan

Funciona a la perfección.

Muchas gracias por tu ayuda Iván.

Un saludo.

Mk.

Responder a este mensaje

#4 Ivan

17/12/2006 - 00:52 | Informe spam

hola Mk

aunque supongo que ya te habras dado cuenta, te lo comento por si acaso
->

en los ejemplos he incluido las acciones con celdas por asociarlo a tu
consulta, pero si lo que quieres es simplemente mostrar la fecha en el
formulario no hace falta que uses celdas, simplemente asignale Date al
control que elijas ( Label, Textbox)

un saludo
Ivan

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida