Cerrar mensaje de error de forma automática

Khalel · el 15 de febrero

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.

eroluis · el 15 de febrero

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

on error resume next

Saludos!

Antoni · el 15 de febrero

Abre el adjunto y pulsa el botón.

Mensaje.xlsm

Khalel · el 16 de febrero

Hace 12 horas, 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

image.png.9f1e56e0fc4430cefcc0c5627014467f.png

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

Muchas gracias

Khalel · el 16 de febrero

Hace 11 horas, 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.

Héctor Miguel · el 16 de febrero

Hace 6 minutos , Khalel dijo:

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

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

Khalel · el 16 de febrero

Hace 7 minutos , 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.

Héctor Miguel · el 16 de febrero

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

Hace 30 minutos , Khalel dijo:

Call dlRESIZE

???

Héctor Miguel · el 16 de febrero

Hace 43 minutos , 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

Khalel · el 16 de febrero

Hace 33 minutos , 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.

Khalel · el 16 de febrero

Hace 21 minutos , 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