Jump to content
Enid86

ANSWERED Borrar determinadas hojas del libro activo

Recommended Posts

Buenas!!聽馃槃

A ver qui茅n puede ayudarme, tengo un libro con m谩s de 100 hojas y quiero que se borre el contenido de todas, menos de dos hojas concretas ("GS" y "Macros")聽a partir de la celda A3.

Me parece que deber铆a ser muy sencillo, pero el c贸digo me da error 13 no coinciden los tipos (l铆nea 5馃槥

  1. Sub Bot贸n4_Haga_clic_en()
  2. Dim hoja As Worksheet
  3. For Each hoja In Application.Worksheets
  4. 聽 If hoja.Name <> "GS" Or "Macros" Then
  5. 聽 聽聽聽 聽 hoja.Range("A3:G6000").Clear
  6. 聽 聽 End If
  7. Next hoja
  8. End Sub

He probado declarando las hojas que quiero proteger como worksheet聽y comparando con聽If hoja.Name <> GS.Name聽Or Macros.Name Then, pero tampoco funciona..聽馃

A ver si alguien puede ayudarme, pleeeaseee... GRACIAS!聽聽馃尯

Share this post


Link to post
Share on other sites

Muchas gracias, Antoni!!!聽

No te imaginas el ataque de risa que me ha dado al ver tu respuesta.... No s茅 c贸mo no me di cuenta, era tan simple...馃ぃ

Ahora estoy pele谩ndome con una Matriz.... Llevo tres d铆as sin parar...馃樀

Gracias de nuevo!聽馃尯

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACI脫N B脕SICA SOBRE PROTECCI脫N DE DATOS

Responsable: Sergio Andr茅s Celem铆n

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la informaci贸n que facilites es p煤blica, y los datos que incluyas los leer谩 cualquier visitante de esta web, as铆 como el avatar que poseas.

Legitimaci贸n: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificaci贸n, supresi贸n, oposici贸n y dem谩s derechos legalmente establecidos a
trav茅s del email sergio@ayudaexcel.com.

Informaci贸n adicional: Encontrar谩s m谩s informaci贸n en la pol铆tica de privacidad.




  • Create New...

Important Information

Privacy Policy


CTA Templates.png