eliminar filas por color

03/10/2005 - 18:29 por fredy | Informe spam
hola grupo! tengo la siguiente situacion , tengo una hoja donde la columna A
tiene unas celdas de color rojo ditribuidas, necesito saber si se puede
eliminar ( con una macro) las filas donde la celda de la columna A se
encuentre de color rojo

muchas gracias
 

Leer las respuestas

#1 Héctor Miguel
03/10/2005 - 21:14 | Informe spam
hola, fredy !

... una hoja donde la columna A tiene unas celdas de color rojo ditribuidas
... necesito... eliminar... las filas donde la celda de la columna A se encuentre de color rojo [...]



el siguiente ejemplo elimina las filas de la columna 'A' ->de la hoja activa<- que tengan cualquire color de trama...
[podrias utilizar un colorindex = 3 ... SI estas 'seguro' que no existen tramas combinadas -solo rojo 'directo'-] ;)
en un modulo de codigo 'normal' ==Sub Eliminar_Entramados()
Dim Celda As Range, Eliminar As Range
Application.ScreenUpdating = False
For Each Celda In ActiveSheet.UsedRange.Resize(, 1)
If Celda.Interior.ColorIndex <> xlColorIndexNone Then
If Eliminar Is Nothing Then Set Eliminar = Celda
Set Eliminar = Union(Eliminar, Celda)
End If
Next
If Not Eliminar Is Nothing Then Eliminar.EntireRow.Delete
Set Eliminar = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.

Preguntas similares