Seleccionar y Borrar

[leo_munoz83]

Buenas!!
necesitaría por favor que me ayuden a crear un Macro
Quiero un boton para borrar todo el contenido de las celdas, ya sea imagen y texto.

estos son los rangos rangos de celdas que deseo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sub Limpiar()
'--
Application.ScreenUpdating = False
Range("B24:BI67").ClearContents
Range("B74:BI117").ClearContents
Range("B124:BI167").ClearContents
Range("B174:BI217").ClearContents...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[leo_munoz83]

muchisimas gracias!!! te agradezco la ayuda! Saludos

 

[leo_munoz83]

Disculpa que te moleste de nuevo...
tambien me gustaría que se borre el contenido de las siguientes celdas
Z20
Z70
Z120
y Z160

si mo le podes agregar te lo agradeceria mucho!

 

[Macro Antonio]

Añade:

Range("Z20, Z70, Z120, Z170").ClearContents

.

 

[leo_munoz83]

Te pido disculpas por la molestia... pero lo he añadido y me da un error

 

[Macro Antonio]

A mi me funciona:

Sub Limpiar()
'--
Application.ScreenUpdating = False
Range("B24:BI67").ClearContents
Range("B74:BI117").ClearContents
Range("B124:BI167").ClearContents...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí