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?
Sub Botón4_Haga_clic_en()
Dim hoja As Worksheet
For Each hoja In Application.Worksheets
If hoja.Name <> "GS" Or "Macros" Then
hoja.Range("A3:G6000").Clear
End If
Next hoja
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! ?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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?
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! ?