Exceso de capacidad VBA
Resuelto
Ecam39
Mensajes publicados
314
Estado
Miembro
-
Ecam39 Mensajes publicados 314 Estado Miembro -
Ecam39 Mensajes publicados 314 Estado Miembro -
Hola,
He escrito una variable en DIM como Long con un bucle hasta el final de la columna.
Sin embargo, cuando ejecuto el procedimiento, recibo un mensaje de "Error de ejecución '6' Desbordamiento".
No sé a qué corresponde este mensaje, he cambiado la variable, pero sigue apareciendo el mismo mensaje.
Aquí está el inicio del procedimiento:
¿Cómo puedo solucionarlo?
Gracias
Configuración: Windows 7 / Internet Explorer 10.0
He escrito una variable en DIM como Long con un bucle hasta el final de la columna.
Sin embargo, cuando ejecuto el procedimiento, recibo un mensaje de "Error de ejecución '6' Desbordamiento".
No sé a qué corresponde este mensaje, he cambiado la variable, pero sigue apareciendo el mismo mensaje.
Aquí está el inicio del procedimiento:
Sub stock_reception()
'Inicialización de la variable ecart_de_stock
Dim ecart_de_stock As Long
ecart_de_stock = 2
'Empezar el bucle en la columna E
For ecart_de_stock = 2 To Range("E2").End(xlDown).Row
'Dentro del bucle, realizar el cálculo según la condición
If Not IsEmpty(Cells(ecart_de_stock, 5)) Then
'Definir la fecha de hoy para el nuevo inventario
If Not IsEmpty(Cells(ecart_de_stock, 3)) And Cells(ecart_de_stock, 1) = "" Then
Cells(ecart_de_stock, 1) = Date
Else
End If
'Definir el mes en función de la fecha de entrada
Cells(ecart_de_stock, 2) = Month(Cells(ecart_de_stock, 1))
'Mostrar 0 o 1 en función de la diferencia de ubicación
If Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5) = 0 Then
Cells(ecart_de_stock, 6) = 1
Else
Cells(ecart_de_stock, 6) = 0
End If
'Mostrar la diferencia de bobinas entre el stock físico e informático, sin signo
Cells(ecart_de_stock, 7) = Abs(Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5))
'Realizar el cálculo en % de la diferencia de bobinas
Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))
Else
End If
Next
ActiveWorkbook.RefreshAll
End Sub
¿Cómo puedo solucionarlo?
Gracias
Configuración: Windows 7 / Internet Explorer 10.0
