Skip to main content
se añadieron 621 caracteres en el cuerpo
Origen Enlace
virtualdvid
  • 727
  • 2
  • 8
  • 18

Pruebe cambiandoPara dar respuesta a este tema se puede hacer lo siguiente:

Para el estilo de la fuente .Font.Bold = True

Para el color de la fuente .Font.Color = RGB(255, 255, 255) color Blanco

Para el color de la celda .Interior.Color = RGB(255, 0, 0)

en este link encuentrase encuentran los parámetros RGB para los colores.

Por otro lado recomiendo "factorizar" Cells(trgt.row, "A").Resize(1, 14) usando with hace que sea mas legible el código.

With Cells(trgt.row, "A").Resize(1, 14)
    Select Case LCase(trgt.Value2)
        Case "2 day process"
            .Interior.ColorIndex = 46
        Case "advisor"
            .Interior.ColorIndex = 37
        Case "back in"
            .Interior.ColorIndex = 22
        Case "ci error/ticket"
            .Interior.ColorIndex = 1
            .Font.ColorIndex = 1
            .Font.FontStyle = "Bold"
    ...
End With

Pruebe cambiando lo siguiente:

Para el estilo de la fuente .Font.Bold = True

Para el color de la fuente .Font.Color = RGB(255, 255, 255) color Blanco

Para el color de la celda .Interior.Color = RGB(255, 0, 0)

en este link encuentra los parámetros RGB para los colores.

Para dar respuesta a este tema se puede hacer lo siguiente:

Para el estilo de la fuente .Font.Bold = True

Para el color de la fuente .Font.Color = RGB(255, 255, 255) color Blanco

Para el color de la celda .Interior.Color = RGB(255, 0, 0)

en este link se encuentran los parámetros RGB para los colores.

Por otro lado recomiendo "factorizar" Cells(trgt.row, "A").Resize(1, 14) usando with hace que sea mas legible el código.

With Cells(trgt.row, "A").Resize(1, 14)
    Select Case LCase(trgt.Value2)
        Case "2 day process"
            .Interior.ColorIndex = 46
        Case "advisor"
            .Interior.ColorIndex = 37
        Case "back in"
            .Interior.ColorIndex = 22
        Case "ci error/ticket"
            .Interior.ColorIndex = 1
            .Font.ColorIndex = 1
            .Font.FontStyle = "Bold"
    ...
End With
Origen Enlace
virtualdvid
  • 727
  • 2
  • 8
  • 18

Pruebe cambiando lo siguiente:

Para el estilo de la fuente .Font.Bold = True

Para el color de la fuente .Font.Color = RGB(255, 255, 255) color Blanco

Para el color de la celda .Interior.Color = RGB(255, 0, 0)

en este link encuentra los parámetros RGB para los colores.