Macro condicional

Hola que tal tengo una macro que selecciona hojas de excel "facultadPot 1 " y "directorioPot 1 " las mueve a un libro "PLANTILLA FRACCIONES.xlsm" les otorga formato y varias cosas más, pero mi problema es como le hago en el caso de que no encuentre una hoja, en este caso "facultadPot 1 " y siga trabajando, es decir la pase por alto y busque la siguiente "directorioPot 1 "
Sheets("facultadPot 1 ").Select
    Sheets("facultadPot 1 ").Move After:=Workbooks("PLANTILLA FRACCIONES.xlsm")
Sheets("directorioPot 1 ").Select
    Sheets("directorioPot 1 "). Move After:=Workbooks("PLANTILLA FRACCIONES.xlsm")
Gracias

1 respuesta

Respuesta
1
Tu rutina necesita 1 línea inicial que controlará si se produce un error. Si es así pasará a la línea siguiente:
On Error Resume Next
Sheets("facultadPot 1 ").Select
    Sheets("facultadPot 1 ").Move After:=Workbooks("PLANTILLA FRACCIONES.xlsm").Sheets(1)
Sheets("directorioPot 1 ").Select
    Sheets("directorioPot 1 "). Move After:=Workbooks("PLANTILLA FRACCIONES.xlsm").sheets(1)
La consulta ya lleva 1 semana abierta. Si el tema quedó concluido no olvides finalizarla.
Sdos
Elsa
Muchas gracias Elsa apenas cheque la respuesta no había tenido tiempo para revisarle, me fue muy útil así como el link que proporcionaste... agradezco muchísimo tu ayuda...
La macro ya no se detiene, sin embargo debo realizar cieertos cambios el el diseño de la misma pero de verdad me fue muy útil tu apoyo...
Gracias y mucha suerte

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas