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.xlsm

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

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

Muchas gracias

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.

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" (?)

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.

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

Hace 30 minutos , Khalel dijo:

Call dlRESIZE

???

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

 

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.

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

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

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