Poner color a texto

Hola que tal. Te doy las gracias de antemano.
Bueno, lo que quiero hacer es lo siguiente:
Tengo una hoja con nombre y números y conceptos, bien en los conceptos es para poner "DAR DE BAJA", y esta celda cuando le pongo ese concepto, con formato condicional se pone con fondo rojo y testo en blanco.
Bien, lo que pretendo ahora es que cuando en concepto ponga "DAR DE BAJA", el nombre del socio, y su número, se pongan también automáticamente con los mismos colores.
Te agradecería me indicaras si se puede hacer y cómo.
Un saludo

1 respuesta

1
Respuesta de
Puedes usar un código de este estilo a nivel de página:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nuevoColor As Integer
    ' Comprobamos que en la celda B5 aparezca el texto DAR DE BAJA
' si es así, el nuevo color será el 3 (rojo), en caso contrario el 0 (negro)
    If Me.Cells(5, 2) = "DAR DE BAJA" Then nuevoColor = 3 Else nuevoColor = 0
    ' Ponemos del nuevo color las celdas del nombre, número de socio y las que sean
    Me.Cells(1, 2).Font.ColorIndex = nuevoColor ' Pone del nuevo color B1
    Me.Cells(2, 2).Font.ColorIndex = nuevoColor ' Pone del nuevo color B2
    Me.Cells(3, 2).Font.ColorIndex = nuevoColor ' Pone del nuevo color B3
    Me.Cells(4, 2).Font.ColorIndex = nuevoColor ' Pone del nuevo color B4
End Sub
Espero que te funcione
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje