Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Error 13 en VBA al querer Multiplicar con Textbox

Excel - Error 13 en VBA al querer Multiplicar con Textbox

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

Error 13 en VBA al querer Multiplicar con Textbox

Publicado por @Dinokaos (1 intervención) el 25/10/2022 23:22:21
Hola,
Ojalá puedan apoyarme, no sé bien que pueda hacer. Tengo el siguiente código para ingresar ventas.

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
35
Private Sub txtCambio_Change()
''''''''''
'Sumas y Multiplicaciones automaticas en TEXTBOX
'
''''''''''
'Obtener Subtotal
If Me.txtValor <> 0 And Me.txtCambio <> 0 Then
'
txtSubtotal = CDbl(txtValor.Text) * CDbl(txtCambio.Text)
txtSubtotal = Format(txtSubtotal, "#,##0.00")
Else
txtSubtotal = ""
End If
'
''''''''''
'Obtener IVA
If Me.txtCambio <> 0 And Me.txtSubtotal <> 0 Then
'
txtIVA.Text = CDbl(txtSubtotal.Text) * (0.16)
txtIVA = Format(txtIVA, "#,##0.00")
Else
txtIVA = ""
End If
'
''''''''''
'Obtener Total
If Me.txtSubtotal <> 0 And Me.txtIVA <> 0 Then
'
txtTotal.Text = CDbl(txtSubtotal.Text) + CDbl(txtIVA.Text) * CDbl(txtCambio.Text)
txtTotal = Format(txtTotal, "#,##0.00")
Else
txtTotal = ""
End If
 
End Sub

Al momento de dar clic en el boton de agregar, para que se distribuya en la tabla... me marca el error 13 y me resalta esta linea de codigo,

1
txtSubtotal = CDbl(txtValor.Text) * CDbl(txtCambio.Text)

No se bien como corregirlo ya que soy principiante. Sirve de algo que al menos en los Textbox se muestren las operaciones de multiplicación con decimales de manera correcta, incluso se puede llenar la tabla, pero de igual manera me envia ese cuadro de ERROR 13.
Ojala puedan ayudarme.
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

Error 13 en VBA al querer Multiplicar con Textbox

Publicado por Antoni Masana (2540 intervenciones) el 26/10/2022 15:18:49
Supongo que esto: txtSubtotal es un TextBox o un Label.
Te hago unas correcciones

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
Private Sub txtCambio_Change()
    ''''''''''
    'Sumas y Multiplicaciones automaticas en TEXTBOX
    '
    ''''''''''
    txtSubtotal.Text = ""
    txtIVA.Text = ""
    txtTotal.Text = ""
 
    'Obtener Subtotal
    If Me.txtValor <> 0 And Me.txtCambio <> 0 Then
        txtSubtotal.Text = Format(CDbl(txtValor.Text) * CDbl(txtCambio.Text), "#,##0.00")
    End If
    '
    ''''''''''
    'Obtener IVA
    If Me.txtCambio <> 0 And Me.txtSubtotal <> 0 Then
        txtIVA.Text = Format(CDbl(txtSubtotal.Text) * (0.16), "#,##0.00")
    End If
    '
    ''''''''''
    'Obtener Total
    If Me.txtSubtotal <> 0 And Me.txtIVA <> 0 Then
        txtTotal.Text = Format(CDbl(txtSubtotal.Text) + CDbl(txtIVA.Text) * CDbl(txtCambio.Text), "#,##0.00")
    End If
End Sub

Tendría que probarlo para ver donde esta el error.

Saludos.
\\//_
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