error 13, en tiempo de ejecución
Publicado por EDUARDO (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:
cuando selecciono Depurar me marca: cantidad = Sheets("VIERNES 28").Cells(cont, 5)
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 ultfiladatoscantidad = 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
0
