joan blanch
04 de Diciembre del 2003

No se como hacer que excel me mire todas las celdas (en un rango) que tengo pintadas en verde y en una celda en concreto me indique el número de celdas que tengo pintadas en verde

jose oscar
04 de Diciembre del 2003

Que tal maestro......

primero pintas las celdas con este codigo.....

Sub todosloscolores()
For t = 0 To 15
Cells(t + 2, 4).Interior.color = QBColor(t)
Next
End Sub


Y luego las buscas con este otro ......

Sub Mostrarcolor()
For Each celda In Range("d4:D19")
If celda.Interior.color = vbGreen Then
MsgBox "Celda encontrada " & celda.Address
End If
Next
End Sub

Por supuesto solo podras encontar algunas VBgren , Vbwhite, Vbred, VbBlue Etc , pero todos los colores que se te ocurran buscar....

Has una enum de los colores.....

Enum MiColor
Negro = 0
Azul = 1
Verde = 2
Aguamarina = 3
Rojo = 4
Rojo_Claro = 12
Fucsia = 5
Amarillo = 6
Blanco = 7
Gris = 8
Azul_Claro = 9
Verde_Claro = 10
Aguamarina_Claro = 11
Fucsia_Claro = 13
Amarillo_Claro = 14
Blano_Brillante = 15
End Enum


y luego buscar mas facilmente los colores , en este caso los QBCOLOR...... va!!! este ejemplo pone de color Azul la celda A4.

Sub Ponercolor()
Range("a4").Interior.color = QBColor(MiColor.Azul)
End Sub

Espero te ayude en algo

Un saludo
Jose Oscar