Evitar error al ejecutar varias macros que crean nuevas hojas de cálculo

1 post / 0 nuevos
Night0Crawler
Imagen de Night0Crawler
Offline
última acción: Hace 1 mes 1 semana
alta: 21/10/2020 - 15:14
Puntos: 25
Evitar error al ejecutar varias macros que crean nuevas hojas de cálculo

Estimados amigos.

Agradezco su valiosa ayuda con lo siguiente:

Tengo una base de datos con informacion de despacho de vehiculos que cuenta con mucham información de la cual debo generar diferentes informes, por ejemplo:

Informe x Ruta, Informe X Agencia, Informe por Clientes, etc.

El caso es que he generado una macro para cada uno de ellos en donde el primer paso es crear una nueva hoja de calculo y realizar las operaciones para ejecutar el informe, la novedad empieza cuando se requiere ejecutar un segundo informe, pues la macro deja de funcionar, asumo que debe ser porque el Excel inserta una segunda hoja como "Hoja2" y en la macro se espera que se genere "Hoja1", realmente no he sabido como sortear ello, les dejo el inicio de la macro, de ante mano mil gracias!

 

Sub INFORM_Bogotá_x_Cliente()

' INFORM_Reg_x_Cliente Macro

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

          

    On Error Resume Next

    Worksheets("Hoja1").Delete

    Worksheets.Add(After:=ActiveSheet).Name = "BS_Client_Bog" 

Etiquetas: