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:
http://subefotos.com/ver/?086b25be77b3b7e224e99b5d1782c04fo.png
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
Valora esta pregunta
0
