Visual Basic - error 13, en tiempo de ejecución

Life is soft - evento anual de software empresarial
 
Vista:

error 13, en tiempo de ejecución

Publicado por EDUARDO eduardospen91@gmail.com (1 intervención) el 02/07/2019 19:06:39
hola,

tengo una función que al momento de ejecutarla me arroja el siguiente mensaje;
"Se ha producido el error "13" en tiempo de ejecución
no coinciden los tipos"

y la macro es esta:
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
Sub extraerdatos()
Dim ultfiladatos As Long
Dim ultfilafinal As Long
 
Dim cantidad As Double
Dim producto As String
Dim codigo As String
 
ultfiladatos = Sheets("VIERNES 28").Range("A" & Rows.Count).End(xlUp).Row
 
For cont = 2 To ultfiladatos
    cantidad = Sheets("VIERNES 28").Cells(cont, 5)
    producto = Sheets("VIERNES 28").Cells(cont, 6)
    codigo = Sheets("VIERNES 28").Cells(cont, 7)
 
    If codigo = "pan" Then
            ultfilafinal = Sheets("VIERNES 28").Range("A" & Rows.Count).End(xlUp).Row
            Sheets("final 2019").Cells(ultfilafinal + 1, 5) = cantidad
            Sheets("final 2019").Cells(ultfilafinal + 1, 6) = producto
            Sheets("final 2019").Cells(ultfilafinal + 1, 7) = codigo
    End If
Next cont
 
 
End Sub

cuando selecciono Depurar me marca: cantidad = Sheets("VIERNES 28").Cells(cont, 5)
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
sin imagen de perfil
Val: 12
Ha disminuido su posición en 8 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error 13, en tiempo de ejecución

Publicado por Yamil Bracho (226 intervenciones) el 02/07/2019 19:49:38
Revisa lo que tienes en ese celda porque esta esperando un numero y quizas tengas caracteres no numericos o blanco.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.779
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error 13, en tiempo de ejecución

Publicado por Andres Leonardo (1512 intervenciones) el 02/07/2019 20:27:44
haz un


1
2
3
debug.print Sheets("VIERNES 28").Cells(cont, 5)
'Si el valor es un numero quizas la celda aparezca como texto y te tocaria convertir el dato, si esta en blanco deberias considerar sea 0
cantidad = Sheets("VIERNES 28").Cells(cont, 5)

para ver que te sale
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