Por favor su valioso apoyo!!!!

03/01/2012 - 08:51 por victor-renteros | Informe spam
¡ Hola !

Tengo el siguiente codigo para borrar celdas de determinado color, pero el problema es que me borra tambien las celdas de las otras hojas que hay en el libro. Mi pregunta es si hay una forma que pueda borrar solo las celdas de una determinada hoja y si es así como lo haría.

Gracias por su valioso apoyo.

Sub Limpiar()
'
' Limpiar Macro
'
'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("b3:c22")
For Each Celda In MiRango
With Celda
'color gris claro (25%)
If .Interior.ColorIndex = -4142 Then
'elimina contenido
.ClearContents
End If
End With
Next Celda
Next Hoja
Set MiRango = Nothing

End Sub
 

Leer las respuestas

#1 Emilio
03/01/2012 - 17:54 | Informe spam
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

tal que así

Sub Limpiar()
'
' Limpiar Macro
'
'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

Set Hoja = "Hoja1"
'Rango a modificar
Set MiRango = Hoja.Range("b3:c22")
For Each Celda In MiRango
With Celda
'color gris claro (25%)
If .Interior.ColorIndex = -4142 Then
'elimina contenido
.ClearContents
End If
End With
Next Celda
Set MiRango = Nothing
Set Hoja = Nothing

End Sub

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"victor-renteros" escribió en
el mensaje de noticias news:
¡ Hola !

Tengo el siguiente codigo para borrar celdas de determinado color, pero el
problema es que me borra tambien las celdas de las otras hojas que hay en
el
libro. Mi pregunta es si hay una forma que pueda borrar solo las celdas de
una
determinada hoja y si es así como lo haría.

Gracias por su valioso apoyo.

Sub Limpiar()
'
' Limpiar Macro
'
'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("b3:c22")
For Each Celda In MiRango
With Celda
'color gris claro (25%)
If .Interior.ColorIndex = -4142 Then
'elimina contenido
.ClearContents
End If
End With
Next Celda
Next Hoja
Set MiRango = Nothing

End Sub

__________ Information from ESET Smart Security, version of virus
signature database 6764 (20120103) __________

The message was checked by ESET Smart Security.

http://www.eset.com







__________ Information from ESET Smart Security, version of virus signature database 6764 (20120103) __________

The message was checked by ESET Smart Security.

http://www.eset.com

Preguntas similares