Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Milton Cordova

Formato condicional varias opciones

Recommended Posts

saludos, por favor deseo ayuda para 5 condiciones de formato en excel 2003.

Ejm. para un rango de a1:a30

colocar fuente color negro para valor 1

colocar fuente color azul para valor 2

colocar fuente color rojo para valor 3

colocar fuente color verde para valor 4

colocar fuente color amarillo para valor 5

Share this post


Link to post
Share on other sites

Hola

Excel 2003 tiene limitación de un máximo de 3 formatos condicionales, PEROOOOOO... si quieres más entonces puedes aplicar formatos de celda.

Pon el formato negro, azul y rojo en los condicionales y en el formato PERSONALIZADO de celda pones algo así:

[=4][Verde]0;[=5][Amarillo]0

Share this post


Link to post
Share on other sites

Hola @DiegoPC gusto en saludarte nuevamente.

@Milton Cordova como alternativa pudieras usar esta UDF pega el código en la hoja donde quieres ver los valores con formato condicional, te mando un archivo de ejemplo, espero que te sea útil.

saludos.

Option Compare Text 'A=a, B=b, ... Z=z
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim Rng1 As Range

On Error Resume Next
Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
On Error GoTo 0
If Rng1 Is Nothing Then
Set Rng1 = Range(Target.Address)
Else
Set Rng1 = Union(Range(Target.Address), Rng1)
End If
For Each Cell In Rng1
Select Case Cell.Value
Case vbNullString
Cell.Interior.ColorIndex = xlNone
Cell.Font.Bold = False
Case 1
Cell.Interior.ColorIndex = 1
Cell.Font.Bold = True
Case 2
Cell.Interior.ColorIndex = 5
Cell.Font.Bold = True
Case 3
Cell.Interior.ColorIndex = 3
Cell.Font.Bold = True
Case 4
Cell.Interior.ColorIndex = 4
Cell.Font.Bold = True
Case 5
Cell.Interior.ColorIndex = 6
Cell.Font.Bold = True
Case Else
Cell.Interior.ColorIndex = xlNone
Cell.Font.Bold = False
End Select
Next
End Sub[/CODE]

Formato Condicional.xls

Share this post


Link to post
Share on other sites

.

O sea lo mismo que [uSER=158204]@asalinasc[/uSER], pero escribiendo menos.

Una macro:

Sub Colorear()
colores = "15346"
For Each Target In Range("A1:A30")
Target.Font.ColorIndex = Mid(colores, Target, 1)
Next
End Sub
[/CODE]

También valdría:

[CODE]Private Sub Worksheet_Change(ByVal Rango As Range)
colores = "15346"
For Each Target In Rango
Target.Font.ColorIndex = Mid(colores, Target, 1)
Next
[/CODE]

.

Share this post


Link to post
Share on other sites

@Milton Cordova copia esta macro a la hoja.

Option Compare Text 'A=a, B=b, ... Z=z
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim Rng1 As Range

On Error Resume Next
Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
On Error GoTo 0
If Rng1 Is Nothing Then
Set Rng1 = Range(Target.Address)
Else
Set Rng1 = Union(Range(Target.Address), Rng1)
End If
For Each Cell In Rng1
Select Case Cell.Value
Case vbNullString
Cell.Font.ColorIndex = xlNone
Cell.Font.Bold = True
Case 1
Cell.Font.ColorIndex = 1
Cell.Font.Bold = False
Case 2
Cell.Font.ColorIndex = 5
Cell.Font.Bold = False
Case 3
Cell.Font.ColorIndex = 3
Cell.Font.Bold = False
Case 4
Cell.Font.ColorIndex = 1
Cell.Font.Bold = True
Case Else
Cell.Font.ColorIndex = xlNone
Cell.Font.Bold = False
End Select
Next
End Sub
[/CODE]

si requieres cambiar el color de la fuente, debes cambiar por ejemploel numero 1 (negro) o los demás en estas lineas despues del color index= segun el [color=#0000b3]case [/color]que requieras cambiar, te dejo el archivo, tome como referencia los colores de la fuente que tu tienes en tu ejemplo.

[CODE]Case 1
Cell.Font.ColorIndex = 1[/CODE]

saludos.

formato condicional 4 criterios2.rar

Share this post


Link to post
Share on other sites

Milton Cordova, post: 190019, member: 73198"]Saludos tengo una ultima pregunta necesito que esto funcione para un rango G13:H282

tambien la opcion color negro debe ser aplicada para el valor =0 o sea el rango o(G13:h282 =0;G13:h282 =1)

Gracias por la ayuda

Share this post


Link to post
Share on other sites

@Milton Cordova buen día, subo el archivo considerando el valor 0 en toda la hoja y otro en los rangos que requieres.

te comento que esta UDF aplica para la hoja (en la cual insertas el codigo), recuerda que no va en un modulo, va en la hoja como te muestro en los archivos que subi.

si requieres cambiar de color segun el valor cambia el numero en las lineas

Case 1

Cell.Font.ColorIndex = 1 <------------ este numero es el color en cada Case tiene uno asignado.

si quieres cambiar a negrita solo cambia False por True en estas lineas, donde lo requieras:

Case 1

Cell.Font.ColorIndex = 1

Cell.Font.Bold = False <------ esto indica letra normal, si cambio a True, me pone negrita (unicamente al numero asignado en el Case).

Espero que te sea util.

saludos.

formato condicional Rev_3.zip

formato condicional Rev_3 v2.zip

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png