Visual Basic - Problema con un formulario.

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Carlos

Problema con un formulario.

Publicado por Carlos (1 intervención) el 14/01/2015 01:59:26
Hola a todos...

Tengo una consulta...
Estaba programando un formulario sencillo pero tengo problemas al momento de imprimir los datos, específicamente con la fecha.
No importan qué fecha ingrese... al momento de imprimir (la imprimo en una hoja de calculo) me sale xx/01/1900. El mes y el año nunca cambian.
Son los demás datos no tengo problemas pero no logro identificar el error.

Les agradecía mucho si me pueden ayudar... probablemente sea algo sencillo pero estoy bloqueado y no lo veo.

Gracias.
El código es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub cmdcerrar_Click()
Unload frmingresar
End Sub
 
Private Sub cmdguardar_Click()
 
 ActiveSheet.Cells(3, 1).Select
 Selection.EntireRow.Insert
 
   ActiveSheet.Cells(3, 1) = Val(Txtfecha)
   ActiveSheet.Cells(3, 2) = Val(Txtcodigo)
   ActiveSheet.Cells(3, 3) = Cbocategoria
   ActiveSheet.Cells(3, 4) = Txttipocategoria
   ActiveSheet.Cells(3, 5) = Val(Txtcantidad)
   ActiveSheet.Cells(3, 6) = Val(Txtprecio)
End Sub
 
 
Private Sub CommandButton1_Click()
       Range("Tabla1[PRECIO]").Select
    Selection.Style = "Currency"
        Range("Tabla1[FECHA]").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range(("Tabla1[FECHA]")).Select
End Sub
 
Private Sub UserForm_Activate()
'agregar datos de la lista al cuadro combinado
Cbocategoria.AddItem ("FECHA")
Cbocategoria.AddItem ("Ropa")
Cbocategoria.AddItem ("Accesorios")
Cbocategoria.AddItem ("Calzado")
Cbocategoria.AddItem ("Bolsas")
End Sub

http://subefotos.com/ver/?086b25be77b3b7e224e99b5d1782c04fo.png
086b25be77b3b7e224e99b5d1782c04fo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Problema con un formulario.

Publicado por Andres Leonardo (702 intervenciones) el 14/01/2015 18:17:21
Considero qeu podrias pasarlo como Texto o caso contrario el formato DD/MM/YYYY esto siempre y cuando el valor viaje asi.

Espero te ayude.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar