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

hola, 'anonimo/a' !

Me gustaria que alguien me dijera que codigo le tengo que dar a una macro
para que me borre todas las celdas que tengan el texto Trimestre.

- alguna columna en especifico ? (o hay que buscar en TODA la hoja ?)

- el texto que buscas (trimestre) es "lo unico" que contienen las celdas ?
(o es parte de un texto mas extenso ?)

- son textos "estaticos" ? (o son el resultado de formulas ?)

si tienes algun dato mas "en el tintero" ? (es hora de comentarlo) :))

saludos,
hector.

Gracias a ambos por vuestras respuestas, me vale con la que me ha dado Jose
A., de nuevo gracias

"phelix69" escribió:

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