CAMBIAR COLOR DE TEXTO CON MACROS

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

CAMBIAR COLOR DE TEXTO CON MACROS

Notapor howling » 30 Sep 2018 08:04

Buenas amigos como estan nesecito su ayuda hace poco en el foro encontre esta macro me ayuda con mi archivo bastante bien el problema es el siguiente la macro me cambia solo el fondo de la celda y yo nesecito que me cambie tanto el fondo como el color de texto de la celda aqui la macro mas el archivo de ayuda

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B14:AF45")) Is Nothing Then


On Error GoTo Salida
Select Case Target
Case "N": Target.Interior.Color = vbBlue
Case "DA": Target.Interior.Color = vbYellow

Case Else: GoTo Salida
End Select
Exit Sub


Salida:
Target.Interior.ColorIndex = xlNone
End If

End Sub




de ante mano gracias por la ayuda
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
howling
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 28
Registrado: 26 Nov 2017 21:55

Re: CAMBIAR COLOR DE TEXTO CON MACROS

Notapor Antoni » 30 Sep 2018 14:38

Por ejemplo:

Código: Seleccionar todo
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B14:AF45")) Is Nothing Then
   Target.Font.ColorIndex = xlAutomatic
   Target.Interior.ColorIndex = xlNone
   Select Case Target
      Case "N":  Target.Font.Color = vbWhite: Target.Interior.Color = vbBlue
      Case "DA": Target.Font.Color = vbRed:   Target.Interior.Color = vbYellow
   End Select
End If
End Sub
Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5710
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)

Re: CAMBIAR COLOR DE TEXTO CON MACROS

Notapor howling » 02 Oct 2018 01:51

gracias antoni de verdad gracias habia intentado de todo para encontrar como hacerlo y no me habia resultado nada y este foro siempre lo trato de dejar como ultimo recurso se agradece la ayuda :D :D :D :D :D :D :D :D :D
howling
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 28
Registrado: 26 Nov 2017 21:55


Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados