Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Cambiar los colores de fondo con VBA

| 8 Comments


Pasos para cambiar los colores de fondo de las celdas con VBA

¿Cómo se puede modificar el color de fondo de una celda utilizando Visual Basic para Aplicaciones (VBA)?

Podemos citar dos formas frecuentes en las que se puede realizar este cambio de color.

Debe utilizar la propiedad Interior de la celda y, a continuación:

  • Puede usar ColorIndex (para utilizar uno de los 56 colores “preestablecidos” de Excel): De esta forma se cambiaría el color de la celda activa.
ActiveCell.Interior.ColorIndex = 26

De esta forma se cambiaría el color de la celda activa. De esta forma le podemos cambiar de color a todo un rango de celdas.

  • O bien, puede utilizar Color:

De esta forma le podemos cambiar de color a todo un rango de celdas.

Range("A1:A6").Interior.Color = RGB(200,160,27)

Elaborado por: Eliot Vladimir

8 Comments

  1. Amigo excelente muchas gracias

  2. y si quisiera volver a dejar la celda sin color ? como se haria?

    • color blanco RGB(255, 255, 255)

      • Range(Cells(1, 3), Cells(30, 3)).Interior.Pattern = xlNone

        ó
        Range(“C,1:C30”).Interior.Pattern = xlNone

        ó si es un selección de celdas
        Selection.Interior.Pattern = xlNone

        La ventaja de utilizar xlNone es que queda sin fondo alguno.

  3. De maravilla ok y muchisimas gracias

  4. Hola buen día, tengo una duda. En mi base de datos, deseo que cuando ponga abierto, se pinte la celda de rojo, en pendiente de amarillo y en cerrado de verde.
    Como hago eso de forma autómática, es decir, cuando escriba la palabra, que en automático de ponga del color que le asigné.

    Saludos, gracias y felicidades por los aportes

    • 1 Ve a inicio/formato condicional/resaltar reglas de celda/igual a… y ahi le pones

      2 coloca Abierto y elige color rojo
      3 repite el paso 1 y coloca pendiente y elige color amarillo
      4 repite el paso 1 y coloca cerrado y elige color amarillo

  5. buenas tardes , requiero de su ayuda con lo siguiente necesito colocar los resultados obtenido por vba en celdas , es decir si suma 1+2 el resultado colocarlo en un cells .. tengo un codigo pero la macro me colocas los valores apartir de la celda 50

    im ultimafila As Double
    Sheets(“INDICADORES”).Select
    ultimafila = ActiveSheet.UsedRange.Row – 1 + ActiveSheet.UsedRange.Rows.Count
    Cells(ultimafila + 1, 1) = indicadorisp1

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5