Formato de Fecha en Textbox y cambio de datos

09/08/2004 - 00:55 por Marcelo | Informe spam

Hola A Todos:

Estoy buscando ayuda para algo que me ha quedado pendiente y necesito
solucionarlo. Fernando Arroyo me había dado una solución para llenar unos
textbox con datos de una hoja. La solución funciona pero me surgen dos
trabas.
Lo que busco es encontrar una solución para dos problemas.

1) Con el código que copio debajo se llenan unos TextBox con los datos de
una hoja. El problema que me surge es que uno de los datos tiene un valor de
fecha (24/04/2002), pero al devolverlo al textbox lo devuelve con el formato
de número (37370), y necesito que se vea cual es la fecha.
¿Esto tiene solución?, ¿Cómo lo puedo hacer?

Y lo otro que necesito es lo siguiente:
2) ¿Como se puede haer para que cuando modifique un valor en el textbox lo
modifique en la celda de origen?. La idea es colocar un boton que cuando se
active luego de modificar los datos en el textbox, transfiera se cambios a
las celdadas de donde se tomaron los datos.
¿Esto es posible?, ¿Cómo?

Agradezco desde ya su ayuda.

Saludos,
Marcelo

Private Sub ComboBox8_AfterUpdate()
Dim Texto As String
Texto = ComboBox8.Value
Sheets("A.T.").Range("V1").Value = Texto

If ComboBox8 <> "" Then TextBox9 WorksheetFunction.VLookup(Worksheets("A.T.").Range("V1"),
Sheets("A.T.").Range("A:U"), 2, False)
If ComboBox8 = "" Then TextBox9 = ""
If ComboBox8 <> "" Then TextBox10 WorksheetFunction.VLookup(Worksheets("A.T.").Range("V1"),
Sheets("A.T.").Range("A:U"), 3, False)
If ComboBox8 = "" Then TextBox10 = ""

End Sub

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Cambio de formato de fecha en datos combinados

Leer las respuestas

#1 Fernando Arroyo

09/08/2004 - 12:38 | Informe spam

Puedes volcar en una celda el contenido de un cuadro de texto de varias formas, por ejemplo, suponiendo que la celda fuera A1 de Hoja1, y usando la sintaxis abreviada:

[Hoja1!A1] = Me.TextBox1 'Para texto
[Hoja1!A1] = Val(Me.TextBox1) 'Para un valor numérico
[Hoja1!A1] = CDate(Me.TextBox1) 'Para una fecha

Decías en tu primer mensaje que se trataría de volcar los datos a las celdas al presionar un botón en el formulario. Esta es una posibilidad. Otra podría ser situar la instrucción en el evento Exit del cuadro de texto, con lo que la actualización de la celda se produciría automáticamente al salir del cuadro de texto.
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Marcelo" escribió en el mensaje news:
Hola, Encontré la solución para el primero de los problemas que era la cuestión del formato de fecha.
Copio el código debajo.
Ahora me faltaría resolver la segunda interrogante que era lo de modificar los datos de origen.

Espero puedan ayudarme.

Cordiales Saludos,

Marcelo

Responder a este mensaje

#2 Marcelo

09/08/2004 - 17:09 | Informe spam

Gracias Fernando:

El problema que veo con las soluciones que me das es que
no sé cuál es la celda de origen pues los datos del
textbox salen de un Vlookup. Por este motivo no podría
colocar el valor de una sola celda pues esta variaría.
El volcar los datos a una calda especifica más o menos lo
tengo claro y ya lo utilizo, pero lo que si no sé es como
devolverlos a una celda que varía. Tampoco sé si esto es
posible. En la ayuda de exel dice que si el textbox es
dependiente de un origen de datos al cambiar los datos en
el textbox se cambiarán en el origen, pero cómo logro esto
con la situación que tengo.

Espero puedan ayudarme

Saludos,
Marcelo

Puedes volcar en una celda el contenido de un cuadro de

texto de varias formas, por ejemplo, suponiendo que la
celda fuera A1 de Hoja1, y usando la sintaxis abreviada:

[Hoja1!A1] = Me.TextBox1 'Para texto
[Hoja1!A1] = Val(Me.TextBox1) 'Para un valor numérico
[Hoja1!A1] = CDate(Me.TextBox1) 'Para una fecha

Decías en tu primer mensaje que se trataría de volcar los

datos a las celdas al presionar un botón en el formulario.
Esta es una posibilidad. Otra podría ser situar la
instrucción en el evento Exit del cuadro de texto, con lo
que la actualización de la celda se produciría
automáticamente al salir del cuadro de texto.