macro para borrar datos d determinadas celdasde fila activa

[lucas18]

Buen día, alguien me puede ayudar con lo siguiente: necesito una macro que borre el contenido de ciertas celdas de la fila activa, por ejemplo digamos que estoy situado en la fila 10 (fila activa)...

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 Borrar()
Range("B:D, K:M, U:U, Y:Z, AC:AC, AE:AE").ClearContents
End Sub

 

[Macro Antonio]

Esta mal la solución que te he dado, si no te contesta nadie, mañana te lo soluciono.

 

[lucas18]

ok Antoni, habrá que esperar nomas ... gracias

 

[Macro Antonio]

Así, creo que mejor:

Sub Borrar()
Range("B" & ActiveCell.Row) = ""
Range("C" & ActiveCell.Row) = ""
Range("D" & ActiveCell.Row) = ""
Range("K" & ActiveCell.Row) = ""
Range("L" &...

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í

 

[lucas18]

Hola Antoni,
muchas gracias por tu tiempo, esta perfecto.
Saludos

 

[Cacho R]

.
Esta variante está dedicada a mi amigo Antoni a quien -seguramente- le va a gustar:

<i>
</i>Sub Borrar()
Range(Replace("B@,C@,D@,K@,L@,M@,U@,Y@,Z@,AC@,AE@", "@"...

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í

 

[Cacho R]

.
Y la siguiente es otra manera inusual pero efectiva:

<i>
</i>Sub Borrar_3()
Range("a" & ActiveCell.Row).Range("B1,C1,D1,K1,L1,M1,U1,Y1,Z1,AC1,AE1").ClearContents
End Sub