Macro que cambie el foramto de las celdas en base a su contenido

Me gustaría una macro que le cambiara el formato a las celdas de acuerdo al texto que estas tengan, se que el formato condicional lo hace, pero como estoy usando Excel 2003 solo tengo 3 opciones.

Me gustaría que este macro aplicara en la columna I, en caso de que el texto sea “EN TIEMPO” la celda debe pintarse de verde y la letra debe ser negra, si el texto es “PRIORIDAD” la celda debe pintarse amarilla con letra negra, si el texto es “URGENTE” la celda debe pintarse de rojo con la letra amarilla y en caso de que el texto sea “ESCALACIÓN” la celda debe pintarse de negro y la letras debe ser blanca.

De antemano gracias J

1 respuesta

Respuesta
2

Arantxa Blanco!

Hacemos uso de la macro del programa anterior que ya se vio que funcionaba y añadimos lo de los colores.

Sub Prioridad()
'ValeroASM
Dim i, dias, FilaFinal As Integer
FilaFinal = Range("H" & Rows.Count).End(xlUp).Row
For i = 2 To FilaFinal
    dias = Cells(i, "H") - Date
    If dias < 14 Then
        Cells(i, "I") = "EN TIEMPO"
        Cells(i, "I").Interior.Color = vbGreen
        Cells(i, "I").Font.Color = vbBlack
    ElseIf dias < 21 Then
        Cells(i, "I") = "PRORIDAD"
        Cells(i, "I").Interior.Color = vbYellow
        Cells(i, "I").Font.Color = vbBlack
    ElseIf dias < 28 Then
        Cells(i, "I") = "URGENTE"
        Cells(i, "I").Interior.Color = vbRed
        Cells(i, "I").Font.Color = vbYellow
    Else
        Cells(i, "I") = "ESCALACIÓN"
        Cells(i, "I").Interior.Color = vbBlack
        Cells(i, "I").Font.Color = vbWhite
    End If
Next
End Sub

Y eso es todo.

He arrastrado el fallo de la macro anterior

Debes cambiar la línea

dias = Cells(i, "H") - Date

por

dias = Date - Cells(i, "H")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

No imprimir color de fondo

El problema que me surge es aparentemente muy sencillo, pero no encuentro la forma de hacerlo. Quiero que visualmente me aparezcan unas celdas en negro en la pantalla, pero que se impriman en blanco para no gastar toner.
1 respuesta

Celda parpadeante

Espero contar con su valioso apoyo ¿Cómo puedo hace que una celda sea parpadeante o solo que cambie a 2 colores cada segundo? ¿Y también el color del texto? Solo una celda especifica de una hoja especifica
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

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

Convertir letras con acento a letras sin acento VBA Excel

Desarrollando un buscador de datos me encontré con un problema, muchos de mis datos tienen acentos, y quisiera saber si hay alguna posibilidad de convertir mientras escribo las letras con acento a letras sin ellos. Actualmente tengo el siguiente...
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