Buenos días.

Tengo una macro programada para que ejecute una actualización de los datos.

El problema es que, dependiendo de los datos, a veces salta un mensaje de error y hasta que no se pulsa aceptar en el mensaje de rror, no continua calculando.

Hay alguna forma de hacer que "pulse" el aceptar de forma automática?

Gracias.

Podrías incluir en el código una línea

on error resume next 

Saludos!

 

Abre el adjunto y pulsa el botón.

Mensaje.xlsmFetching info...

  En 15/2/2021 at 18:48 , eroluis dijo:

Podrías incluir en el código una línea

on error resume next 

Saludos!

 

Muchas gracias. Pero todavia me sale el error

Esto quiero, que cuando aparezca esta ventana de error de forma automática pulse aceptar o desaparezca.

Muchas gracias

  En 15/2/2021 at 19:28 , Antoni dijo:

Abre el adjunto y pulsa el botón.

Mensaje.xlsm 19.83 kB · 1 descarga

Muchas gracias, pero no es exactamente lo que busco, o quizás se le pueda aplicar. Necesito lo que he comentado al compañero en la respuesta de arriba.

  En 16/2/2021 at 6:58 , Khalel dijo:

Necesito lo que he comentado al compañero en la respuesta de arriba

lo que se necesita es que publiques "la macro" (?)

  En 16/2/2021 at 7:05 , Héctor Miguel dijo:

lo que se necesita es que publiques "la macro" (?)

Tienes razón, pido disculpas por ello.

Utilizado en excel ex add-On PIdataLink para la obtenció nde datos mediante las fórmulas de ProcessBook

Sub RESIZE()
Application.DisplayAlerts = False
Sheets("GRAFICAS").Select
Range("O16:P16").Select
Call dlRESIZE
On Error Resume Next
Range("O20:P20").Select
Call dlRESIZE
On Error Resume Next
Range("O24:P24").Select
Call dlRESIZE
On Error Resume Next
Range("O28:P28").Select
Call dlRESIZE
End Sub
 

Lo que hago con esta rutina es que de recalcule la obtención de los datos, pero cuando no hay datos introducidos dentro de esos rangos donde hace la llamada, aparece el error que he indicado arriba. Es por eso que deseo que esa ventana de error desaparezca para que siga recalculando.

puedes averiguar (y publicar) lo que hace el procedimiento que llamas repetidamente ?:

  En 16/2/2021 at 7:15 , Khalel dijo:

Call dlRESIZE

???

  En 16/2/2021 at 7:15 , Khalel dijo:

cuando no hay datos introducidos dentro de esos rangos donde hace la llamada, aparece el error que he indicado arriba

ok, prueba de esta forma:

Sub nuevaForma()
  Application.DisplayAlerts = False
  Worksheets("graficas").Select
  If Application.Count(Range("o16:p16")) = 2 Then Range("o16:p16").Select: dlRESIZE
  If Application.Count(Range("o20:p20")) = 2 Then Range("o20:p20").Select: dlRESIZE
  If Application.Count(Range("o24:p24")) = 2 Then Range("o24:p24").Select: dlRESIZE
  If Application.Count(Range("o28:p28")) = 2 Then Range("o28:p28").Select: dlRESIZE
  Application.DisplayAlerts = True
End Sub

 

  En 16/2/2021 at 7:46 , Héctor Miguel dijo:

puedes averiguar (y publicar) lo que hace el procedimiento que llamas repetidamente ?:

???

Es un parametro de la referencias PIDdialogs. lo que hace es evitar tenner que pulsar el boton derecho y seleccionar el RESIZE de forma manual.

  En 16/2/2021 at 8:00 , Héctor Miguel dijo:

ok, prueba de esta forma:

Sub nuevaForma()
  Application.DisplayAlerts = False
  Worksheets("graficas").Select
  If Application.Count(Range("o16:p16")) = 2 Then Range("o16:p16").Select: dlRESIZE
  If Application.Count(Range("o20:p20")) = 2 Then Range("o20:p20").Select: dlRESIZE
  If Application.Count(Range("o24:p24")) = 2 Then Range("o24:p24").Select: dlRESIZE
  If Application.Count(Range("o28:p28")) = 2 Then Range("o28:p28").Select: dlRESIZE
  Application.DisplayAlerts = True
End Sub

 

Donde pongo este código? Nuevo módulo o dónde? Gracias

  En 16/2/2021 at 8:21 , Khalel dijo:

Donde pongo este código? Nuevo módulo o dónde? Gracias

ese código lo pones en un modulo "estándar" y  lo usas "en lugar de..." el que publicaste

  En 16/2/2021 at 19:00 , Héctor Miguel dijo:

ese código lo pones en un modulo "estándar" y  lo usas "en lugar de..." el que publicaste

Perfecto. ha funcionado. Muchas gracias por toda vuestra ayuda.

Moderador, se puede cerrar el hilo.