Macro color celda

Buenas tardes me pregunto si me podrían ayudar tengo un código que me busca el color amarillo en las celdas pero no me funciona si el color esta por formato condiciona

gracias

Sub BuscarAmarillo()
Application.ScreenUpdating = False rango = Split(ActiveSheet.UsedRange.Address, ":") For x = ActiveCell.Row To Range(rango(1)).Row For y = ActiveCell.Column + 1 To Range(rango(1)).Column Cells(x, y).Select If ActiveCell.Interior.Color = vbYellow Then Exit Sub Next Cells(x + 1, 1).Select Next MsgBox "Fin de datos" Range(rango(0)).Select
End Sub

2 respuestas

Respuesta
1

Cuando el se lo establece mediante el formato condicional, compra contra la constante

VbYellow y contra esta otra constante: 16777215 (que es el valor por defecto para el color amarillo en el formato condicional:

Agrega esta lineas:

en lugar de : If ActiveCell.Interior.Color = vbYellow Then Exit Sub

usa: If ActiveCell.Interior.Color = vbYellow Or ActiveCell.Interior.Color = 16777215 Then
Exit Sub

Respuesta
1

Si es por formato condicional, no te va a reconocer el color por que ese color "no esta en la celda"

Prueba asi:

ActiveCell.FormatConditions(1).interior.color=vbyellow

Esta linea solo funciona para celdas con color dado por formato condicional

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro con formato condicional

Antes que nada, agradeceros a todos los expertos en general y a ti en particular vuestra labor, profesionalidad y acierto en todas las consultas que os venimos haciendo. He estado siguiendo las respuestas que diste para crear una macro que identifica...
1 respuesta

¿Cómo diseñar Macro para colorear filas por coincidencias?

Para todos y complacido de poder participar con mi inquietud y ojalá me puedan ayudar. Lo cierto es que soy novato (muy novato) y estoy en una carrera contra el tiempo que no me permite dedicarle mucho tiempo. Es por ello que acudo a pedir ayuda. Y...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

Macro que reste dos celdas de la misma fila

Esta 2da Macro la necesitaría luego de obtener los pares de la primera de "Colorear Repetidos". Como un filtro que me haga esta operación . La describo en el tablón. Quizás sea un abuso, lo se, pero de verdad estoy buscando códigos para tratar de...
1 respuesta

Macro que copie encabezado de una hoja a otra

Sigo en la novatez con vba pero poco a poco le agarro el gusto a este lenguaje, sin embargo sigo topándome con cuestiones como ésta que les platico: Tengo un libro, donde en cada hoja que tiene algunas filas coloreadas, bien, estoy trabajando con una...
1 respuesta

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta

Seleccionar un rango de filas mediante inputbox

Como esta es mi primera pregunta en este foro la pregunta es la siguiente como saben en exel no se pueden seleccionar más de 3 formato condicional pero tengo una macro la cual puede dar formato condicional a más de 3 la macro es la siguiente Rem Ce1...
2 respuestas