Formato condicional con más de 3 condiciones

Hola,
Tengo una situación que me gustaría si me pueden de favor ayudar a resolver.
Tengo un archivo de Excel en donde tengo una hoja a la que llamo Base de datos, en la cual tengo varias columnas, en las cuales vienen los campos siguientes:
Num Clave Sector Divisiones Subdivisiones Titulo Nombre Empresa Puesto Teléfono Correo Gafetes
Es en esta ultima columna en donde quiero tener 4 condiciones, los valores que pueden ir en esa columna dependiendo el tipo de persona serian los siguientes: "VIP", "INVITADO", "STAFF", "PRENSA" y le quiero a cada uno asignar un color al momento que escriban la palabra (VIP = NARANJA, INVITADO = VERDE, STAFF = AZUL CLARO, PRENSA = AZUL OSCURO), se que lo puedo hacer con la opción de Formato Condicional, pero solo me da la opción para 3 condiciones, sin embargo, yo tengo 4, ¿cómo puedo hacer para que al momento de que escriban la palabra se ponga la celda del color mencionado lineas arriba?
De antemano gracias.
Saludos
Bernardo

1 respuesta

Respuesta
1
Utiliza esta rutina :
Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Column = 12 Then
    Select Case Target.Cells
    Case LCase("vip")
        Target.Cells.Interior.ColorIndex = 46
    Case LCase("invitado")
        Target.Cells.Interior.ColorIndex = 10
    Case LCase("staff")
        Target.Cells.Interior.ColorIndex = 41
    Case LCase("prensa")
        Target.Cells.Interior.ColorIndex = 11
    End Select
    End If
End Sub
Coloca la rutina que te estoy enviando en el módulo de Base de Datos de Visual Basic.
Como?
* Abre el Editor de Visual Basic Alt-F11
* En la ventana Proyecto, habitualmente en la parte centro-superior-izquierda de tu pantalla, ubica Hoja1(Base de Datos) debajo de Microsoft Excel Objects y haz doble click en él.
*En el módulo que aparece, copia el codigo (14 líneas) que te he enviado.
* Cierra el Editor de Visual Basic
Nota. Se asume que la columna donde esta el campo Gafetes es la columna L ( o columna 12 ). Si no fuera así, cambia la linea If ActiveCell. Column = 12 Then por el numero de columna que corresponda (A=1, B=2, C=3, etc).

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas