Borrar, datos segun color de Celda....incluso celdas combinadas

Hola

... un archivo de Excel, que tiene varias Hojas, desde el DIA
1, hasta el DIA 31.. cada una de estas son similares,
y cada vez que termina el Mes
debo eliminar algunos datos
que me elimine el Contenido de las Celdas que tienen un color
determinado, ej. Gris. Es importante tener presente que existen celdas
que debo limpiar que estan combinadas.

prueba lo siguiente, creo que se ajusta a lo que quieres, salvo porque
separa las celdas combinadas
y que no has dado un rango al que quieres que busque, si es muy grande puede
que el proceso se demore demasiado

en el caso de que no quieras que descomponga las celdas combinadas comentas

un saludo
juan

Inicio codigo
Sub Test()
'Borra el contenido de determinadas celdas
'borra el color del interior de la celda
Dim Hoja As Worksheet
Dim MiRango As Range
Dim Celda As Range

For Each Hoja In ThisWorkbook.Worksheets
'Rango a modificar
Set MiRango = Hoja.Range("A1:A100")
For Each Celda In MiRango
With Celda
'color gris claro (25%)
If .Interior.ColorIndex = 15 Then
'si estan combinadas las separo
If .MergeCells Then
.MergeCells = False
End If
'elimina contenido
.ClearContents
'elimina formatos
.ClearFormats
End If
End With
Next Celda
Next Hoja
Set MiRango = Nothing

End Sub
Fin Codigo

"mamo66" escribió en el mensaje
news:

Hola,

Amigos, tengo un archivo de Excel, que tiene varias Hojas, desde el DIA
1, hasta el DIA 31.. cada una de estas son similares, y cada vez que
termina el Mes, osea llego a la hoja 31, debo eliminar algunos datos
desde el DIA 1 al DIA 30... pero lo que necesito es crear una macro
que me elimine el Contenido de las Celdas que tienen un color
determinado, ej. Gris. Es importante tener presente que existen celdas
que debo limpiar que estan combinadas.

Desde ya gracias por vuestra ayuda... y Felicitaciones a todos los
Caperusos del Excel

un abrazo

MAMO66