• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Colores de Celdas mediante RGB

BARBOL

Member
Hoooola foro, de vuelta por acá... siempre me sacan de estos apuros...

Estoy programando en Arduino IDE ... si... he sido infiel a Excel VBA. T-T
Y acudi a excel para poder visualizar rapidamente los colores que estoy seteando para un led RGB... cuento corto...


Tengo 3 columnas, R, G y B, se imaginan... Rojo, Verde y Azul, para generar color mediante codigo desde 0 - 255.
Estoy usando esta macro:
Código:
Range("K7:K12").Interior.Color = RGB(Range("G7").Value, Range("H7").Value, Range("I7").Value)

Donde uso el valor de las columnas respectivas al color, y pinta la celda del color seteado,

Pero aqui me mareo... no pude hacer que, segun la fila 7, tomo valore de G7, H7 e I7 respectivamente, pero si paso a la fila 8... deberia tomar los valores de G8, H8 e I8...
y asi hasta el infinito.
El codigo que envie, solo pinta todo del color segun fila 7... claro asi esta definido... alguna sugerencia?

Saludos!
 

Héctor Miguel

Well-known member
no pude hacer que, segun la fila 7, tomo valore de G7, H7 e I7 respectivamente, pero si paso a la fila 8... deberia tomar los valores de G8, H8 e I8... y asi hasta el infinito
te sirve un bucle ? (p.ej.)
Código:
  for n = 7 to 12
    range("k" & n).interior.color = rgb(range("g" & n), range("h" & n), range("i" & n))
  next

cambia el 12 por "el infinito" ?
o aclara si lo que buscas es diferente de lo interpretado (?)
 

Cacho R

Well-known member
... siempre me sacan de estos apuros...
Hola! Barbol:
¡Esperemos que esta vez no sea la excepción!... :D ;). Otro modo:
JavaScript:
For Each C In Range("K7", "K12")
  C.Interior.Color = RGB(Cells(C.Row, "G"), Cells(C.Row, "H"), Cells(C.Row, "I"))
Next
P.D.
Se te "perdona" que no hayas subido tu archivo de muestra al Foro pues lo que has planteado es fácilmente entendible y reproducible.
 

BARBOL

Member
Logrado, muchas gracias, comparto lo que se hizo para que me perdone Cacho R.
Actualiza la macro al cambiar las celdas RGB G7:I12
Y cambia el Color en K7:K12

Sirve para visualizar los colores en RGB para cualquier uso...

GRACIAS!
 

Adjuntos

Arriba