Macro que borre celdas

Hola
en que rango de datos ?

suponiendo que quieres borrar las celdas desde a1: hasta d10 pon el
siguiente codigo en un modulo normal.
Suponiendo que tu hoja se llama datos

Sub BorraCeldas()

Dim I, K as integer
Dim Hja as worksheet

set Hja=sheets("DATOS")

for I=1 to 10
For k=1 to 4
if hja.cells(I,K)="Trimestre" then Hja.cells(i,k)=Empty
next
next

End sub

Esto "recorre" la fila 1 a la 10 en la columna A y despues hace lo mismo en
la columna B,C,D.

Este ciclo puede ser largo si son demasiadas celdas y columnas.
Probablemente alguien nos ponga un codigo mas eficiente.

Saludos



"phelix69" wrote:

Hola,
Me gustaría que alguien me dijera qué código le tengo que dar a una macro
para que me borre todas las celdas que tengan el texto Trimestre.

Muchas gracias y un saludo