Macros
Hola Mi nombre es walter, trabajo con datos hasta 1000 filas es por esa razón que mi pregunta es como identificar aquellas celdas que tienen un color especifico. Por ejemplo
supongamos que tengo los sgtes valores en este rango b1 a b7 los datos iniciado de b1 son 1,2,3,4... 7,8,9 y 10
resulta que las celdas con los valores 1,2,4,7 y 9 están de color de fondo yellow lo que deseo es eliminar automáticamente estas filas y así quedar solo con los valores que no tienen ningún color que ente caso seria 3,5,6,8 y 10 o en todo caso poner una referencia como un * cosa que lo puedo filtrar y eliminarlo
supongamos que tengo los sgtes valores en este rango b1 a b7 los datos iniciado de b1 son 1,2,3,4... 7,8,9 y 10
resulta que las celdas con los valores 1,2,4,7 y 9 están de color de fondo yellow lo que deseo es eliminar automáticamente estas filas y así quedar solo con los valores que no tienen ningún color que ente caso seria 3,5,6,8 y 10 o en todo caso poner una referencia como un * cosa que lo puedo filtrar y eliminarlo
1 respuesta
Respuesta de t4373125
1
Aquí tienes el código:
Sub Macro1()
'seleccionar la ultima celda
Range("B1000").Select
'hasta llegar a la primera
While ActiveCell.Address <> "$B$1"
'si la celda es de color amarillo...
If ActiveCell.Interior.ColorIndex = 6 Then
'borrar la fila
Rows(ActiveCell.Row).Delete
End If
'ir a la celda de arriba
ActiveCell.Offset(-1, 0).Select
Wend
End Sub
He supuesto que las celdas amarillas están de la celda B1 hasta la B1000, sino es así, cambialo.
Lo otro que quizás debas cambiar, es el numero de color, porque puede que sea otro amarillo.
Para saber que amarillo pon a grabar una macro y pinta una celda de ese color. Luego vete a mirar el editor de visual basic a ver "como se llama"
Sub Macro1()
'seleccionar la ultima celda
Range("B1000").Select
'hasta llegar a la primera
While ActiveCell.Address <> "$B$1"
'si la celda es de color amarillo...
If ActiveCell.Interior.ColorIndex = 6 Then
'borrar la fila
Rows(ActiveCell.Row).Delete
End If
'ir a la celda de arriba
ActiveCell.Offset(-1, 0).Select
Wend
End Sub
He supuesto que las celdas amarillas están de la celda B1 hasta la B1000, sino es así, cambialo.
Lo otro que quizás debas cambiar, es el numero de color, porque puede que sea otro amarillo.
Para saber que amarillo pon a grabar una macro y pinta una celda de ese color. Luego vete a mirar el editor de visual basic a ver "como se llama"
Hola Ramon muchas gracias por tu respuesta realmente funciona has permitido que mi trabajo en excel se reduzca, realmente muchas gracias. Te pediría un favor si a la macro le puedieramos agregar la opción de que se ponga un * en la columna siguiente es decir en la columna c para aquellas celdas de color amarillo y que estas ya no se eliminen
Te reitero nuevamente gracias por tu respuesta me ha sido de tu utilidad
Tu amigo
Walter
Te reitero nuevamente gracias por tu respuesta me ha sido de tu utilidad
Tu amigo
Walter
