Hola, necesitaba borrar automáticamente los datos de una serie de celdas y siguiendo un tutorial de internet y el archivo que proporcionó otro forero aquí he creado una macro para hacerlo, pero me da un fallo y no sé como solucionarlo. ¿Alguna idea?

Gracias y un saludo

Nota: no me deja adjuntar el archivo, así que pongo un enlace para descargarlo:

https://www.dropbox.com/s/9g1bzicqqzad9sm/Cuaderno 2015-2016 prueba.xlsm?dl=0

Te dejo solo la macro corregida.

Sub Eliminar_datos()
Dim Estilo, Mensaje, Título
'--
ActiveSheet.Unprotect
Mensaje = "Realmente deseas borrar todos los datos"
Título = "¡¡ALERTA!!"
Estilo = vbYesNo + vbCritical
'..
If MsgBox(Mensaje, Estilo, Título) = vbYes Then
    Range("B7:B41,E7:U41,E60:U94,E113:U147,AB6:AF41,AB59:AF94,AB112:AF147,AP7:AP41,AP60:AP94,AP113:AP147").Select
    Selection.Locked = False
    Selection.ClearContents
End If
ActiveSheet.Protect
End Sub

 

Muchísimas gracias, funciona perfecto.

Un saludo

Hola otra vez , estoy copiando la macro en el cuaderno definitivo y me surgen unas dudas, en las hojas de 2º, las celdas desde AB6 hasta AF6 quiero que se borren también, pero si en la macro incluyo esas celdas, en las hojas de 4º también las borra y ahí no se deben borrar, además en las hojas de 4º me borra la fórmula que tengo introducida en las columnas AF-AH, y entoces ya no se puede calcular la media. ¿Se puede solucionar esto de alguna mamera?

Un saludo y gracias otra vez

https://www.dropbox.com/s/2t3b7tcnbqr7g0g/Cuaderno 2016-2017 con borrar datos.xlsm?dl=0

No sé porque no puedo adjuntar algunos archivos

No sé si se hará así o hay alguna forma más correcta de hacerlo, lo que he hecho es crear una macro para 2º y otra para 4º.

Un saludo