Excel - error 13 No coinciden los tipo

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 23 puestos en Excel (en relación al último mes)
Gráfica de Excel

error 13 No coinciden los tipo

Publicado por Lucia (1 intervención) el 17/10/2019 23:14:44
Hola! soy nueva por aca,

me podrían ayudar con este error? este es el codigo

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub tir_Change()
 
Dim v_iva As Double
Dim iva As Double
 
v_iva = tir
 
iva = (v_iva * 22) / 100
 
iva_tir = iva
 
End Sub

en la linea 4 me marca el error de que no coinciden los tipos :(
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 Héctor Madriz
Val: 831
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

error 13 No coinciden los tipo

Publicado por Héctor Madriz (137 intervenciones) el 18/10/2019 01:58:53
Buen día, debes validar que las entradas de datos sean numéricas

prueba esto:

1
2
3
4
5
6
7
Private Sub tir_Change()
  If Not IsNumeric(tir) Or tir < 0 Then
     MsgBox "El IVA debe ser un numérico mayor o igual a cero", vbCritical, "Revisar valor"
     Exit Sub
  End If
 'tu código
End Sub

o esto:

1
2
3
4
5
6
7
Private Sub tir_Change()
On Error GoTo Salir
  'tu código
   Exit Sub
Salir:
  MsgBox "El IVA debe ser un numérico mayor o igual a cero", vbCritical, "Revisar valor"
End Sub

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