Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » forms

Excel - forms

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

forms

Publicado por juan (9 intervenciones) el 18/07/2014 20:32:30
Hola. He creado un forms para cargar datos en una hoja excel
en la columna 5 se deben cargar valores numercos en peso desde el textbox "txtlockers" pero me los carga como texto, alguien me puede ayudar
Adjunto Archivo
Muchisimas gracias

Juan
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 Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

forms

Publicado por Antoni Masana (2540 intervenciones) el 21/07/2014 06:54:54
Necesitas Convertir el texto a número

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub cmdinsertar_Click()
    For I = 5 To 500
        If Cells(I + 1, 3).Value = "" Then
           Cells(I + 1, 1).Value = TXTFECHA
           Cells(I + 1, 2).Value = Val(txtmes)
           Cells(I + 1, 3).Value = Val(txtvendedor)
           Cells(I + 1, 4).Value = Val(txtlockers)
           Cells(I + 1, 5).Value = Val(txttoallas)
           Cells(I + 1, 6).Value = Val(txtsuplementos)
           Cells(I + 1, 7).Value = Val(txtbebidas)
           Cells(I + 1, 8).Value = Val(txtcarnets)
           Cells(I + 1, 10).Value = Val(txtptrainers)
           Cells(I + 1, 12).Value = Val(txtjudo)
           Cells(I + 1, 13).Value = Val(txtkarate)
           Cells(I + 1, 17).Value = Val(txtpaselibre)
           Cells(I + 1, 18).Value = Val(txtpagare)
           Exit For
        End If
    Next
End Sub
 
Private Sub UserForm_initialize()
    Me.BackColor = RGB(80, 20, 80)
End Sub
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