Error en macro para borrar
Tengo una pequeña macro para borrar 2 hojas y la información de una tercera en el mismo libro, pero mi problema es de que si no hay nada de información y no están los otras dos hojas me marca error, quisiera saber si hay alguna forma de que no marque este error y si no están las dos hojs en el mismo libro, ¿no haga nada y/o no marque el error? Este es lo que tengo como código:
Application.DisplayAlerts = False
ThisWorkbook.Sheets(Array("hoja1", "hoja2")).Delete
ThisWorkbook. Sheets("hoja3"). Range("B3:B25000"). ClearContents
ThisWorkbook. Sheets("hoja3"). Range("D3:D25000"). ClearContents
Application.DisplayAlerts = False
Si la hoja1 y hoja2 no existen que no marque error y no haga nada.
1 Respuesta
Buernas
Con esta incrucion evista el error o mejor dicho lo vuelas
On Error Resume Next
seria de la siguiente manera
on error resume next
Application.DisplayAlerts = False
ThisWorkbook.Sheets(Array("hoja1", "hoja2")).Delete
ThisWorkbook. Sheets("hoja3"). Range("B3:B25000"). ClearContents
ThisWorkbook. Sheets("hoja3"). Range("D3:D25000"). ClearContents
Application.DisplayAlerts = False
