Macro funcionando de manera aleatoria

pvergili

New Member
Joined
May 29, 2020
Messages
1
Office Version
  1. 365
Platform
  1. 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
 

Excel Facts

Format cells as currency
Select range and press Ctrl+Shift+4 to format cells as currency. (Shift 4 is the $ sign).

Watch MrExcel Video

Forum statistics

Threads
1,130,181
Messages
5,640,637
Members
417,159
Latest member
Mayozero

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top