Agregar otra accion a una macro

[mago18]

Hola a todos:

Tengo esta macro que borra un rango de filas. pero ahora quiero agregar otra accion de borrado, pero a una celda (D17).

Sub Flechaabajo_Haga_clic_en()
Range("y31:y50").Select...

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í

 

[Adrian]

Hola, no es necesario seleccionar para borrar, probá así:
range(range("Y31:Y50"),range("D17")).ClearContents

 

[mago18]

Me marco un error de compilacion.

 

[Adrian]

A mi no me da error, funciona perfectamente.
Range(Range("Y31:Y50"), Range("D17")).ClearContents

 

[Tepehuani]

Espero sea lo que necesites... saludos

ActiveSheet.Range("Y31:Y50").ClearContents
ActiveSheet.Range("D17").ClearContents

...aqui te dejo el archivo.

 

[Macro Antonio]

Hola a todos:

Adrian, creo que con menos Ranges también funciona:

Range("Y31:Y50", "D17").ClearContents

Saludos

 

[mago18]

Muchas gracias por su atencion y apoyo.

Me funciono muy bien.