Macro funcionando de manera aleatoria

pvergili

New Member
Joined
May 29, 2020
Messages
1
Office Version
365
Platform
Windows
Me encuentro actualmente tratando de resolver un error en uno de mis archivos para lo cual recurro a ustedes.

En este archivo realizo una actualización de stock desde Power BI para lo cual tengo configurada una planilla que descarga esta información desde un cubo creado para este fin.

Debido a que la idea es tener el stock instantáneo de un producto "X" la macro que cree para esto es recurrente y se ejecuta al iniciar el archivo y luego cada 10 minutos.

El problema surge debido a que esta macro que copiare al final funciona correctamente en ciertas ubicaciones de un sharepoint empresarial pero no en otras.

Al momento de ejecutarla en estas ubicaciones donde falla, la macro cumple con su objetivo al abrir el archivo, el inconveniente surge en su segunda ejecución entregando como erro el siguiente mensaje



Lo curioso en esta cuestión es que el resto de las macros del archivo (unas 10) siguen funcionando correctamente, y mismo esta si luego del error de arriba se vuelve a ejecutar.

Busque en múltiples foros buscando una solución y no logre hacerlo, por eso cualquier ayuda que puedan brindarme es más que bienvenida

El código en cuestión es el siguiente:



VBA Code:
Declare Function HypMenuVRefresh Lib "HsAddin.dll" () As Long

Sub ActualizarStock()

Dim SheetName As String

    Application.ScreenUpdating = False

    SheetName = ActiveSheet.Name

    Sheets("Stock Inmediato").Select

    X = HypMenuVRefresh()

    Sheets(SheetName).Select

    Tiempo = DateAdd("s", 600, Time)

    Application.OnTime EarliestTime:=Tiempo, Procedure:="ActualizarStock"

    Application.ScreenUpdating = False

    MsgBox "Stock Actualizado", 64

End Sub
 

Some videos you may like

Excel Facts

When did Power Query debut in Excel?
Although it was an add-in in Excel 2010 & Excel 2013, Power Query became a part of Excel in 2016, in Data, Get & Transform Data.

Watch MrExcel Video

Forum statistics

Threads
1,102,565
Messages
5,487,588
Members
407,605
Latest member
PACULA

This Week's Hot Topics

Top